鼠标选中文本框背景颜色改变的问题 - 编程论坛

#2

wds12019-01-17 18:49

每行文本框一个文本数组
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编辑过]

#3

ZHRXJR2019-01-17 23:14

每一列是一个文本框数组控件，应该是比较容易实现的。

只有本站会员才能查看附件，请登录

程序代码：

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

#4

风吹过b2019-01-18 11:45

很新的新手吗？那就这样的操作。

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

#5

suzhanpeng2019-01-18 14:12

使用 MSHFlexGrid 表格控件

#6

chen3bing2019-01-18 14:47

回复 3楼 ZHRXJR

我试了一下你的回复，感觉效果不错。
可是老板说，选中一行，点击删除，可以删除一行。
怎么搞？谢谢！我太菜了