能否得知當前窗體是否有主窗體？

zhengjialon

RT!

chaosheng

看看 me.parent 是否錯誤

todaynew

Function test(frm As Form) As String
On Error GoTo err:
    test = frm.Parent.Name
err_exit:
    Exit Function
err:
    test = "無父對象"
    Resume err_exit:
End Function

Private Sub 主窗體測試_Click()
MsgBox test(Me.Form)
End Sub

Private Sub 子窗體測試_Click()
MsgBox test(Me.子窗體.Form)
End Sub

zhengjialon

謝謝！ 看來只能通過判斷是否有錯誤的方法了{:soso_e179:}

t小寶

主窗體還是父窗體？

zhengjialon

父窗體，我說錯了{:soso_e113:}

t小寶

zhengjialon 發(fā)表于 2011-11-30 12:22
謝謝！ 看來只能通過判斷是否有錯誤的方法了

不判斷錯誤也可以，用API：
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Sub Command0_Click()

    Dim lpClassName As String * 256
   
    If Left$(lpClassName, GetClassName(GetParent(Me.hwnd), lpClassName, 256)) = "OFormsub" Then
        MsgBox "有父窗體"
    Else
        MsgBox "沒有父窗體"
    End If

End Sub

zhengjialon

謝謝小寶，收藏了