Driving me nuts

[Sueffel]

Okay, I have my controls, and in each one's key_down even, I have:

Me.SelectNextControl(Me.ActiveControl,True,True,Fa lse,True)

All controls I need do have the TabStops and do have Index's set. I have
stuff that each control has to do(Validation) before it moves on, so the
Form.KeyPreview is out.

Thank,
Sueffel

[Herfried K. Wagner [MVP]]

* "Sueffel" <so*****@somewhere.com> scripsit:

Okay, I have my controls, and in each one's key_down even, I have:

Me.SelectNextControl(Me.ActiveControl,True,True,Fa lse,True)

All controls I need do have the TabStops and do have Index's set. I have
stuff that each control has to do(Validation) before it moves on, so the
Form.KeyPreview is out.

What's your question?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Sueffel]

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:c4*************@ID-208219.news.uni-berlin.de...

* "Sueffel" <so*****@somewhere.com> scripsit:

Okay, I have my controls, and in each one's key_down even, I have:

Me.SelectNextControl(Me.ActiveControl,True,True,Fa lse,True)

All controls I need do have the TabStops and do have Index's set. I have stuff that each control has to do(Validation) before it moves on, so the
Form.KeyPreview is out.

What's your question?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

Oh scheister! SelectNextControl is not working. I have verified that the
KeyDown events themselves are working, but SelectNextControl, which is in a
seperate Sub, is not working. I get the SystemBeep, but that's it.

Sorry for that,
Sueffel

[Cor]

Hi Sueffel,

I do not know if you speak German, I do it not real good, but that word you
wrote can have a very personal meaning to do with "Sh*t" about the sender of
your message. I think you did not want to do that and maybe it was just the
German meaning of "Sh*t" you did wanted to write.

I have seen this done by someone who did not speak German real adressed to
Herfried. Herfried was absolutly not happy with it.

Because I think it was only an incident, have I looked at your problem.

This routine works fine for me.

Cor

\\\
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
doSet(Me)
End Sub
Private Sub doSet(ByVal parentCtr As Control)
Dim ctr As Control
For Each ctr In parentCtr.Controls
AddHandler ctr.Click, AddressOf meClick
doSet(ctr)
Next
End Sub
Private Sub meClick(ByVal sender As Object, ByVal e As System.EventArgs)
If Me.ActiveControl Is sender Then
Me.SelectNextControl(DirectCast(sender, Control), _
True, True, True, True)
End If
End Sub
////

[Sueffel]

Yeah, I speak some German, and I meant it in reference to myself, sorry
Herfried if you took it any other way, but reading over my message I see
where Cor is coming from. Old habits are hard to squash sometimes.

Just tried your suggestion, and still nadda. Everything worked last
night... I have the controls in perticular on a panel, but they worked
before :( I'm going to have to try something a little different.

Thank again Cor, and once again, sorry if I wasn't clear in my self-bashing.

Sueffel
"Cor" <no*@non.com> wrote in message
news:u5**************@TK2MSFTNGP09.phx.gbl...

Hi Sueffel,

I do not know if you speak German, I do it not real good, but that word you wrote can have a very personal meaning to do with "Sh*t" about the sender of your message. I think you did not want to do that and maybe it was just the German meaning of "Sh*t" you did wanted to write.

I have seen this done by someone who did not speak German real adressed to
Herfried. Herfried was absolutly not happy with it.

Because I think it was only an incident, have I looked at your problem.

This routine works fine for me.

Cor

\\\
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
doSet(Me)
End Sub
Private Sub doSet(ByVal parentCtr As Control)
Dim ctr As Control
For Each ctr In parentCtr.Controls
AddHandler ctr.Click, AddressOf meClick
doSet(ctr)
Next
End Sub
Private Sub meClick(ByVal sender As Object, ByVal e As System.EventArgs) If Me.ActiveControl Is sender Then
Me.SelectNextControl(DirectCast(sender, Control), _
True, True, True, True)
End If
End Sub
////

[Sueffel]

Also, on a brandnew form, this all works very nicely. I even put them in a
panel, and still works. I'm going to scour throught the designer code and
see if there's something there......

"Sueffel" <so*****@somewhere.com> wrote in message
news:#S*************@tk2msftngp13.phx.gbl...

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:c4*************@ID-208219.news.uni-berlin.de...

* "Sueffel" <so*****@somewhere.com> scripsit:

Okay, I have my controls, and in each one's key_down even, I have:

Me.SelectNextControl(Me.ActiveControl,True,True,Fa lse,True)

All controls I need do have the TabStops and do have Index's set. I have stuff that each control has to do(Validation) before it moves on, so the Form.KeyPreview is out.
What's your question?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

Oh scheister! SelectNextControl is not working. I have verified that the
KeyDown events themselves are working, but SelectNextControl, which is in

a seperate Sub, is not working. I get the SystemBeep, but that's it.

Sorry for that,
Sueffel

[Sueffel]

Yeah, I speak some German, and I meant it in reference to myself, sorry
Herfried if you took it any other way, but reading over my message I see
where Cor is coming from. Old habits are hard to squash sometimes.

Just tried your suggestion, and still nadda. Everything worked last
night... I have the controls in perticular on a panel, but they worked
before :( I'm going to have to try something a little different.

Thank again Cor, and once again, sorry if I wasn't clear in my self-bashing.

Sueffel
"Cor" <no*@non.com> wrote in message
news:u5**************@TK2MSFTNGP09.phx.gbl...

Hi Sueffel,

I do not know if you speak German, I do it not real good, but that word you wrote can have a very personal meaning to do with "Sh*t" about the sender of your message. I think you did not want to do that and maybe it was just the German meaning of "Sh*t" you did wanted to write.

I have seen this done by someone who did not speak German real adressed to
Herfried. Herfried was absolutly not happy with it.

Because I think it was only an incident, have I looked at your problem.

This routine works fine for me.

Cor

\\\
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
doSet(Me)
End Sub
Private Sub doSet(ByVal parentCtr As Control)
Dim ctr As Control
For Each ctr In parentCtr.Controls
AddHandler ctr.Click, AddressOf meClick
doSet(ctr)
Next
End Sub
Private Sub meClick(ByVal sender As Object, ByVal e As System.EventArgs) If Me.ActiveControl Is sender Then
Me.SelectNextControl(DirectCast(sender, Control), _
True, True, True, True)
End If
End Sub
////

[Sueffel]

Also, on a brandnew form, this all works very nicely. I even put them in a
panel, and still works. I'm going to scour throught the designer code and
see if there's something there......

"Sueffel" <so*****@somewhere.com> wrote in message
news:#S*************@tk2msftngp13.phx.gbl...

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:c4*************@ID-208219.news.uni-berlin.de...

* "Sueffel" <so*****@somewhere.com> scripsit:

Okay, I have my controls, and in each one's key_down even, I have:

Me.SelectNextControl(Me.ActiveControl,True,True,Fa lse,True)

All controls I need do have the TabStops and do have Index's set. I have stuff that each control has to do(Validation) before it moves on, so the Form.KeyPreview is out.
What's your question?

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

Oh scheister! SelectNextControl is not working. I have verified that the
KeyDown events themselves are working, but SelectNextControl, which is in

a seperate Sub, is not working. I get the SystemBeep, but that's it.

Sorry for that,
Sueffel