Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form2.Visible = False
Dim ans As String = ""
TextBox1.Text = "LEI HOI MENG"
MaskedTextBox1.Text = "F5B"
Label1.Text = "Name"
Label2.Text = "Class"
Label3.Text = "Sex"
Label4.Text = "Birth"
Label5.Text = "Hobby"
MaskedTextBox1.Mask = "F0L"
For a As Integer = 1 To 50
ComboBox1.Items.Add(a + 1980)
Next
For a As Integer = 1 To 12
ComboBox2.Items.Add(a)
Next
For a As Integer = 1 To 31
ComboBox3.Items.Add(a)
Next
ComboBox1.Text = "1999"
ComboBox2.Text = "1"
ComboBox3.Text = "19"
RadioButton1.Text = "Male"
RadioButton2.Text = "Female"
RadioButton1.Select()
CheckBox1.Text = "Football"
CheckBox2.Text = "Basketball"
CheckBox3.Text = "Volley Ball"
CheckBox4.Text = "badminton"
CheckBox5.Text = "table tennis"
CheckBox6.Text = "tennis"
CheckBox1.Checked = True
CheckBox3.Checked = True
CheckBox5.Checked = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim op As String = ""
Dim nL As String = Chr(13)
Dim nT As String = Chr(9)
op = op & Label1.Text & nT & TextBox1.Text & nL
op = op & Label2.Text & nT & MaskedTextBox1.Text & nL
op = op & Label3.Text & nT
If RadioButton1.Checked = True Then
op &= RadioButton1.Text
End If
If RadioButton2.Checked = True Then
op &= RadioButton2.Text
End If
op &= nL
op &= Label4.Text & nT
op &= ComboBox1.Text & "/" & ComboBox2.Text & "/" & ComboBox3.Text
op &= nL
op &= Label5.Text & nT
For a As Integer = 1 To 6
Dim cb As CheckBox
cb = Me.Controls("CheckBox" & a)
If cb.Checked = True Then
op &= cb.Text & ","
End If
Next
MsgBox(op)
End Sub
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 3
Me.Controls("Button" & i).Text = i
Me.Controls("Button" & i).Tag = i
Me.Controls("Label" & i).Text = ""
Me.Controls("Label" & i).Tag = i
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
Dim btn As Button
btn = CType(sender, Button)
Me.Controls("label" & btn.Tag).text = btn.Tag
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim mg As Graphics = e.Graphics
Dim pen1 As New Pen(Color.Red, 3)
mg.DrawEllipse(pen1, 100, 100, 200, 100)
mg.DrawLine(pen1, 100, 100, 100, 200)
mg.DrawLine(pen1, 100, 200, 300, 200)
mg.DrawLine(pen1, 300, 200, 300, 100)
mg.DrawLine(pen1, 300, 100, 100, 100)
End Sub
End Class
|
