PushButton visible/invisible --> focus?

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

In this sample there are two buttons. A Microsoft CommandButton and a CodeJock PushButton. This buttons are only visible if item "B" in the ComboBox is selected.
Now try to use this form ONLY BY KEYBOARD. If you change ComboBox 2 with "cursor up" and "cursor down" and the PushButton gets visible, then the focus goes to the button. That doesn't happen with the Microsoft CommandButton. 
This behavior is annoying. 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Jean Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 11 December 2006 Status: Offline Points: 110	Post Options Post Reply Quote Jean Report Post Thanks(0) Quote Reply Topic: PushButton visible/invisible --> focus? Posted: 14 April 2008 at 2:07am
	In this sample there are two buttons. A Microsoft CommandButton and a CodeJock PushButton. This buttons are only visible if item "B" in the ComboBox is selected. Now try to use this form ONLY BY KEYBOARD. If you change ComboBox 2 with "cursor up" and "cursor down" and the PushButton gets visible, then the focus goes to the button. That doesn't happen with the Microsoft CommandButton. This behavior is annoying.

Jean Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 11 December 2006 Status: Offline Points: 110	Post Options Post Reply Quote Jean Report Post Thanks(0) Quote Reply Posted: 14 April 2008 at 2:15am
	Sample: uploads/20080414_021503_BushButtonSampl.zip

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 14 April 2008 at 4:16am
	Agree. But afraid its internal routines of Visual Basic. our Pushbutton is ActiveX control standard is builtin button. Here workaround: Option Explicit Private Sub Combo1_Click() Command1.Visible = Combo1.ListIndex = 1 End Sub Private Sub Combo2_Click() If (Combo2.ListIndex = 1) Then PushButton1.Left = PushButton1.Left + 7000 PushButton1.Enabled = True Else If PushButton1.Left > 0 Then PushButton1.Left = PushButton1.Left - 7000 PushButton1.Enabled = False End If End Sub Private Sub Form_Load() Combo1.AddItem "A" Combo1.AddItem "B" Combo1.AddItem "C" Combo1.AddItem "D" Combo1.AddItem "E" Combo2.AddItem "A" Combo2.AddItem "B" Combo2.AddItem "C" Combo2.AddItem "D" Combo2.AddItem "E" Combo2_Click End Sub
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

Jean Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 11 December 2006 Status: Offline Points: 110	Post Options Post Reply Quote Jean Report Post Thanks(0) Quote Reply Posted: 14 April 2008 at 5:18am
	Ok, thank you.