Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChangedį = Me.ComboBox3.Textį = Me.ComboBox3.TextĨ. Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As ) Handles LinkLabel1.LinkClicked ![]() Selanjutnya, lakukan langkah yang sama seperti langkah ke-3 dan 5, ketik atau copy codding dibawah ini. ![]() Lakukan hal yang sama untuk form ke-2 seperti langkah ke-2, dengan 8 Label, 1 combobox dan 1 botton, seperti dibawah ini,ħ. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedĤ. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox("Password atau Username SALAH!", MsgBoxStyle.Critical) MsgBox("Your Logged", MsgBoxStyle.Information) If ProgressBar1.Value = ProgressBar1.Maximum Then If TextBox1.Text = "admin" And TextBox2.Text = "12345" Then Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ![]() Kemudian double klik form utama, dan ketikan coding sperti dibawah ini
0 Comments
Leave a Reply. |