用VB编程怎样使鼠标在一文本框时上面出现自己指定的字，离开时又消失？

来源：百度知道 编辑：UC知道 时间：2024/06/17 18:13:08
如我想使鼠标放在一文本框text1上text1.text="..."离开时消失并显示原来文本框上的字，怎么写代码？
谢谢！！！
我初学者，能详细点更好，谢谢！

新建一个EXE工程

在窗体上放个文本框
编辑如下代码:

Dim S As String
Private Sub Form_Load()
S = "默认原来的文本"
Text1.Text = S
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = S
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "鼠标移入时要显示的文本"
End Sub

用mouseup事件