[ 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

Inputs

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

Code

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: 86 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.