Question

VB怎么判断鼠标左右键

我在VB中
我在一个控件上
比如说，image1一个 text1一个
我怎么才能在image1上单击右键text1中的数加一
在image1上单击左键text1中的数减一

请知道的高手告诉我下
谢谢了

Answer 1

建议不要用image1，当然按照你的需要，如下实现

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = MouseButtonConstants.vbRightButton Then
Text1.Text = Val(Text1.Text) + 1
ElseIf Button = MouseButtonConstants.vbLeftButton Then
Text1.Text = Val(Text1.Text) - 1
End If
End Sub

Answer 2

建一个image1,text1,然后复制就可以了。
Option Explicit
Dim i&

Private Sub Form_Load()
Text1.Text = 20
i = Val(Text1.Text)
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
If Button = 1 Then
i = i - 1
Text1.Text = Str(i)
ElseIf Button = 2 Then
i = i + 1
Text1.Text = Str(i)
End If
End Sub