E eye0eye Unregistered / Unconfirmed GUEST, unregistred user! 2009-05-05 #1 Dim WithEvents hk As cHotKey '为什么要用withevents？Private Sub Form_Load() Set hk = New cHotKey 'hk = new 是什么？ With hk …… End WithEnd Sub
Dim WithEvents hk As cHotKey '为什么要用withevents？Private Sub Form_Load() Set hk = New cHotKey 'hk = new 是什么？ With hk …… End WithEnd Sub
W wql Unregistered / Unconfirmed GUEST, unregistred user! 2009-05-05 #2 Dim WithEvents hk As cHotKey // 这个无法翻译，只能是一个意思Private Sub Form_Load() Set hk = New cHotKey 'hk = new 是什么？ With hk …… End WithEnd SubVar hk:thandle;begin 注册热件，或用thotkey空间的意思，呵呵！end;
Dim WithEvents hk As cHotKey // 这个无法翻译，只能是一个意思Private Sub Form_Load() Set hk = New cHotKey 'hk = new 是什么？ With hk …… End WithEnd SubVar hk:thandle;begin 注册热件，或用thotkey空间的意思，呵呵！end;
