[已解决]（求助）点击Textbox1时自动清空（VBA）

long826121 · 发表于 2011-8-8 19:33

效果.rar (5.93 KB, 下载次数: 11)

Zipall · 发表于 2011-8-8 19:57

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If TextBox1 = "在此输入" Then TextBox1 = ""
End Sub

那么的帅 · 发表于 2011-8-8 20:00

回复 long826121 的帖子

效果-1.rar (6.34 KB, 下载次数: 164)

兰色幻想 · 发表于 2011-8-8 20:06

Dim m
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If m = 1 Then TextBox1.Value = ""
m = 3
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = "在此输入"
m = 1
End Sub

兰色幻想 · 发表于 2011-8-8 20:06

m是模块级变量，放在最上面

long826121 · 发表于 2011-8-9 17:34

回复兰色幻想的帖子

感谢版主的回答！大家都回答正确！谢谢了！

long826121 · 发表于 2011-8-10 15:43

回复那么的帅的帖子

帅哥，帮帮我行吗？这个题有一定的难度，你看能实现不！感谢了！
http://www.excelpx.com/thread-190768-1-1.html

feiaoli · 发表于 2013-4-17 22:27

那么的帅发表于 2011-8-8 20:00
回复 long826121 的帖子

有用收藏了、、、、

qinhuan66 · 发表于 2013-6-18 09:28

好好学习天天向上

		自动登录	找回密码
密码			注册