Setelah Postingan sebelumnya membuat message question di Gambas, sekarang coba penggunaan Combobox di Gambas.
1. Desain dulu seperti berikut :
1 Combobox
2 Button
1 Textarea
2. Berikut isi Source Code nya :
' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
ComboBox1.Add("Bakso")
ComboBox1.Add("Mi Ayam")
ComboBox1.Add("Nasi Goreng")
ComboBox1.Add("Lotek")
End
Public Sub Button1_Click()
Select Case ComboBox1.Text
Case "Pilih Menu"
TextArea1.Text = "Pilih Menu dulu !!!"
Case "Bakso"
TextArea1.Text = "Anda Pesan Bakso"
Case "Mi Ayam"
TextArea1.Text = "Anda Pesan Mi Ayam"
Case "Nasi Goreng"
TextArea1.Text = "Anda Pesan Nasi Goreng"
Case "Lotek"
TextArea1.Text = "Anda Pesan Lotek"
End Select
End
Public Sub Button2_Click()
Select Case
Message.Question("Yakin Keluar?", "Ya", "Tidak")
Case 1
Me.Close
End Select
End
Yang my download disini
Hasilnya :
1 komentar:
assalamualaikum gan , ane lagi belajar gambas nih , nah ane mau ketika combo box di klik itu langsung ada interface leptop kita , kaya pas kita ketik ifconfig , intinya ane mo add comand terminal di gambas gimana ya?? thanks gan
EmoticonEmoticon