vb点虐 怎么枚举父窗口下所有子窗口

Dim HanStr As String = ""

创新互联公司是一家专业提供玛曲企业网站建设,专注与网站设计制作、成都做网站、H5场景定制、小程序制作等业务。10年已为玛曲众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

For Each Form In Me.MdiChildren

HanStr += Form.Handle.ToString

Next

MsgBox(HanStr)

在vb点虐 中，如何枚举一个注册的组件其开放的COM类的接口函数。

为什么增加的回答这么久还没显示。

我想知道你为什么要枚举这些方法，是需要打印出来还是只是为了查看和调用？

1，如果只是为了查看和调用的话，不需要用代码就能知道了。

打开VS，视图－》对象浏览器。然后开了后，点浏览右边的“。。。”，开了后。选COM活页，再在里面选ThunderAgent 1.0 Type Library。再点添加。

添加好之后。在左边的浏览窗口内就有了，展开THUNDERAGENTLib下面有几个类和接口，展开类就有方法了。

2，如果是需要用代码枚举并打印。网上有相关的代码，C#写的。我就不帖了。自己搜一下。改成vb点虐 相信应该不会太难。

祝你好运。

VB.NET的枚举求教解决方法

这个功能实现起来其实也很简单，就是通过反射去读取 DescriptionAttribute 的 Description 属性的值，代码如下所示：

/// summary

/// 返回枚举项的描述信息。

/// /summary

/// param name="value"要获取描述信息的枚举项。/param

/// returns枚举想的描述信息。/returns

public static string GetDescription(Enum value)

{

Type enumType = value.GetType();

// 获取枚举常数名称。

string name = Enum.GetName(enumType, value);

if (name != null)

{

// 获取枚举字段。

FieldInfo fieldInfo = enumType.GetField(name);

if (fieldInfo != null)

{

// 获取描述的属性。

DescriptionAttribute attr = Attribute.GetCustomAttribute(fieldInfo,

typeof(DescriptionAttribute), false) as DescriptionAttribute;

if (attr != null)

{

return attr.Description;

}

}

}

return null;

}

这段代码还是很容易看懂的，这里取得枚举常数的名称使用的是 Enum.GetName() 而不是 ToString()，因为前者更快，而且对于不是枚举常数的值会返回 null，不用进行额外的反射。

当然，这段代码仅是一个简单的示例，接下来会进行更详细的分析。

vb点虐 实例化窗口后如何区分打开的窗口

If App.PrevInstance = True Then

End

End If

如果程序正在运行，结束程序。

在模块中加入每个窗口的标题变量。

然后用if then 来判断是否有相同窗口。

如果你事先不知道有哪些窗口的话，那你就用枚举 FindWindow来查找子窗口句柄。再用SendMessage 获得窗口标题再进行判断。