skip set focus in specific textboxes when press enter

[Alaa mg]

hi

I have multiple textboxes on user form for each five textboxes should ignore set focus for first two textboxes of them (textbox1,2,3,4,5) when run the userform should set focus in textbox 3 and move 4,5 and when move to next (textbox6,7,8,9,10) should set focus in textbox 8 and move 9,10 and so on for each five textboxes should ignore set focus the first two textboxes .
I hope this clear .

 

[Zot]

You can just set in userform property there.

Tab Sequence will control the sequence
Setting Tab Stop to False will make specific TextBox to be skipped.

 

[Alaa mg]

thanks but this way doesn't completely solve the problem . the problem is sometimes unintentionally I put the cursor of mouse in textbox is unwilling . then it shows .

I no know if there is way if it happens then should move the set focus to the firs textbox as is arranged based on order tab direcetly , when put the cursor in specific textbox should not set focus .
and move the cursor(set focus) to first textbox .
this way doesn't prevent set focus by mouse .
is that possible ?

 

[Zot]

You can use the event such as
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)

Use the Button value to detect key press on any mouse button. Values are
Button = 1 (Left)
Button = 2 (Right)
Button = 4 (Middle)

and use the condition to set focus to specified field once click is detected.

 

[Alaa mg]

sorry I'm not professional at design the code . how code should be in MouseDown event ?

 

[Zot]

I thought you already have userform with TextBox? If you select TextBox and browse the trigger event, one of them is MouseDown.

My understanding is that you are the one creating the UserForm, right?

 

[Akuini]

for each five textboxes should ignore set focus for first two textboxes of them (textbox1,2,3,4,5) when run the userform should set focus in textbox 3 and move 4,5

Try this:

Private Sub TextBox1_Enter()
TextBox3.SetFocus
End Sub

Private Sub TextBox2_Enter()
TextBox3.SetFocus
End Sub

everytime you enter textbox1 or textbox2 it will automatically move the focus to textbox3.

 

[Alaa mg]

My understanding is that you are the one creating the UserForm, right?

yes but how use this ?
Button = 1 (Left)
Button = 2 (Right)
Button = 4 (Middle)
just put theses values in MouseDown event or waht?

 

[Zot]

yes but how use this ?
Button = 1 (Left)
Button = 2 (Right)
Button = 4 (Middle)
just put theses values in MouseDown event or waht?

Once mouse button is clicked, it will produce Button value as stated automatically. So, use that value as trigger like
If Button = 1 then
...code here...
End if

Yes in that event

 

[Zot]

Try this:

Private Sub TextBox1_Enter()
TextBox3.SetFocus
End Sub

Private Sub TextBox2_Enter()
TextBox3.SetFocus
End Sub

everytime you enter textbox1 or textbox2 it will automatically move the focus to textbox3.

In Post #3 also want to prevent mouse to set focus.