如何通过一个窗口句柄得到一个窗口对象,在vb中的form对象

解决方案 »

  1.   

    For i = 0 To Forms.Count - 1
        If Forms(i).hWnd = yourHandle Then
             MsgBox Forms(i).Name
             Exit For
        End If
    Next i
      

  2.   

    你的forms是什么,集合,我怎么找不到,难道要自己记录
      

  3.   

    forms 是 VB 内部集合。使用就是了。Private Sub Form_Click()
    Load Form2
    Load Form3
    yourHandle = Form2.hWndFor i = 0 To Forms.Count - 1
        If Forms(i).hWnd = yourHandle Then
             MsgBox Forms(i).Name
             Exit For
        End If
    Next i
     
    Unload Form2
    Unload Form3
    End Sub