Private
Sub cmd_exit_Click()
End
End Sub
Private
Sub Warna()
Me.txt_warna.BackColor
= RGB(Me.HScroll_Merah.Value, Me.HScroll_Hijau.Value, Me.HScroll_Biru.Value)
Text1.Text
= " " & Me.lbl_merah.Caption & ", " &
Me.lbl_hijau.Caption & ", " & Me.lbl_biru.Caption &
""
End Sub
Private
Sub HScroll_Biru_Change()
Warna
Me.lbl_biru.Caption
= Me.HScroll_Biru.Value
Picture3.BackColor
= Me.HScroll_Biru.Value
End Sub
Private Sub
HScroll_Biru_Scroll()
Warna
Me.lbl_biru.Caption
= Me.HScroll_Biru.Value
End Sub
Private
Sub HScroll_Hijau_Change()
Warna
Me.lbl_hijau.Caption
= Me.HScroll_Hijau.Value
Picture2.BackColor
= Me.HScroll_Hijau.Value
End Sub
Private
Sub HScroll_Hijau_Scroll()
Warna
Me.lbl_hijau.Caption
= Me.HScroll_Hijau.Value
End Sub
Private
Sub HScroll_Merah_Change()
Warna
Me.lbl_merah.Caption
= Me.HScroll_Merah.Value
Picture1.BackColor
= Me.HScroll_Merah.Value
End Sub
Private
Sub HScroll_Merah_Scroll()
Warna
Me.lbl_merah.Caption
= Me.HScroll_Merah.Value
End Sub
|
semoga bermanfaat bro
0 komentar:
Posting Komentar