Vb.net Visual Studio按钮事件

Vb.net Visual Studio按钮事件,vb.net,Vb.net,我想编码一个按钮,点击3次后,链接到我的网站的用户。前两个应该在文本框中生成代码,最后一个应该链接它们。这就是我目前所拥有的 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"

我想编码一个按钮,点击3次后,链接到我的网站的用户。前两个应该在文本框中生成代码,最后一个应该链接它们。这就是我目前所拥有的

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

我不知道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

使用一个整数,该整数在每次单击按钮时递增,并使用
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

这应该可以。如果有帮助,请将我的答案标记为已解决。

我发现人们会无缘无故地否决这篇文章。谢谢你的评论,我假设我可以用打开网页的命令替换关于消息框显示的部分?是的,你可以替换你想要的任何操作