根据子句柄取得主窗体句柄

0 Reply , Posted in 程序代码 on 2016 08, 2016

Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
List1.Clear
1:
Text2 = GetParent(Text1) 'text1为子句柄,text2为上一层控件的句柄
If Text2 <> 0 Then '如果不是主窗体句柄
List1.AddItem Text2
Text1 = Text2
Text2 = ""
GoTo 1: '则跳转到标签1:处
End If
End Sub
'---------------------根据子句柄取得主窗体句柄---------------------

'原理:根据子句柄获得上一层控件的句柄,如果上一层句柄为0,则这一层句柄就是主窗体句柄
'Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
'Private Sub Command1_Click()
'List1.Clear
'List1.AddItem GetParent(Text1) 'text1为子句柄
'End Sub

标签:     

相关推荐

vb读取access并且显示  (2017-5-11 9:18:27)

VB 获取CPU温度示例  (2017-5-8 10:35:11)

VB程序逆向反汇编常见的函数   (2017-5-8 10:32:0)

VB内嵌汇编的模块示例  (2017-5-8 10:24:4)

内存数据的读写(PC)   (2017-3-1 17:51:40)

用VB制作外挂   (2017-3-1 16:16:53)

发表评论:



◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

                       

  鄂公网安备 42112502000156号     鄂ICP备16019550号