怎样遍历别的程序窗体上的所有控件？

[sjtuyjc]

可以办到吗？

[e-mail]

[lilaclone]

Private Sub Form_Load()
Dim uControls As Control
For Each uControls In Form1'窗体名称
MsgBox uControls.Name
Next
End Sub

[strongfisher]

Dim vnt As Control
For Each vnt In Me.Controls
msgbox vnt.name
Next

[yijiansong]

DIM CS AS OBJECT
FOR EACH CS IN CONTROLS
。。。。
NEXT

[yijiansong]

DIM CS AS Control

FOR EACH CS IN CONTROLS
。。。。
NEXT

[sjtuyjc]

请注意，是别的程序窗体

[goodname008]

EnumChildWindows

VB声明
Declare Function EnumChildWindows Lib "user32" Alias "EnumChildWindows" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
说明
为指定的父窗口枚举子窗口
返回值
Long，非零表示成功，零表示失败
参数表
参数 类型及说明
hWndParent Long，欲枚举子窗口的父窗口的句柄
lpEnumFunc Long，为每个子窗口调用的函数的指针。用AddressOf运算符获得函数在一个标准模块中的地址
lParam Long，在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的。（原文：Value that is passed to the EnumWindows event of the dwcbkd32.ocx custom control during enumeration. The meaning of this value is defined by the programmer.）
注解
在vb4下要求dwcbkd32.ocx定制控件。子窗口下属的子窗口也可由这个函数枚举

[lsm0959]

什么父窗体子窗体的，人家说了是别的“程序”啊

[MSSQL]

spy++

[lsm0959]

试过了， goodname008(卢培培，LPP Software) 的方法可以
不过我只能得到它的caption或classname，

再指点一下吧，怎么得到控件名呢？

[goodname008]

http://www.800down.com/view.asp?id=1412
我编的一个软件，叫窗口间谍，类似于SPY++，但是中文的，你可以下载看看。

能告诉我你要做什么吗？控件名？得到类名，标题和句柄还不够吗？ :)

[lsm0959]

因为类名和标题出现重复的机率很大，而句柄每次都不同，
所以我才会觉得似乎只有得到控件名才能确保每次都能找到目标控件，

你能告诉我你是怎样确定的吗？（你贴的链接暂时没法看，在网吧上网不能下载）

[kmzs]

从局柄返回控件名可能吗？

[goodname008]

我贴的链接是一个我已经编好的软件，主要是用通过拖动鼠标，用鼠标定位控件。

[goodname008]

得到控件名好像不太现实啊？！
得到类名和标题好像就不错了，控件有些太局限于VB了。
想想看，如果你说的程序是用汇编编的（当然可能性不大），那怎么可能获得控件名？

[pigpag]

不行！

最多只能EnumChildWindows了。对象的封装仅对内部可见。

除非对方提供接口，这种可能性是非常低的。