|
Подскажите как определить есть ли событие.
---------------------------------------------------
Например
dim MouseInObject as boolean
Object_MouseMove(B,S,X,Y)
if not MouseInObject then MouseInObject=True:timer1.interval=1
End Sub Timer1_Timer
if "Not Object_MouseMove" then MouseInObject=False:timer1.interval=0
End Sub или скажем в классе отловить это событие
------------------------------------------------
Private clsLbl1 As New Class1 'Модуль формы
Private Sub Form_Load()
Set clsLbl1.LblCtl = Label1
End Sub Private WithEvents lbl As Label 'модуль класса
Public Property Set LblCtl(OutsideLabel As Label)
Set lbl = OutsideLabel
End Property
Sub lbl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbl.ToolTipText = "X:" & X & " Y:" & Y
End Sub
Можно ли создать Event WasMouseMove(), а потом проверить его из формы ?
------------------------------------------------
Или может можно как-нибудь через EventInfo, EventParameter, EventParameters ? Примеров отлавливающих есть ли событие я не нашёл. Может кто из личного опыта ?
Ответить
|
CyRax 
| Web-сайт: basicproduction.nm.ru | ICQ: 204447456