08-07-13, 01:10 AM
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Integer) As Long
Private Sub txt_Customer_MouseEnter(sender As Object, e As EventArgs) Handles txt_Customer.MouseEnter, txt_fax.MouseEnter, txt_Mobile.MouseEnter, txt_Phone1.MouseEnter, txt_Phone2.MouseEnter, txt_Zatea_id.MouseEnter
SetCapture(Me.Handle)
End Sub
ربما هناك طرق اكثر فعالية ولكن هذا ما وجدته اثناء بحثي قبل فترة لتنفيذ هذا الامر
Private Sub txt_Customer_MouseEnter(sender As Object, e As EventArgs) Handles txt_Customer.MouseEnter, txt_fax.MouseEnter, txt_Mobile.MouseEnter, txt_Phone1.MouseEnter, txt_Phone2.MouseEnter, txt_Zatea_id.MouseEnter
SetCapture(Me.Handle)
End Sub
ربما هناك طرق اكثر فعالية ولكن هذا ما وجدته اثناء بحثي قبل فترة لتنفيذ هذا الامر
