vb 测试

最新推荐文章于 2024-09-13 15:30:00 发布

ywbab751109

最新推荐文章于 2024-09-13 15:30:00 发布

阅读量588

点赞数

分类专栏： vb 应用文章标签： vb command integer string 测试

本文链接：https://blog.csdn.net/ywbab751109/article/details/6877214

版权

vb 应用专栏收录该内容

0 篇文章 0 订阅

订阅专栏

Dim WithEvents rtrg As ySubClass
'Picture2
Dim WithEvents dfd As ySubClass
Dim WithEvents erht As ySubClass

Private Sub Command1_Click()
Call rtrg.SubCalsszz(hWnd)
End Sub

Private Sub Command2_Click()
rtrg.zunSubClass
End Sub

Private Sub Command7_Click()
rtrg.zunSubClass
End Sub

Private Sub dfd_NewMsg(ByVal zhwnd As Long, zMsg As Long, zwParam As Long, zlParam As Long, Cancel As Boolean)
fr = 0
'Debug.Print "Hwnd " & zhwnd & " uMsg " & zuMsg & " wParam " & zwParam & " lParam " & zlParam
End Sub

Private Sub dfd_NewMsgChild(ByVal zhwnd As Long, zMsg As Long, zwParam As Long, zlParam As Long, Cancel As Boolean)
'Debug.Print "Hwnd " & zhwnd & " uMsg " & zuMsg & " wParam " & zwParam & " lParam " & zlParam
End Sub

Private Sub erht_NewMsgB(ByVal zhwnd As Long, zMsg As Long, zwParam As Long, zlParam As Long, Cancel As Boolean)
'Debug.Print "Hwnd " & zhwnd & " uMsg " & zMsg & " wParam " & zwParam & " lParam " & zlParam
End Sub

Private Sub Form_LinkClose()

End Sub

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)

End Sub

'Private Sub dfd_NewMsgChild(ByVal Chwnd As Long, CMessage As Long, CwParam As Long, ClParam As Long, Cancel As Boolean)
'     Debug.Print "Hwnd   " & Chwnd & " uMsg " & CMessage & "   wParam " & CwParam & "   ClParam " & zlParam
'End Sub
        Private Sub Form_Load()
        Me.Top = 1200
        Me.Left = -4500
'           Set rtrg = New ySubClass
'         Call rtrg.SubCalsszz(hWnd)       'Call rtrg.zSubClass(Picture1.Hwnd, rtrg)
         Set dfd = New ySubClass
         Call dfd.SubCalsszz(Picture2.hWnd)
'         Set erht = New ySubClass
'         Call erht.SubCalsszz(Picture3.hWnd)
'       Call erht.SubCalssB(Picture1.hWnd, True)
         Text1 = "Text1.hwnd " & Text1.hWnd
        Text2 = "Picture1.hwnd " & Picture1.hWnd
        Text3 = "Command1.hwnd " & Command1.hWnd