Need Help With Text box Disable
My text box changes to 6 when buttons click to fast
but all the codes revolve around 5 so how do i make that textbox1 disables with 5
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
intTimerCounter = intTimerCounter + 1
Label2.Text = intTimerCounter
If intTimerCounter = 30 Then
Button1.Enabled = False
Button2.Enabled = False
TextBox1.Enabled = False
Timer1.Stop()
End If
If TextBox1.Text = 5 Then
TextBox1.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Timer1.Stop()
Form4.Show()
End If
ProgressBar1.Value = TextBox1.Text
ProgressBar1.Maximum = 5
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
End If
End Sub
Re: Need Help With Text box Disable
Re: Need Help With Text box Disable
Public Class Form1
Dim intCounter As Integer = 0
Dim intTimerCounter As Integer = 0
Dim value As String
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Form2.Close()
End Sub
Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Enabled = True
intCounter = 0
intTimerCounter = intCounter
Button1.Enabled = True
Button2.Enabled = False
TextBox1.Text = intCounter
Timer1.Enabled = True
End Sub
Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Application.Exit()
End Sub
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.BackColor = Color.Transparent
Label2.BackColor = Color.Transparent
Label3.BackColor = Color.Transparent
Button1.Enabled = False
Button2.Enabled = False
Label2.Enabled = False
Form5.Hide()
End Sub
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
intCounter = intCounter + 1
TextBox1.Text = intCounter
Button1.Enabled = False
Button2.Enabled = True
End Sub
Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
intCounter = intCounter + 1
TextBox1.Text = intCounter
Button1.Enabled = True
Button2.Enabled = False
End Sub
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
intTimerCounter = intTimerCounter + 1
Label2.Text = intTimerCounter
If intTimerCounter = 30 Then
Button1.Enabled = False
Button2.Enabled = False
TextBox1.Enabled = False
Timer1.Stop()
End If
ProgressBar1.Value = TextBox1.Text
ProgressBar1.Maximum = 5
If TextBox1.Text = 5 Then
ProgressBar1.Value = ProgressBar1.Maximum
Timer1.Stop()
TextBox1.Enabled = False
Button1.Enabled = False
Button2.Enabled = False
Form4.Show()
End If
End Sub
End Class