Novia's Blog

Form Pemesanan Sepatu OnlineShoes 1.       Tampilan Login OnlineShoes Code Program : Private Sub Command1_Click() If Text1.Text <> "" And Text2.Text <> "" Then Form1.Show Unload Me Else Pesan = MsgBox("Username atau Password Anda Tidak Boleh Kosong", vbInformation) End If End Sub 2.       Tampilan Form Pemesanan Sepatu OnlineShoes     Code Program : Private Sub Combo1_Click() If Combo1.Text = "Sneaker" Then Image2.Picture = LoadPicture("C:\Users\Novia A\Pictures\sepatu pria\sneaker.jpg") ElseIf Combo1.Text = "Boots" Then Image2.Picture = LoadPicture("C:\Users\Novia A\Pictures\sepatu pria\boots.jpg") ElseIf Combo1.Text = "Slip On" Then Image2.Picture = LoadPicture("C:\Users\Novia A\Pictures\sepatu pria\slip on.jpg") ElseIf Combo1.Text = "Loafers" Then Image2.Picture = LoadPicture("C:\Users...