[ RGB Form Colour Changer ]
This little code will allow you to change the forms colour using Scroll Bar and Text Boxes, this can be changed to change the colour of a Text Box, etc. Please vote and leave your comments :)
AI
AI Samenvatting: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Broncode
Private Sub Form_Load() hsbRed.Value = 255 hsbGreen.Value = 255 hsbBlue.Value = 255 End Sub Private Sub hsbBlue_Change() Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) txtBlue.Text = hsbBlue.Value End Sub Private Sub hsbGreen_Change() Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) txtGreen.Text = hsbGreen.Value End Sub Private Sub hsbRed_Change() Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) txtRed.Text = hsbRed.Value End Sub Private Sub txtBlue_Change() hsbBlue.Value = txtBlue.Text End Sub Private Sub txtGreen_Change() hsbGreen.Value = txtGreen.Text End Sub Private Sub txtRed_Change() hsbRed.Value = txtRed.Text End Sub
Originele reacties (3)
Hersteld van de Wayback Machine