關(guān)于VB中的枚舉類型

應(yīng)該是1

創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)田家庵,十年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):13518219792

定義了一個(gè)枚舉類型Days,它包括7個(gè)成員，都省略了“常數(shù)表達(dá)式”，因此常數(shù)Sunday的值為0，

常數(shù)Monday的值為1，常數(shù)Tuesday的值為3

VB怎么枚舉窗體中所有子窗體句柄

VB 遍歷窗口所有子窗體句柄

Private Const GW_CHILD = 5

Private Const GW_HWNDFIRST = 0

Private Const GW_HWNDNEXT = 2

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Sub FillChild(hWndParent As Long)

Dim hWndChild As Long

Dim szCaption As String

Dim buffer As String

Dim i As Long

hWndChild = GetWindow(hWndParent, GW_CHILD)

If (hWndChild = 0) Then Exit Sub

hWndChild = GetWindow(hWndChild, GW_HWNDFIRST)

If hWndChild = 0 Then Exit Sub

While (hWndChild 0)

szCaption = String$(255, 0)

GetClassName hWndChild, szCaption, 250

szCaption = Left$(szCaption, InStr(szCaption, String$(1, 0)) - 1)

buffer = CStr(hWndChild) "--" szCaption

i = GetWindowTextLength(hWndChild)

szCaption = String$(255, 0)

GetWindowText hWndChild, szCaption, 250

szCaption = Left$(szCaption, i)

buffer = buffer "--" szCaption

List1.AddItem buffer

FillChild hWndChild

hWndChild = GetWindow(hWndChild, GW_HWNDNEXT)

Wend

End Sub

Private Sub GetChildWindow(hwnd As Long)

Dim szCaption As String

Dim buffer As String

Dim i As Long

List1.Clear

szCaption = String$(255, 0)

GetClassName hwnd, szCaption, 250

szCaption = Left$(szCaption, InStr(szCaption, String$(1, 0)) - 1)

buffer = CStr(hwnd)

buffer = buffer "--" szCaption

i = GetWindowTextLength(hwnd)

szCaption = String$(255, 0)

GetWindowText hwnd, szCaption, 250

szCaption = Left$(szCaption, i)

buffer = buffer "--" szCaption

List1.AddItem buffer

FillChild hwnd

End Sub

調(diào)用方法

GetChildWindow hwnd'hwnd是指定的窗口句柄

結(jié)果以

窗體句柄--窗體類名稱--窗體Text

形式列在列表框List1中

VB.NET中的模塊

在C#中有 靜態(tài)類 的概念 自然里邊全部的方法都是靜態(tài)的 這意味著你可以直接通過(guò) 類名 方法名 去調(diào)用（例如System的Math類就是典型） 在VB NET中 沒(méi)有 靜態(tài)類 的概念（當(dāng)然你可以用 單例模式 把構(gòu)造函數(shù)弄成Private的方式 其它方法都是靜態(tài)的）如果某些方法需要被其它地方頻繁使用 可以創(chuàng)建 模塊 在VB NET中一旦創(chuàng)建了模塊 其中任何方法 屬性或者變量都可以被其它地方引用 因此適合全局情況下頻繁交互的情況（比如初始化加載的參數(shù) 可能后續(xù)程序要使用）等

現(xiàn)在問(wèn)題在于 如果你把一個(gè)類似以下的模塊代碼封裝成DLL類庫(kù) 無(wú)論在C#或者是VB NET中都無(wú)法引用到其方法

Module A

Public Sub Test()

End Sub

End Module

或許你感到很奇怪——不是在VB NET中這樣定義一個(gè)Module就直接可以使用其內(nèi)部方法了么？為什么封裝成類庫(kù)就不可以了呢？上網(wǎng)問(wèn)了一些人 眾說(shuō)紛紜 后來(lái)我在他人協(xié)助下終于成功解決了這個(gè)問(wèn)題——解決方法很簡(jiǎn)單——只要在Module前加Public

理由是 為了兼容C# VB NET由Module封裝成類庫(kù)中這個(gè)模塊不再是 模塊 而是一個(gè)標(biāo)準(zhǔn)的類了 如果這樣寫(xiě) 那么在 NET中被理解成(C#)

internal A

{

public void Test()

{

}

}

整個(gè)模塊變成Internal的了！當(dāng)然你到其它程序集中去引用就引用不到！而把類庫(kù)中的Module的修飾符改為Public就可以了 這就是MSDN那位友人給我最好的提示

雖然這個(gè)提示不是令我太滿意（因?yàn)橐繴B NET中可以直接不通過(guò) 類名 方式直接使用方法名） 但是這給了我很大的暗示 得出重要的結(jié)論

）VB NET中Module在制作成類庫(kù)時(shí)候等同于VB NET中的類的規(guī)則（里邊的方法都是靜態(tài)的） 默認(rèn)情況下是Friend（C#是internal）

）根據(jù)結(jié)論 那么我們知道引用該DLL類庫(kù)的方法一定是 i）引用命名空間? ii）C#中直接 類名 方法名 對(duì)于VB NET 直接可以引用到方法名

lishixinzhi/Article/program/net/201311/12502

vb.net 能不能枚舉字符串?

枚舉的值只能是整數(shù)，但是枚舉常量的名字本身就是字符串啊，舉例：

Private Enum weekdays

星期日 = 0

星期一

星期二

星期三

End Enum

然后：

MsgBox(weekdays.星期日) '顯示0

MsgBox(weekdays.星期日.ToString) '顯示星期日

vb.net怎么枚舉父窗口下所有子窗口

Dim HanStr As String = ""

For Each Form In Me.MdiChildren

HanStr += Form.Handle.ToString

Next

MsgBox(HanStr)