VB-96 : Changing Color as per the entered Number

Changing color of form according to the entered number.

Refer Change the background color of the form and Color changing using Timer

(A)Program Design : 

(B) Property(Controls Used) :

• One Label with Caption Enter a Number (1 to 5) , Autosize-True , Backstyle - Transparent
• One TextBox (Name-Text1 , Text Property is Blank)
• One Command Button with Caption-Change and Name - Command1

(C) Attaching Code to the Object :

Private Sub Command1_Click() Dim n As Integer n = Val(Text1.Text) Select Case n Case 1     Form1.BackColor = vbRed Case 2     Form1.BackColor = vbGreen Case 3     Form1.BackColor = vbBlue Case 4     Form1.BackColor = vbYellow Case Else     Form1.BackColor = vbWhite End Select End Sub

(D) Output :

===================================================================================

ASSIGNMENT :

Suppose , if you want to include another colour, and you dont know the name of that colour as given below ,

 

Then what will you do ???

This is your assignment..

If failed , see the comment section...to know the answer.

• ====================================================================
  Back to Home   &  VB

===========================================================