?? setmyparent.bas
字號:
Attribute VB_Name = "SetMyParent"
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Sub SetItParent(nChild As Long, nNewParent As Long)
Dim nRet As Long
nRet = SetParent(nChild, nNewParent)
If nRet = 0 Then
MsgBox "設置父窗體錯誤! ", vbInformation
Exit Sub
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -