VB如何写鼠标点击的代码？

程序界面上有几个按钮,分别代表了不同的颜色,点击不同的按钮,text1.backcolor显示相应的颜色.如果是这样的话,就可以这样编写代码:Private Sub Command1_Click()
Text1.BackColor = RGB(255, 0, 0)
End Sub

Private Sub Command2_Click()
Text1.BackColor = RGB(0, 255, 0)
End Sub

Private Sub Command3_Click()
Text1.BackColor = RGB(0, 0, 255)
End Sub
你也可以用一个按钮实现颜色的循环变换.
Dim i As Integer
Private Sub Form_Load()
i = 1
End Sub
Private Sub Command4_Click()
If i = 1 Then
Text1.BackColor = RGB(255, 0, 0)
i = i + 1
ElseIf i = 2 Then
Text1.BackColor = RGB(0, 255, 0)
i = i + 1
Else
Text1.BackColor = RGB(0, 0, 255)
i = 1
End If
End Sub

看了半天,我猜你是想实现如下功能,程序界面上有几个按钮,分别代表了不同的颜色,点击不同的按钮,text1.backcolor显示相应的颜色.如果是这样的话,就可以这样编写代码:Private Sub Command1_Click()
Text1.BackColor = RGB(255, 0, 0)
End Sub

Private Sub Command2_Click()
Text1.BackColor = RGB(0, 255, 0)
End Sub

Private Sub Command3_Click()
Text1.BackColor = RGB(0, 0, 255)
End Sub
你也可以用一个按钮实现颜色的循环变换.
Dim i As Integer
Private Sub Form_Load()
i = 1
End Sub
Private Sub Command4_Click()
If i = 1 Then
Text1.BackColor = RGB(255, 0, 0)
i = i + 1
ElseIf i = 2 Then
Text1.BackColor = RGB(0, 255, 0)
i = i + 1
Else
Text1.BackColor = RGB(0, 0, 255)
i = 1
End If
End Sub

Private Sub Command1_Click()
Me.Text1.BackColor = vbRed

End Sub

放一个按钮，再放一个文本框 ，双击按钮，则生成 command1_click事件

如果按这个按钮，则text1.backColor 会变成红色

你的思路不对，windows是消息机制的，你不能预知消息，但发生了消息，就一定有办法处理。

文本框的颜色不能改变吧
你试试把文本框换成标签或者image