Programming Forums > Application Development > Visual Basic

fox123 · May 2nd, 2005, 3:37 AM

The title may seem simple but has been very frustrating.T his is what i need to do.:

As My Startup Object i have a form that has 4 different colour pictures. When the user clicks these i would like that to be the backcolour of all forms to be displayed. I have used this code:

(Toggle Plain Text)

Private Sub Image4_Click
frmWelcome.BackColor = vbBlue
Label1.BackColor = vbBlue
Label1.ForeColor = vbBlack
call ColourBlue
End Sub

I have put the procedure ColoyrBlue in a module:

(Toggle Plain Text)

frm1.backcolor = vbblue
frm2.backcolor = vbblue
frm3.baccolor = vbblue

But when this code is put in place it changes the colour of one form but no others also when i go back on a form the colour stays the standard colour.

Hope you can help

melwinator · May 2nd, 2005, 4:14 AM

Declare a global variable that will hold the current selected colour and assign that colour to the backcolor property of each form load.

eg.

In the module do this

(Toggle Plain Text)

Dim varBColor as variant

sub main()
      varBColor=#000ff0    ' Set this to the default color
end sub

on image click do this

(Toggle Plain Text)

varBColor=vbBlue        ' Or whatever color u  want

on each form load do this

(Toggle Plain Text)

private Sub Form_Load()
      form1.BackColor=varBColor
end sub

That should do it... Hope this solved your problem........
You can always ask Rory !!!! He's the God of VB

Rory · May 2nd, 2005, 7:36 AM

Quote:

Originally Posted by melwinator

You can always ask Rory !!!! He's the God of VB

LOL!

Anyway what you said's good, just:

(Toggle Plain Text)

varBColor=&H000ff0    ' Set this to the default color

&H is used in VB for hex

(Toggle Plain Text)

Public varBColor as Long

best to use the native type and also you'd need to make it public so you could access it.

fox123 · May 2nd, 2005, 12:42 PM

Thanks To Everyone that helped.
You are all great

May 2nd, 2005, 3:37 AM	#1
fox123 Newbie Join Date: Mar 2005 Posts: 25 Rep Power: 0	Colour Changing At Runtime The title may seem simple but has been very frustrating.T his is what i need to do.: As My Startup Object i have a form that has 4 different colour pictures. When the user clicks these i would like that to be the backcolour of all forms to be displayed. I have used this code: (Toggle Plain Text) Private Sub Image4_Click frmWelcome.BackColor = vbBlue Label1.BackColor = vbBlue Label1.ForeColor = vbBlack call ColourBlue End Sub Private Sub Image4_Click frmWelcome.BackColor = vbBlue Label1.BackColor = vbBlue Label1.ForeColor = vbBlack call ColourBlue End Sub I have put the procedure ColoyrBlue in a module: (Toggle Plain Text) frm1.backcolor = vbblue frm2.backcolor = vbblue frm3.baccolor = vbblue frm1.backcolor = vbblue frm2.backcolor = vbblue frm3.baccolor = vbblue But when this code is put in place it changes the colour of one form but no others also when i go back on a form the colour stays the standard colour. Hope you can help

May 2nd, 2005, 4:14 AM	#2
melwinator Newbie Join Date: Mar 2005 Posts: 11 Rep Power: 0	Declare a global variable that will hold the current selected colour and assign that colour to the backcolor property of each form load. eg. In the module do this (Toggle Plain Text) Dim varBColor as variant sub main() varBColor=#000ff0 ' Set this to the default color end sub Dim varBColor as variant sub main() varBColor=#000ff0 ' Set this to the default color end sub on image click do this (Toggle Plain Text) varBColor=vbBlue ' Or whatever color u want varBColor=vbBlue ' Or whatever color u want on each form load do this (Toggle Plain Text) private Sub Form_Load() form1.BackColor=varBColor end sub private Sub Form_Load() form1.BackColor=varBColor end sub That should do it... Hope this solved your problem........ You can always ask Rory !!!! He's the God of VB

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 2nd, 2005, 12:42 PM	#4
fox123 Newbie Join Date: Mar 2005 Posts: 25 Rep Power: 0	Thanks To Everyone that helped. You are all great

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Colour Changing At Runtime