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

我想实现这个功能。我鼠标点击上图任何一个文本框,这一行所有的文本框背景色
都变成绿色。如何实现,谢谢!
附件: 您没有浏览附件的权限,请 登录注册
2019-01-17 16:27
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望: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
等 级:版主
威 望:89
帖 子:862
专家分:4522
注 册: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
等 级:版主
威 望:242
帖 子:4368
专家分:26703
注 册:2008-10-15
  得分:2 
很新的新手吗? 那就这样的操作。

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



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







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

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