| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 316 人关注过本帖
标题:鼠标选中文本框背景颜色改变的问题
只看楼主 加入收藏
chen3bing
Rank: 2
等 级:论坛游民
帖 子:191
专家分:79
注 册:2008-11-12
结帖率:87.27%
  已结贴   问题点数:10  回复次数:5   
鼠标选中文本框背景颜色改变的问题

我想实现这个功能。我鼠标点击上图任何一个文本框,这一行所有的文本框背景色
都变成绿色。如何实现,谢谢!
附件: 您没有浏览附件的权限,请 登录注册
2019-01-17 16:27
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:2 
每行文本框一个文本数组
Private Sub Text1_Click(Index As Integer)
  FOR I=0 TO 4  
  Text1(i).BackColor = vbgreen'点击的黄色
  Text2(i).BackColor = vbWhite'没点击的白色
  next
End Sub

也可以设置个行的变量cur_color,默认可以设置为第一行
点击某行,先清除cur_color行背景,在cur_color=某行,设置某行颜色为绿色




[此贴子已经被作者于2019-1-17 18:52编辑过]

2019-01-17 18:49
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:83
帖 子:851
专家分:4433
注 册:2016-5-10
  得分:4 
每一列是一个文本框数组控件,应该是比较容易实现的。

程序代码:

Dim xx1 As Integer

Private Sub Form_Load()
For i = 0 To 6
Text1(i).Text = "2017-01-17"
Text2(i).Text = "拉伸12"
Text3(i).Text = "圆材(mm)"
Text4(i).Text = "18"
Text5(i).Text = "50"
Next i
End Sub

Private Sub Text1_Click(Index As Integer)
xx1 = Index
Call GY
End Sub

Private Sub Text2_Click(Index As Integer)
xx1 = Index
Call GY
End Sub

Private Sub Text3_Click(Index As Integer)
xx1 = Index
Call GY
End Sub

Private Sub Text4_Click(Index As Integer)
xx1 = Index
Call GY
End Sub

Private Sub Text5_Click(Index As Integer)
xx1 = Index
Call GY
End Sub

Private Sub GY()
For i = 0 To 6
Text1(i).BackColor = &HFFFFFF
Text2(i).BackColor = &HFFFFFF
Text3(i).BackColor = &HFFFFFF
Text4(i).BackColor = &HFFFFFF
Text5(i).BackColor = &HFFFFFF
Next i
Text1(xx1).BackColor = &H109901
Text2(xx1).BackColor = &H109901
Text3(xx1).BackColor = &H109901
Text4(xx1).BackColor = &H109901
Text5(xx1).BackColor = &H109901
End Sub
附件: 您没有浏览附件的权限,请 登录注册
2019-01-17 23:14
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:236
帖 子:4349
专家分:26559
注 册:2008-10-15
  得分:2 
很新的新手吗? 那就这样的操作。

如果是老手,二个建议
1、使用 listview 控件,或者其他网络控件。listview好控制一点。
2、使用图片框,使用 print 输出文字 来自定义显示界面。



授人于鱼,不如授人于渔
早已停用QQ了
2019-01-18 11:45
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:57
专家分:193
注 册:2016-9-28
  得分:2 
使用 MSHFlexGrid 表格控件
2019-01-18 14:12
chen3bing
Rank: 2
等 级:论坛游民
帖 子:191
专家分:79
注 册:2008-11-12
  得分:0 
回复 3楼 ZHRXJR
我试了一下你的回复,感觉效果不错。
可是老板说,选中一行,点击删除,可以删除一行。
怎么搞?谢谢!我太菜了
2019-01-18 14:47







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

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