Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ans As String = "your answer is "
If CheckBox1.Checked Then PictureBox1.Image = WindowsApplication1.My.Resources.Resources.Koala
If CheckBox2.Checked Then PictureBox1.Image = WindowsApplication1.My.Resources.Resources.Desert
If CheckBox3.Checked Then PictureBox1.Image = WindowsApplication1.My.Resources.Resources.Jellyfish
If CheckBox4.Checked Then PictureBox1.Image = WindowsApplication1.My.Resources.Resources.Hydrangeas
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = " 2. ASCII 01000010 代表"
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = " 2. ASCII 01000010 代表"
If CheckBox1.Checked Then PictureBox1.Image = WindowsApplication1.My.Resources.Resources.Koala
If CheckBox2.Checked Then PictureBox1.Image = WindowsApplication1.My.Resources.Resources.Desert
If CheckBox3.Checked Then PictureBox1.Image = WindowsApplication1.My.Resources.Resources.Jellyfish
If CheckBox4.Checked Then PictureBox1.Image = WindowsApplication1.My.Resources.Resources.Hydrangeas
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class