1楼：匿名用户
'枚举本窗体内所有控件的类名
'添加 ***mand1
'再随便添加几个控件
private declare function getclassname lib "user32" alias "getclassnamea" (byval hwnd as long, byval lpclassname as string, byval nmaxcount as long) as long
dim i%, jj%
private sub ***mand1_click()
on error resume next
jj = me.controls.count
me.cls
for i = 0 to me.controls.count - 1
'if me.controls(i).name = "text1" then msgbox getclassnm(me.controls(i).hwnd)
print me.controls(i).name & "---" & getclassnm(me.controls(i).hwnd)
next i
end sub
function getclassnm(winwnd as long) as string
dim ret$, retval&, lpclassname$
lpclassname = space(256)
retval = getclassname(winwnd, lpclassname, 256)
getclassnm = left(lpclassname, retval)
end function
2楼：匿名用户
一段简单的示例**.
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 findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
private sub ***mand1_click()
dim lpclassname as string
dim chwnd as long
dim rh as long
dim lhwnd as long
shell "calc.exe"
chwnd = findwindow(vbnullstring, "计算器")
lpclassname = space(255)
getclassname chwnd, lpclassname, 255
text1.text = lpclassname
end sub
3楼：匿名用户
你写错了啊好象是大小的问题把hwnd换成
me.hwnd
易语言正则表达式问题或者用文本批量取中间也行
1楼 全是浮云淡定 正则 创建 1814 0 0 1814 mvbfkjzwg 163 宀稿 阍五緳 e640c025768482af4c33e231fec010f6 0 0 0 0 0 10 0 1364831627 2 0 9999 2 1 0 0 0 0 这样看不清 复制到易去看 2楼 匿名用...
通常取名用“云”字，有哪些含义,人名中有“云”字，请问这个云字有什么含义?
1楼 压力山大 个人建解，希望本人将来在成长得道路上，运仕行云流水般的顺利！得风顺利，高高在上！是个好喻意。 耘字取名好不好，还是云字好点呢？ 2楼 匿名用户 你好，这个名字不太好换一个，希望能帮助你 腾 宙的读音是t ng zh u，音律优美，朗朗上口。 字义 腾，跳跃，奔驰，上升。宙，指宇宙。意...