Zmieniacz II

Kolejny prosty programik zmieniający kolory.
Tym razem "zmieniacz" wskazuje podstawowych 16 barw.

zmieniacz


Private Sub hpasek_Change()
Dim kolor As Integer
kolor = hpasek.Value
rysunek.BackColor = QBColor(kolor) barwa.Caption = kolor
End Sub

Private Sub zakończ_Click()
Unload Me
End
End Sub
Pobierz program download
>