WinForms

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

Markos — Wed, 25 Feb 2009 22:47:18 GMT

Δε ξέρω αν έχει αναφερθεί σε κάποιο άλλο thread, αλλά μπορούμε να αποφύγουμε το beep με

e.SuppressKeyPress = true;

Επίσης, με αυτή αυτόν τον τρόπο, αν κάνουμε χρήση και των arrow keys για μετακίνηση, δεν αλλάζει και η επιλεγμένη τιμή των comboboxes.

private void Form1_KeyDown(object sender, KeyEventArgs e)
{
   //
   // Το KeyPreview property της φόρμας πρέπει να είναι true.
   //
   if (this.ActiveControl.Tag.ToString() == "Next")
   {
      if ((e.KeyCode == Keys.Enter) ||
         (e.KeyCode==Keys.Down))
      {
         SendKeys.Send("{TAB}");
         e.SuppressKeyPress = true; // Έτσι δεν αλλάζει η επιλεγμένη τιμή στα comboboxes με τα Keys.Up Keys.Down,ούτε ακούγεται το beep.
      }
      if (e.KeyCode == Keys.Up)
      {
         SendKeys.Send("+{TAB}");
         e.SuppressKeyPress = true;
      }
   }
}

βλπ και MDSN.

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

KelMan — Tue, 12 Sep 2006 22:10:35 GMT

Ρίξε μια ματιά εδώ:

http://www.syncfusion.com/FAQ/WindowsForms/FAQ_c94c.aspx#q1121q

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

Panos Kousidis — Tue, 12 Sep 2006 20:32:48 GMT

Εγώ δοκίμασα τη μέθοδο
If e.KeyCode = Keys.Enter Then SendKeys.Send("{tab}")
και δουλεύει αλλά κάνει το εκνευριστικό BEEP. Πώς το αποφεύγω αυτό;

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

teDeV — Tue, 18 Jul 2006 20:35:13 GMT

Λοιπόν επειδή δεν θέλω να σας βλέπω να παιδεύεστε με βλακείες, και να τρώτε τον χρόνο σας πάνω σε κάτι που εγώ όταν προσπαθούσα να το φτιάξω μου είχε σπάσει τα νεύρα ένα σαββατοκύριακο για να το φτιάξω.

Κάθησα και έφτιαξα δικό μου control textbox το οποίο δουλεύει άψογα, το βάζεις πάνω στην φόρμα, και όταν κάνεις focus πάνω του αλλάζει και χρώμα, και παίζει και το enter. οπότε είναι το τέλειο εργαλειάκι για μας τους τεμπέληδες :-)

Αν είστε καλά παιδιά, θα μπορούσα να ......

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

gmlogic — Sun, 16 Jul 2006 08:20:20 GMT

Ίσως μία λύση να είναι και η παρακάτω

γιατί όταν

If e.KeyCode = Keys.Enter Then SendKeys.Send("{TAB}")

νομίζω ότι δεν γίνετε Validating το textbox

Μετά απο πολύ ψαξίμο αυτό δουλεύει

Me.KeyPreview = True
Private Sub Me_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If TypeOf Me.ActiveControl Is TextBox Then
Dim NextControl As Boolean
Select Case e.KeyCode
    Case Keys.Enter
           NextControl = True
    Case Keys.Up
          NextControl = False
    Case Keys.Down
          NextControl = True
End Select
SelectNextControl(Me.ActiveControl, NextControl, True, True, True)
End If

If e.KeyCode = Keys.Escape Then
   Me.Close()
End If
End Sub

Το μόνο πρόβλημα όπως και με τό If e.KeyCode = Keys.Enter Then SendKeys.Send("{TAB}")

είναi ότι κάνει beep όταν γίνετε μετακίνηση στο επόμενο textbox

Ξέρει κανείς γιατί ???????

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

gmlogic — Sun, 26 Feb 2006 06:21:03 GMT

Γιά δοκμάστε και αυτό

Form1.KeyPreview = True

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{TAB}")
End If
If e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub

Σε μένα δουλεύει :)

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

micfarmakis — Wed, 07 Dec 2005 23:29:56 GMT

An δεν θες να συνδέεις controls me handlers μπορείς να φτιάξεις για τα controls pou επιθυμείς να έχουν αυτή τη συμπεριφορά αντίστοιχα δικά soy στα οποία θα κάνεις Override το Function ProcessCmdKey

p.x

Public Class MyTextbox
   Inherits Textbox

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, keyData As System.Windows.Forms.Keys) As Boolean

   If msg.WParam.ToInt32() = CInt(Keys.Enter) Then

      SendKeys.Send("{Tab}")

      Return True

   End If

   Return MyBase.ProcessCmdKey(msg, keyData)

End Function 'ProcessCmdKey

End Class 'MyTextbox

public class MyTextbox : Textbox
{

   protected override bool ProcessCmdKey(ref System.Windows.Forms.Message msg, System.Windows.Forms.Keys keyData)

{
   if(msg.WParam.ToInt32() == (int) Keys.Enter)
      {
      SendKeys.Send("{Tab}");
      return true;
      }
   return base.ProcessCmdKey(ref msg, keyData);
}

}

Y.Γ. To post egine σχεδόν ταυτόχρονα με το προηγούμενο του φίλου Kap και το οποίο παρουσιάζει έναν άλλο πιο elegant τρόπο να λύσεις το πρόβλημά σου.

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

cap — Wed, 07 Dec 2005 23:17:54 GMT

Για μια γενικότερη λύση, μπορείτε να δείτε λίγο την ProcessCmdKey.

Αυτή είναι μια method που καλείται ΚΑΙ στο επίπεδο της φόρμας και η οποία μπορεί να γίνει override (δυστυχώς το keydown στη φόρμα δεν δουλεύει - για κάποιον λόγο που δεν έχω κατανοήσει), οπότε χρησιμοποιησα την ProcessCmdKey ως εξής:

    'Αυτή η method τρέχει σε κάθε control αλλά και στο επίπεδο της
    'φόρμας. Την κάνουμε override για να χειριστούμε μόνοι μας το
    'πλήκτρο που πατήθηκε.
    Protected Overrides Function ProcessCmdKey( _
          ByRef msg As System.Windows.Forms.Message _
        , ByVal keyData As System.Windows.Forms.Keys _
        ) As Boolean

        'Αν βρούμε οτι ο χρήστης πάτησε Enter
        If msg.WParam.ToInt32() = CInt(Keys.Enter) Then

            'Επιλέγουμε το επόμενο control με βάση το tabindex και με wrapping ωστε να ξαναπάμε
            'στο πρώτο control αν βρισκόμαστε στο τελευταίο.
            Me.SelectNextControl(Me.ActiveControl(), True, True, True, True)

            'Επιστρέφουμε true για να δείξουμε οτι χειριστήκαμε το event.
            Return True

        Else

            'Αν ο χρήστης δεν πάτησε το πλήκτρο που θέλουμε, χειριζόμαστε κανονικά
            'τη base function
            Return MyBase.ProcessCmdKey(msg, keyData)

        End If

    End Function

Το δοκίμασα και παίζει μια χαρά. Αν μπορεί κάποιος βέβαια να μας εξηγήσει γιατί δεν παίζει το keydown στη φόρμα...

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

Panagiotis Kefalidis — Wed, 07 Dec 2005 22:13:28 GMT

Δέν είναι πολύ καλή λύση αυτή καθώς φαντάσου να έχει 200 textboxes στην εφαρμογή του (όπως εγώ)..Θα πεθάνει να γράφει..ασε που control δεν θεωρείτε μόνο textbox..Αλλά και button και GroupBox κλπ κλπ.

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

Panos Kousidis — Wed, 07 Dec 2005 21:28:12 GMT

cgeo wrote:
Κάνεις catch το keypress, αν είναι enter το χαντακώνεις και στέλνεις tab.

Private Sub TextBox1_KeyDown(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.KeyEventArgs) _
      Handles TextBox1.KeyDown
      If e.KeyCode = Keys.Enter Then SendKeys.Send("{TAB}")
      If e.KeyCode = Keys.Up Then SendKeys.Send("+{TAB}")
      If e.KeyCode = Keys.Down Then SendKeys.Send("{TAB}")
   End Sub

Εάν το θες για πολλά textboxes μπορείς επίσης απλά να προσθέσεις στο handles τα keydown events και των άλλων textboxes, δηλαδή η δήλωση να γίνει

Private Sub TextBox1_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles TextBox1.KeyDown, TextBox2.Keydown, TextBox3.Keydown, TextBox4.Keydown

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

cap — Tue, 08 Nov 2005 17:14:44 GMT

Μην το γελάτε αυτό! Εχω δουλέψει ως πιτσιρικάς σε data entry (και η πλάκα ήταν οτι σε μια από τις δύο περιπτώσεις είχα φτιάξει και την εφαρμογή data entry) :) Πραγματικά, το Enter αποδείχθηκε σωτήριο (ειναι πιό μεγάλο και πιό "βαρύ" από το tab και οι κοπελίτσες και οι μαντράχαλοι που πληκτρολογούσαν μανιασμένα του έδιναν και καταλάβαινε - πληρωνόμασταν με το κομμάτι, οπότε είχε σημασία).

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

KelMan — Tue, 08 Nov 2005 07:21:01 GMT

Χμμμ... Γ €/min! Πάω για dummy data entry!

Χε χε... Αυτό το σχόλιο το έκανα γιατί στις εκπαιδεύσεις αυτό είναι κλασικό ζητούμενο και μου το ρωτάνε COBOLάδες και CLIPPERάδες...

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

Χρήστος Γεωργακόπουλος — Tue, 08 Nov 2005 06:56:45 GMT

KelMan wrote:
Ξέχασα... Για το Δημόσιο την φτιάχνεις την εφαρμογή;

Υπάρχουν περιπτώσεις που η θέση του κουμπιού Enter στο αριθμητικό πληκτρολόγιο, είναι ικανή να γλυτώσει A λεπτά την ημέρα από το dataentry κάθε μίας από τις B κοπέλες που πληρώνεται Γ ευρώ το λεπτό. Και επειδή σε κάποιες περιπτώσεις το Α και το Β και το Γ έχουν μεγάλες τιμές, η εταιρία γλυτώνει Α*Β*Γ*20*12 ευρώ ανά έτος. Όταν αυτό το νουμεράκι αρχίζει να έχει πάνω από 5 ψηφία, κάποιος χαρτογιακάς κάθεται πάνω από τις κοπέλες και χρονομετράει πόση ώρα κάνει στο dataentry. Ε, σε τέτοιες περιπτώσεις, αξίζει να φας πολλές ώρες για να στέλνεις tab στη θέση του enter... :-)

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

pstavros — Tue, 08 Nov 2005 05:34:18 GMT

Κατ' αρχήν σ' ευχαριστώ που μου ανέλυσες τα παραπάνω. Όσο για το τελευταίο σχόλιό σου; Μετά από πολλά χρόνια εφαρμογών και εκπαιδεύσεων και στον ιδιωτικό τομέα, τα πράγματα είναι πολύ δύσκολα. Εάν δεν κατέβεις στο δικό τους επίπεδο (των χρηστών της εφαρμογής) την έβαψες. Όσο τέλειο κώδικα και να γράφεις (εμείς οι συνάδελφοί σου να τον θαυμάζουμε), αυτοί σου βγάζουν την εφαρμογή, άχρηστη. Πολλές φορές φτάνουμε σε σημείο να τους κάνουμε όλη την παραμετροποίηση οι ίδιοι μας. (παραμετρική εφαρμογή κατά τ' άλλα).

Χίλιες φορές να γράφεις κώδικα και να ασχολείσαι με την δημιουργία της εφαρμογής και την τεχνολογία, παρά να εκπαιδεύεις και να υλοποιείς.
Και δείξε μου κάποιον προγραμματιστή που δεν είναι φιλότιμος !

Σταύρος

Απ: Μετακίνηση σε φόρμα VB με Enter κι όχι με Tab !

KelMan — Tue, 08 Nov 2005 04:59:51 GMT

Ξέχασα... Για το Δημόσιο την φτιάχνεις την εφαρμογή;