Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.17.150.89] |
|
Сообщ.
#1
,
|
|
|
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Public Event MouseOver() Public Event MouseOut() Dim CtrMov As Boolean Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) With UserControl If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then ReleaseCapture CtrMov = False RaiseEvent MouseOut Else If CtrMov = False Then SetCapture .hwnd CtrMov = True RaiseEvent MouseOver End If End If End With End Sub |