这种效果怎么实现？
想达到这种效果，没选中文本框显示灰色文字，当选中文本框文字消失，代码怎么改？[此贴子已经被作者于2019-12-19 13:41编辑过]
[此贴子已经被作者于2019-12-19 13:41编辑过]
2019-12-17 16:08
2019-12-17 16:50
程序代码：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
2019-12-18 16:17
2019-12-24 10:26