Printable View
I need two commands buttons that act like a one or the other (kind of like two radio buttons where only one is ticked at a time). If one button is pressed it stays pressed and the other becomes unpressed. The button that is pressed in stays pressed until the other button is pressed then that button stays pressed and the first button becomes unpressed.
OK, I see if I use two radio buttons and set their style to graphical it gives me what I need. Is there any way to show the pressed in button without the inner rectangle?
If you want to use command buttons, you can simply change the 'downed' button image on it's click event, and then when you click the OTHER button, set a 'regular' image to the first button.
Here's and example:
EDIT: You can also set the enabled property to false and/or true on the click events so it cannot even be clicked --- my code allows you to CLICK it, but nother happens--but you do see the btn 'flicker'. Enabled property use can prevent that as well.Code:Option Explicit
Dim gCmd1Clicked As Boolean
Dim gCmd2Clicked As Boolean
Private Sub Command1_Click()
If gCmd1Clicked = False Then
gCmd1Clicked = True
gCmd2Clicked = False
Command1.Picture = LoadPicture(App.Path & "\downbtn.jpg")
Command2.Picture = LoadPicture(App.Path & "\upbtn.jpg")
Else
gCmd1Clicked = False
End If
End Sub
Private Sub Command2_Click()
If gCmd2Clicked = False Then
gCmd2Clicked = True
gCmd1Clicked = False
Command2.Picture = LoadPicture(App.Path & "\downbtn.jpg")
Command1.Picture = LoadPicture(App.Path & "\upbtn.jpg")
Else
gCmd2Clicked = False
End If
End Sub
The easiest way is to add a small borderless picturebox to the form and then in the click event of the option button set focus on the picturebox. You can also use APIs to remove the focus rect from the control but that is a bit more involved.Quote:
Originally Posted by jmsrickland
Or, mod my slightly and get rid of graphical property.....
Code:Option Explicit
Dim gCmd1Clicked As Boolean
Dim gCmd2Clicked As Boolean
Private Sub Command1_Click()
If gCmd1Clicked = False Then
gCmd1Clicked = True
gCmd2Clicked = False
Command1.Enabled = False
Command2.Enabled = True
' Command1.Picture = LoadPicture(App.Path & "\downbtn.jpg")
' Command2.Picture = LoadPicture(App.Path & "\upbtn.jpg")
Else
gCmd1Clicked = False
' Command1.Enabled = True
End If
End Sub
Private Sub Command2_Click()
If gCmd2Clicked = False Then
gCmd2Clicked = True
gCmd1Clicked = False
Command2.Enabled = False
Command1.Enabled = True
' Command2.Picture = LoadPicture(App.Path & "\downbtn.jpg")
' Command1.Picture = LoadPicture(App.Path & "\upbtn.jpg")
Else
gCmd2Clicked = False
' Command2.Enabled = True
End If
End Sub
Just a few code is required. :)Quote:
Originally Posted by MarkT
Code:Private Const WM_KILLFOCUS As Long = &H8
Private Declare Function SendMessageW Lib "user32.dll" (ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Option1_Click()
SendMessageW Option1.hWnd, WM_KILLFOCUS, 0&, 0&
End Sub
Private Sub Option2_Click()
SendMessageW Option2.hWnd, WM_KILLFOCUS, 0&, 0&
End Sub
@ jmsrickland
If you want your graphical buttons to be themed, see this thread.
The methods used, whether it's using the API or putting focus on a picturebox, needs to be placed in the MouseDown events rather than the Click events. If in the Click events it works for that time only. If button is down and user clicks on it the focus returns to the button and shows the rectangle again. Putting it in the MouseDown event avoids this.
I'm not sure what you are saying. Can you post an example?
Example of what?
The GotFocus event is another suitable event.
I was just having trouble grasping what you were saying. After eating lunch and looking what you wrote again, I understand now. Like Bonnie mentioned, GotFocus would be a good place to put the code. This would also prevent the focus rect if you tab into the control.
Yes, the GotFocus is the best way to go.
Thanks, Bonnie. I'm using your API suggestion and the GotFocus event
Thanks to everyone else; your ideas were also very good