[vb6 sp5] Enter in Multiline textbox triggert click-event(.)

[DPLuS]

Complete Titel: Enter in Multiline textbox triggert click-event van default command-button.

Ik heb een multiline textbox en een command-button met default-property = true.
Als ik nu een ENTER geef in de textbox dan wordt het click-event gegenereerd van de default button. Dat wil ik dus niet!
Hoe kan ik via programmacode manipuleren dat een enter in een textbox gewoon een nieuwe regel toevoegt i.p.v. dat de default-button het click event krijgt?

Ik heb nu de form1.keypreview op true gezet en de volgende code gebruikt:

Visual Basic:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If ActiveControl = Text1 Then

    If KeyCode = vbKeyReturn Then
      
    KeyCode = 0
      
    SendKeys "^{ENTER}"
      
    End If

End If

End Sub

Alleen werkt dit niet, de default button wordt bij een ENTER nog altijd geactiveerd...

[ Voor 32% gewijzigd door DPLuS op 07-10-2004 11:21 ]

[pjvandesande]

Bij een onfocus even even je default button Empty (null) maken en onleave ofzo weer setten.

Of in het keydown even gewoon een vbcrlf (\n) in de textbox appenden.

edit:

Verder geen idee, het zijn even wat suggesties... questa is geen vb6-man, wacht anders op reactie van RobIII

[ Voor 29% gewijzigd door pjvandesande op 07-10-2004 12:04 ]

[DPLuS]

Heeft niemand toevallig een ander idee?
Misschien via subclassing o.i.d.?

Het enige dat ik dus wil is dat als het activecontrol die textbox1 is, de ENTER een newline geeft in de textbox, en niet het click event triggert voor de default button.

[bigbeng]

Geen oplossing, wel een tip: Shift+Enter geeft een newline in een multiline textbox. Dus het kan in elk geval wel, maar ja, voor de gewone gebruiker is het natuurlijk nog steeds niet handig.

[Sponge]

Hm, ik dacht het met een simpele boolean wel op te lossen. Niet dus. Interessant probleem .

[pjvandesande]

Gewoon met die workaround die ik al eerder gaf.
Dit werkt namelijk wel, even snel getest.

[ Voor 32% gewijzigd door pjvandesande op 08-10-2004 16:35 ]

[DPLuS]

Tja, waarschijnlijk zit er inderdaad niets anders op.
Het probleem is dat de meeste mensen niet snappen dat ze CTRL+ENTER kunnen ingeven in het tekstvak.
Het enige dat ik betreur in de methode die bovenstaande auteur gaf, is dat als ik de default property op false zet, het dikke zwarte randje verdwijnt van de commandbutton.
Misschien dat iemand anders daar nog een of andere API-call voor heeft?

[Sponge]

http://support.microsoft....aspx?scid=KB;EN-US;113328

Ik stop nu ook met zoeken . Ik zat nog wat te klooien met tabstop e.d.

[Lustucru]

Je kunt het afhandelen in het onclickvent zelf:

code:

If activecontrol.name="Text1" Then
    With Me.Text1
        pos = .SelStart
        .Text = Left(.Text, pos) & vbCrLf & Right(.Text, Len(.Text) - .SelStart)
        .SelStart = pos + 2
    End With
    exit sub
Endif
    bla /etc

[ Voor 38% gewijzigd door Lustucru op 09-10-2004 01:20 ]