چطور به وی بی بفهمونیم که فورم غیر فعال شد ه؟ [بایگانی]

hex161

شنبه 08 مرداد 1384, 03:08 صبح

با سلام .
من میخام به یکی از فورم های نرم افزارم این امکان رو بدم که وقتی کاربر ماوس رو بیرون از فورم برد یه کاری انجام بده مثالا یه پیغام بده.اما نتونستم این کار رو انجام بدم . لطفا منو راهنمایی کنید.
ممنون.

PalizeSoftware

شنبه 08 مرداد 1384, 03:15 صبح

اینم کدش:

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < 0 Or X > ScaleWidth Or Y < 0 Or Y > ScaleHeight Then
ReleaseCapture
Me.Caption = "OutSide"
Me.BackColor = QBColor(7)
Else
SetCapture Me.hwnd
Me.Caption = "InSide"
Me.BackColor = QBColor(15)
End If
End Sub

http://asefsoft.com/qsimages/177.gif