PC Review


Reply
Thread Tools Rate Thread

Command Button Blink Color

 
 
New Member
Join Date: Mar 2011
Posts: 1
 
      28th Mar 2011
Hello i use excel 2003 with the follow code :

Private Sub CommandButton1_Click()
If (CommandButton1.BackColor = &H8000&) Then
CommandButton1.BackColor = &HFF&
Sheet2.Cells(2, 3) = "Red"
ElseIf (CommandButton1.BackColor = &HFF&) Then
CommandButton1.BackColor = &HFFFF&
Sheet2.Cells(2, 3) = "Yellow"
ElseIf (CommandButton1.BackColor = &HFFFF&) Then
CommandButton1.BackColor = &H404080
Sheet2.Cells(2, 3) = "Brown"
ElseIf (CommandButton1.BackColor = &H404080) Then
CommandButton1.BackColor = &H808080
Sheet2.Cells(2, 3) = "Gray"
ElseIf (CommandButton1.BackColor = &H808080) Then
CommandButton1.BackColor = &HFF0000
Sheet2.Cells(2, 3) = "Blue"
ElseIf (CommandButton1.BackColor = &HFF0000) Then
CommandButton1.BackColor = &H80FF&
Sheet2.Cells(2, 3) = "Orange"
ElseIf (CommandButton1.BackColor = &H80FF&) Then
CommandButton1.BackColor = &H8000&
Sheet2.Cells(2, 3) = "Green"

End If
End Sub

if i click in commandbutton1 then change the colors but if the commandbutton1 change to the color "red" then blink.

what i want just blink on "red" not on the others colors.
 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
command button color Vsn Microsoft Access Form Coding 2 10th Jan 2010 03:17 PM
How to make caption of command button blink? =?Utf-8?B?bXNjZXJ0aWZpZWQ=?= Microsoft Access Form Coding 1 21st Sep 2007 10:00 PM
Command button color Davids Microsoft Access Forms 3 6th Jul 2005 08:35 AM
The BACKGROUND COLOR OF THE COMMAND BUTTON FACES RESET TO THE DEFAULT COLOR Alva Dean Microsoft Excel Programming 2 8th Mar 2004 08:24 PM
Color Changes to Command Button Sondra Microsoft Access Forms 1 26th Aug 2003 10:28 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 04:45 PM.