| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 922 人关注过本帖
标题:这种效果怎么实现?
只看楼主 加入收藏
asad
Rank: 1
等 级:新手上路
威 望:1
帖 子:25
专家分:0
注 册:2019-12-6
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
这种效果怎么实现?
想达到这种效果,没选中文本框显示灰色文字,当选中文本框文字消失,代码怎么改?


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

搜索更多相关主题的帖子: 效果 文本框 选中 代码 选中 效果 文本框 代码 文字 文字 
2019-12-17 16:08
yingshu
Rank: 4
等 级:贵宾
威 望:10
帖 子:49
专家分:212
注 册:2018-7-24
收藏
得分:0 
窗体有控件会自动接受焦点,
窗体上再加个文本框,同样的事件
两个相互点击就能看到效果
2019-12-17 16:50
风吹过的VB
Rank: 2
等 级:论坛游民
帖 子:10
专家分:60
注 册:2019-12-18
收藏
得分: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
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2019-12-24
收藏
得分:0 
学习了!!!
2019-12-24 10:26
快速回复:这种效果怎么实现?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.058583 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved