vb.net枚举模块 枚举窗口

关于VB中的枚举类型

应该是1

创新互联主要从事成都网站设计、做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务田家庵,十年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792

定义了一个枚举类型Days,它包括7个成员，都省略了“常数表达式”，因此常数Sunday的值为0，

常数Monday的值为1，常数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

调用方法

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

结果以

窗体句柄--窗体类名称--窗体Text

形式列在列表框List1中

VB.NET中的模块

在C#中有 静态类 的概念 自然里边全部的方法都是静态的 这意味着你可以直接通过 类名 方法名 去调用（例如System的Math类就是典型） 在VB NET中 没有 静态类 的概念（当然你可以用 单例模式 把构造函数弄成Private的方式 其它方法都是静态的）如果某些方法需要被其它地方频繁使用 可以创建 模块 在VB NET中一旦创建了模块 其中任何方法 属性或者变量都可以被其它地方引用 因此适合全局情况下频繁交互的情况（比如初始化加载的参数 可能后续程序要使用）等

现在问题在于 如果你把一个类似以下的模块代码封装成DLL类库 无论在C#或者是VB NET中都无法引用到其方法

Module A

Public Sub Test()

End Sub

End Module

或许你感到很奇怪——不是在VB NET中这样定义一个Module就直接可以使用其内部方法了么？为什么封装成类库就不可以了呢？上网问了一些人 众说纷纭 后来我在他人协助下终于成功解决了这个问题——解决方法很简单——只要在Module前加Public

理由是 为了兼容C# VB NET由Module封装成类库中这个模块不再是 模块 而是一个标准的类了 如果这样写 那么在 NET中被理解成(C#)

internal A

{

public void Test()

{

}

}

整个模块变成Internal的了！当然你到其它程序集中去引用就引用不到！而把类库中的Module的修饰符改为Public就可以了 这就是MSDN那位友人给我最好的提示

虽然这个提示不是令我太满意（因为要知道VB NET中可以直接不通过 类名 方式直接使用方法名） 但是这给了我很大的暗示 得出重要的结论

）VB NET中Module在制作成类库时候等同于VB NET中的类的规则（里边的方法都是静态的） 默认情况下是Friend（C#是internal）

）根据结论 那么我们知道引用该DLL类库的方法一定是 i）引用命名空间  ii）C#中直接 类名 方法名 对于VB NET 直接可以引用到方法名

lishixinzhi/Article/program/net/201311/12502

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

枚举的值只能是整数，但是枚举常量的名字本身就是字符串啊，举例：

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)