Question

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

我翻译下我想表达的意思

If "Pricate sub command3_click()" Then /如果点击command3按钮，则

Text1.BackColor = RGB(225, 0, 0) /Text1的 背景色为红色

End If

我想表达这样的意思，但是说出错。 我就是想做一个点击不同颜色的按钮，然后改变文本框的背景色。

如何做？

Answer 1

程序界面上有几个按钮,分别代表了不同的颜色,点击不同的按钮,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

Answer 2

看了半天,我猜你是想实现如下功能,程序界面上有几个按钮,分别代表了不同的颜色,点击不同的按钮,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

Answer 3

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

End Sub

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

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

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

Answer 4

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