heppy's-blog

buka aplikasi visual basic versi 6.0 yah . .
kita sekarang akan belajar yang mudah aja dulu. :)

ini tampilan awal nyah yah. . pilih standard exe trus klik open.

nah ini tampilan kedua. .
pilih label yang berlambangkan A besar di sebelah kiri dari monitor anda. .
untuk caption di hapus dan borderstyle pilih 1-fixed single dan akan menghasilkan begini
setelah itu kita gunakan shape shape yang ada di sebelah kiri dari depan monitor yak. .


udah kaya gitu bikin optionnya pake frame di sebelah kiri juga yah. trus pilih optionbutton

kalo mau masukin script bisa di klik di sembarang tempat kalo tau ini penempatannya bisa langsung di tempatnya . misalkan di option persegi di doubleklik nah muncul noh tempatnya . .
Sub Sembunyi()
SHP_LINGKARAN.Visible = False
SHP_ELIPS.Visible = False
SHP_SEGIEMPAT.Visible = False
End Sub

Sub Bersih()
Sembunyi
L_judul.Caption = ""
OPT_LINGKARAN.Value = 0
OPT_ELIPS.Value = 0
OPT_SEGIEMPAT.Value = 0
End Sub

Private Sub OPT_ELIPS_Click()
Sembunyi
SHP_ELIPS.Visible = True
L_judul.Caption = "Bentuk Ellips"
L_judul.Alignment = 2
L_judul.FontBold = True
End Sub

Private Sub OPT_LINGKARAN_Click()
Sembunyi
SHP_LINGKARAN.Visible = True
L_judul.Caption = "Bentuk Lingkaran"
L_judul.Alignment = 2
L_judul.FontBold = True
End Sub

Private Sub OPT_SEGIEMPAT_Click()
Sembunyi
SHP_SEGIEMPAT.Visible = True
L_judul.Caption = "Bentuk Segi Empat"
L_judul.Alignment = 2
L_judul.FontBold = True
End Sub

untuk membuat pilihan bersih sama selesai pake commandbutton yah . .maap itu salah ketik bukan hapus tapi bersih.kalo untuk commandbutton bersih script nya kaya gini
Private Sub Form_Load()
Bersih
End Sub

kalo untuk selesai gampang sekali
Private sub form_load()
unload me
end sub

HASILNYA BEGINI

kalo kita klik nama lingkaran,elips atau persegi akan muncul gambarnya. selamat mencoba . jangan lupa masukan dan kritikan saran kalian kawan . .