编程论坛 → VB6论坛

这种效果怎么实现？

asad 发布于 2019-12-17 16:08， 2835 次点击

想达到这种效果，没选中文本框显示灰色文字，当选中文本框文字消失，代码怎么改？

[此贴子已经被作者于2019-12-19 13:41编辑过]

3 回复

yingshu2019-12-17 16:50

窗体有控件会自动接受焦点，
窗体上再加个文本框，同样的事件
两个相互点击就能看到效果

风吹过的VB2019-12-18 16:17

程序代码：

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.ForeColor = &H808080
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = ""
End Sub

dasdaa2019-12-24 10:26

学习了！！！