A1VBCode Forums / Visual Basic (VB 4/5/6) / General Visual Basic / Remove Focus From Only CommandButton On Form? / Latest Posts

RE: Remove Focus From Only CommandButton On Form?

CDRIVE — Thu, 15 May 2008 22:36:10 GMT

Keithuk (5/15/2008)

Apart from the Shape shown how many other controls are there on the Form?

Keith, like I said, only the CommandButton. That's why Mark's code doesn't quite answer the question. This code isn't part of a project. It's simply an issue that I was aware of but often wondered if there was a quick work around that I was missing. This issue won't manifest itself if there's another control (not a CommandButton or ListBox) on the Form because they won't overide the KeyPreview property of the Form. I was not surprised that the links you posted point to API,s as solution though.

I will continue to put my graphics in a PicBox instead of the Form because it eliminates this whole issue entirely as I illuded to in this post.

http://www.a1vbcode.com/vbforums/FindPost24875.aspx

It was this thread that got me thinking about this issue in the first place and why I told Jenna not to use the Form.

Thanks for the effort guys.

RE: Remove Focus From Only CommandButton On Form?

Keithuk — Thu, 15 May 2008 17:39:53 GMT

Apart from the Shape shown how many other controls are there on the Form?

You could always set the Command button TabStop to False. That way you would have to physically press the button to make it work.

I've just put a Shape and Command button (with the TabStop to False) on a Form with Me.KeyPreview = True and the Shape wouldn't move. I put a PictureBox on the Form then it would move. If I made the PictureBox not visible it wouldn't move again, strange. Now a Shape doesn't have a TabStop so the tab key wouldn't work.

Ok a search on VBforums.

Focus Rect

How to prevent Command btn from taking focus?

Focus Of Command Buttons

RE: Remove Focus From Only CommandButton On Form?

Mark — Thu, 15 May 2008 14:43:35 GMT

This is a real hack and it probably falls into the don't respond with the obvious category but here you go.

Option Explicit

Private Sub Command1_Click()
MsgBox "I work!" & vbCrLf & "Now press the left arrow key."
Picture1.SetFocus
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
Shape1.Left = Shape1.Left - 100
End If
End Sub

Private Sub Form_Load()
Picture1.Move -100, 0, 1, 1
Me.Show
End Sub

Remove Focus From Only CommandButton On Form?

CDRIVE — Thu, 15 May 2008 13:36:42 GMT

I think we all know that KeyPreview will do nothing for you if the only control on your Form is a CommandButton. At least as far as KeyCode's for Arrow keys & the Enter Key are concerned. That's why I prefer to put animation code in PictureBox events. My question is, is there an undocumented trick to get the focus off of the CommandButton? Just in case what I'm asking is not clear, refer to this simple code that has the me.KeyPreview=True but has only a CommandButton on the Form. This code will never fire. Btw, I read the KeyPreview property info in the library and the note at the bottom regarding this issue and it does not mention a work around.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
Shape1.Left = Shape1.Left - 100
End If
End Sub

Private Sub Command1_Click()
' Do nothing. I'm here just to make a point.
End Sub

Please don't respond with the obvious, like "Set the Button's Visible or Enabled property to False".