caranya sangat mudah sob
ANda cukup buat tampilan kalkulator seperti gambar di bawah ini aza 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