窗体上放两个text控件,一个按钮 然后拷贝下面的代码
Option Explicit
Dim StrTest As String
Private Sub Command1_Click()
Debug.Print StrTest
End Sub
Private Sub Form_Load()
Text1.Text = "test string 1"
Text2.Text = "test string 2"
End Sub
Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StrTest = Text2.Text
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StrTest = Text1.Text
End Sub