[VB.NET] Shift + enter

[Saven]

Goedenavond GoT'ers,

Ik heb Visual Basic 2008 Express weer even tevoorschijn getoverd, maar ik wil iets doen wat blijkbaar onmogelijk lijkt? Het beste kun je het denk ik vergelijken met het msn text-bericht-balkje.

Ik wil als je op enter drukt, dat er een bepaalde actie wordt uitgevoerd. Maar als je op shift+enter drukt dat hij dan een regel omlaag gaat.

Ik heb gegoogled maar ik kon niet echt nuttige dingen vinden

Kan iemand mij hier misschien mee helpen? Thanks

[Sebazzz]

Waar? In welk control zit je te werken? WPF of WinForms? Framework versie? Meer info graag

[Verwijderd]

Maak je textbox multiline, en check dan in het keypress event of de key een ENTER is.
Als dan de SHIFT key niet ingehouden is, zet je KeyPressEventArgs.Handled naar TRUE, maak je de textbox leeg en voer je de actie uit.

[Saven]

Sebazzz schreef op maandag 27 juli 2009 @ 23:13:
Waar? In welk control zit je te werken? WPF of WinForms? Framework versie? Meer info graag

Gewoon window designer met een standaard textbox. Volgensmij 3.5

Verwijderd schreef op maandag 27 juli 2009 @ 23:16:
Maak je textbox multiline, en check dan in het keypress event of de key een ENTER is.
Als dan de SHIFT key niet ingehouden is, zet je KeyPressEventArgs.Handled naar TRUE, maak je de textbox leeg en voer je de actie uit.

En hoe controleer ik of shift ingehouden is dan? Dat is mij even het grootste raadsel.

[whoami]

Je kan ook een WinApi gebruiken:GetKeyboardState

[Verwijderd]

En hoe controleer ik of shift ingehouden is dan? Dat is mij even het grootste raadsel.

http://msdn.microsoft.com...keyeventargs_members.aspx

[Verwijderd]

[...]

En hoe controleer ik of shift ingehouden is dan? Dat is mij even het grootste raadsel.

http://www.techtalkz.com/...rol-shift-alt-status.html

http://www.vb-helper.com/howto_net_mouse_shift.html

Google, mijn vrind.

[ Voor 11% gewijzigd door Verwijderd op 27-07-2009 23:27 ]

[ProperChaos]

Visual Basic .NET:

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If (e.KeyCode = Keys.Enter) Then
            If (e.KeyCode = Keys.ShiftKey Or e.KeyCode = Keys.Shift) Then
                TextBox1.Text = TextBox1.Text & vbNewLine
            Else
                'zend bericht
                TextBox1.Clear()
            End If
        End If
    End Sub

Zoiets, niet getest ofzo.

EDIT: Even getest, dit lijkt wel te werken:

Visual Basic .NET:

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If (e.KeyCode = Keys.Enter) Then
            If (e.Shift = True) Then
                TextBox1.Text = TextBox1.Text & vbNewLine
                TextBox1.SelectionStart = TextBox1.Text.Length
            Else
                'zend bericht
                TextBox1.Clear()
            End If
            e.SuppressKeyPress = True
        End If
    End Sub

[ Voor 39% gewijzigd door ProperChaos op 27-07-2009 23:30 ]

[hellfighter87]

Maak gewoon een topic report aan voor zoiets wil je?

[ Voor 73% gewijzigd door Creepy op 28-07-2009 10:03 ]

[Saven]

Thnx idd

[Gimmeabrake]

(ik zou persoonlijk trouwens de keyup-event gebruiken... maar dat is subjectief)

[Snake]

gerrymeistah schreef op dinsdag 28 juli 2009 @ 00:37:
(ik zou persoonlijk trouwens de keyup-event gebruiken... maar dat is subjectief)

Waarom? Als hij MSN wilt mimicken dan kan hij beter de keydown gebruiken.

En in de keyUp werkt e.SuppressKeyPress = true niet