Search Tools Links Login

[ 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 :)

Original Author: JamesJD


Three Scroll Bars named: hsbRed, hsbGreen, and hsbBlue. Also three Text Boxes named: txtRed, txtGreen, and txtBlue.


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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 92 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.