cara membuat program pencampur WARNA visual basic 6.0

cara membuat program pencampur WARNA visual basic 6.0

Diposkan oleh vautsan on Senin, 10 Juni 2013

caranya sangat mudah sob

ANda cukup buat tampilan kalkulator seperti gambar di bawah ini aza sob


:D


SETELAH ANDA buat tampilan seperti di atas nah langkah selanjutnya tinggal masukin skripnya

klik aza di comant dah :v


terus hapus dulu semuanya yang di skrip yang ini


Private Sub mnucampur_warna_Click()

End Sub


kalo sudah kosong masukan skrip ini


semuanya


Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
HScroll1.Value = 0
HScroll2.Value = 0
HScroll3.Value = 0

HScroll1.Max = 225
HScroll1.Min = 0
HScroll2.Max = 225
HScroll2.Min = 0
HScroll3.Max = 225
HScroll3.Min = 0

End Sub

Private Sub HScroll1_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = Str(HScroll1.Value) + " " + Str(HScroll2.Value) + " " + Str(HScroll3.Value)

End Sub

Private Sub HScroll2_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = Str(HScroll1.Value) + " " + Str(HScroll2.Value) + " " + Str(HScroll3.Value)
End Sub

Private Sub HScroll3_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = Str(HScroll1.Value) + " " + Str(HScroll2.Value) + " " + Str(HScroll3.Value)
End Sub


semoga berhasil :D


Comments
0 Comments

{ 0 komentar... read them below or add one }

Posting Komentar

komentar akan ditanggapi dengan ramah klem aza iaa :>

insya alloh saya coment balik brow :)

link download heking

Popular Posts

Pengikut

category