我想实现这个功能。我鼠标点击上图任何一个文本框，这一行所有的文本框背景色
都变成绿色。如何实现，谢谢！

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

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

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

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

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

使用 MSHFlexGrid 表格控件

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