2. Disini saya menggunakan button1,button2,button3,button4,label1,label2,dan label3
3. Masukkan listing program pada button1, seperti dibawah ini:
Public Class Form6
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim test1 As String
test1
= "nusantara"
Label1.Text = test1.ToString
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim test2 As String
test2
= "indonesia"
Label2.Text = test2.ToString
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Dim test3 As String
test3
= "tanah airku"
Label3.Text = test3.ToString
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
End
End Sub
End Class
HASIL:
HASIL:


0 komentar:
Posting Komentar