網頁文章 javax.portlet.title.56

 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