我想编写一个按钮,经过3次点击后,将用户链接到我的网站。前2个应该在文本框中生成一个代码,然后最后一个应该链接它们。这就是我到目前为止所拥有的
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(3)
If ProgressBar1.Value = 100 Then
TextBox1.Text = "Thank you"
Timer1.Stop()
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
Timer1.Start()
ElseIf RadioButton2.checked = True Then
Timer1.Start()
Else
TextBox1.Text = "Please Select Option"
End If
End Sub
答案 0 :(得分:0)
我不知道ProgressBar和Timer的用途是什么。但是如果你想知道用户点击按钮的次数,计数器变量就应该这样做。
Private _clickCounter As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
_clickCounter += 1
If _clickCounter = 3 Then
MsgBox("3 times")
_clickCounter = 0
'link to your site
Else
'generate code in textbox
End If
End Sub
答案 1 :(得分:0)
使用一个整数,每次单击该按钮时都会增加一个整数,并使用Select Case
语句来检测该按钮;
Dim NumberOfClicks As Integer = 0
Dim webAddress As String = "http://www.YourWebsite.com/"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
number = number + 1
Select Case number
Case 1
''''' Code for your textbox
Case 2
''''' Code for your textbox
Case 3
Process.Start(webAddress)
End Sub
这应该做。如果有帮助,请将我的答案标记为已解决。