控件事件

Question

可以建立一个hWnd对应表
传递给类模块中的函数去处理
再在类模块中触发事件可以参考：
http://zyl910vb.51.net/vb/gui/MouseLeave.htm
右击连接，目标另存为
注意把下载后的*.zip.jpg改名成*.zip

Answer 1

问题已解决,方法:一个 List.ctl
  
Event MyEvent
Private Sub UserContro1_Initialize()
   Module1.mhWnd=UserContro1.hWnd
   Module1.ListID=ObjPtr(Me)   
                 'ObjPtr函数为 Msvbm60.dll内部函数,不用声明.
   Module1.ListEvent=Module1.SetWindowLong(Module1.mhWnd,-4,
         AddressOf Module1.ListEventSub)
        'SetWindowLong API函数
End Sub
Friend Sub MyEvent()
   RaiseEvent MyEvent
End Sub一个 Module1.bas
  'API函数声明   SetWindowLong , CallWindowProc , CopyMemory
Punlic ListID&,mhWnd&,ListEvent&
Punlic Function ListEventSub( ByVal hWnd&,ByVal Msg&,
                             ByVal wParam&,ByVal lParam)
                              as Long
  Dim m_List as List     '不能 New
  if .... then     '加入你的条件
     CopyMemory m_List,ListID,4
     m_List.MyEvent
     CopyMemory m_List,0&,4
  End If
 ListEvenSub=CallWindowProc(ListEvent,hWnd,Mag,wParam,lParam)
end Function