Minggu, 14 April 2013

download Program campur warna RGB pada visual basic 6.0 (vb 6)


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

illank bundrank

Author & Editor

Has laoreet percipitur ad. Vide interesset in mei, no his legimus verterem. Et nostrum imperdiet appellantur usu, mnesarchum referrentur id vim.

0 komentar:

Poskan Komentar