StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>Public Class Form_welcome Dim Count As Integer</p> <pre><code>Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Admin_Login.Show() Me.Hide() End Sub Private Sub Form_welcome_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Application.Exit() End Sub Private Sub Form_welcome_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button4.Hide() Button5.Hide() Button6.Hide() 'Timer1.Enabled = True 'Label2.Text = Count 'Timer1.Interval = 1000 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Count -= 1 'Label2.Text = Count If (Count = -1) Then Timer1.Enabled = False Label3.Show() Label3.Hide() Label2.Hide() Button4.Show() Button5.Show() Button6.Show() PictureBox4.Hide() PictureBox3.Show() pict1.Show() pict2.Show() pict3.Show() pict4.Show() Button2.Hide() End If If (Count Mod 3) = 0 Then Label2.Text = "Captured!" Else Label2.Text = Count End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Count = 12 Timer1.Enabled = True Label2.Text = Count Label2.Show() Timer1.Interval = 1000 End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Application.Exit() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Button2.Show() Button4.Hide() Button5.Hide() Button6.Hide() PictureBox3.Hide() pict1.Hide() pict2.Hide() pict3.Hide() pict4.Hide() PictureBox4.Show() End Sub </code></pre> <p>End Class</p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload