Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Text1
If Button = 0 Then
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
' 放入滑鼠離開的代碼
MsgBox "out"
Else
SetCapture .hWnd
End If
End If
End With
End Sub
這個是text1具有移入移出事件，如果表單上有text1(1),text(2),text3(),怎么改啊
uj5u.com熱心網友回復：
這個印象中去年有帖子討論過的啊：）uj5u.com熱心網友回復：
對的，有類似的帖子
我搬過來吧
N多TextBox處理相同事件的傳送門
uj5u.com熱心網友回復：
Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)With Text1(Index)
uj5u.com熱心網友回復：
如果能用控制元件陣列，就用控制元件陣列吧。不適合用控制元件陣列，就用蚜蟲的處理方法，也還是比較方便。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/125049.html
標籤：控件