Hello World Variables If Statements Math Functions Form Properties The Progress Bar The Listbox The Radio
Button And The CheckBox The Menu Strip Linking Forms Log In Form
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show("Hello World", "Message Box Title") End Sub
End Class
Public Class Form1
Dim messagecontent As String = "Variables are so cool" Dim mynumber As Integer = 10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show(mynumber) End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "hello" Then Label1.Text = "world" End If End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show(20 + 5) MessageBox.Show(20 - 5) MessageBox.Show(20 * 5)
MessageBox.Show(20 / 5) End Sub
End Class
Form Properties
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ProgressBar1.Value = ProgressBar1.Value + 20 End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Add(TextBox1.Text) End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then MessageBox.Show("You are under 16!") ElseIf RadioButton2.Checked = True Then MessageBox.Show("You are over 16!") End If
If CheckBox1.Checked = True Then MessageBox.Show("You like Harry Potter, nerd") End If
If CheckBox2.Checked = True Then MessageBox.Show("What the hell, 2010 sucked") End If
If CheckBox3.Checked = True Then MessageBox.Show("the simpsons movie is a conspiracy dude") End If
End Sub
End Class
Public Class Form1
Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click MessageBox.Show("this is the help form") End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "password123" Then data.Show() Else MessageBox.Show("Wrong Password!") End If
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = 0
For i = 0 To 10
MessageBox.Show("The value of i is: " & i) Next
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num1 As Integer = 1
Do While num1 < 10 MessageBox.Show("The value of num1 is :" & num1) num1 = num1 + 1 Loop
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If MessageBox.Show("whatever", "whatever", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then MessageBox.Show("you clicked yes") Else MessageBox.Show("you clicked no") End If End Sub
End Class
