VB6.0 원색상 바꾸기 레드/그린/블루 = 3원색
Private Sub HScroll1_Change(Index As Integer)
Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
Label4.Caption = HScroll1(0).Value
Label5.Caption = HScroll1(1).Value
Label6.Caption = HScroll1(2).Value
End Sub
댓글 0