这种效果怎么实现？ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 这种效果怎么实现？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2537 人关注过本帖

标题：这种效果怎么实现？

只看楼主加入收藏

asad

等　级：新手上路
威　望：1
帖　子：68
专家分：0
注　册：2019-12-6
结帖率：66.67%

楼主

已结贴√ 问题点数：20 回复次数：3

这种效果怎么实现？

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

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

搜索更多相关主题的帖子: 效果　文本框　选中　代码　选中　效果　文本框　代码　文字　文字　

2019-12-17 16:08

yingshu

等　级：贵宾
威　望：10
帖　子：49
专家分：212
注　册：2018-7-24

第 2 楼

得分:0

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

2019-12-17 16:50

风吹过的VB

等　级：论坛游民
帖　子：10
专家分：60
注　册：2019-12-18

第 3 楼

得分:20

程序代码：

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

dasdaa

等　级：新手上路
威　望：2
帖　子：40
专家分：0
注　册：2019-12-24

第 4 楼

得分:0

学习了！！！

2019-12-24 10:26

快速回复：这种效果怎么实现？