WinForms

Απ: Beep ενοχλητική υπόθεση

KelMan — Mon, 26 Mar 2007 07:59:26 GMT

Δεν παίζει ρόλο που είναι item μέσα σε collection. Έτσι κι αλλιώς και το απλό textbox ανήκει στο collection από controls της φόρμας. Η τεχνική είναι ίδια: Κατασκευάζεις το ToolStrip τοποθετώντας κανονικά το τυπικό ToolStripTextBox. Κατόπιν, με find and replace αλλάζεις τα System.Windows.Forms.ToolStriptextBox με το όνομα που έχεις δώσει στο δικό σου control (αυτά βρίσκονται μέσα στο formname.Designer.vb).

Όσο για το TAB vs ENTER, ρίξε μια ματιά εδώ: http://www.dotnetzone.gr/cs/forums/thread/6837.aspx Εν ολίγοις, κάτι τέτοιο θα έκαα μόνο αν είχε ζητηθεί από τον πελάτη...

Απ: Beep ενοχλητική υπόθεση

gmlogic — Mon, 26 Mar 2007 07:28:46 GMT

Σε ευχαριστώ πολύ για τις συμβουλές σου.
Απλά θέλωντας να εφαρμόσω την τακτική overrides την OnKeyPress πλέον σε κάθε control που θα χρειαστεί να λειτουργεί το enter αντί γιά tab κόλησα στο ότι φτιάχνοντας ένα δικό μου ToolStripTextBox που θα κληρονομεί από την κλάση ToolStripTextBox πως θά το ενσωματόσω σε ένα ToolStrip.
Γιατί το ToolStripTextBox ειναι item μέσα σε (Collection) εκεί θέλω λίγο βοήθεια.
πχ το custom TextBox εμφανίζετε κανονικά στο ToolBox και μπορεί να το ρίξης μεσα στην φόρμα αλλά το ToolStripTextBox δεν στέκετε μόνο του αλλά περιέχετε μέσα σε ένα ToolStrip

ΥΓ
Εσείς χρησιμοποιήτε Enter ή Tab για μετακίνηση μέσα στη φόρμα?

Απ: Beep ενοχλητική υπόθεση

KelMan — Mon, 26 Mar 2007 03:57:34 GMT

Δεν το έχω δοκιμάσει αλλά η φιλοσοφία είναι ίδια. Θα φτιάξεις το δικό σου control που θα κληρονομεί από την κλάση ToolStripTextBox και θα κάνει overrides την OnKeyPress. Κατόπιν, find and replace όπως και με τα textbox.

Μια μικρή συμβουλή: Γενικά, μην πέφτεις με τα μούτρα στον κώδικα! Κάνε δύο βήματα πίσω και σκέψου πως θα δομήσεις καλύτερα το πρόγραμμά σου (πχ εφόσον ο χειρισμός του TAB είναι ευθύνη του control - όπως και το να μην κάνει beep - και όχι της φόρμας, βάλε μέσα στο custom control και αυτόν τον κώδικα. Επίσης, δες πως μια τεχνική που εφαρμόζεις για ένα control μπορείς να την εφαρμόσεις και για κάποιο άλλο. Έτσι, θα είσαι σε θέση να καταλαβαίνεις όχι μόνο τη λύση αλλά και τη φιλοσοφία της λύσης και την επόμενη που φορά που θα αντιμετωπίσεις παρόμοι πρόβλημα θα το λύσεις εύκολα.

Απ: Beep ενοχλητική υπόθεση

gmlogic — Sun, 25 Mar 2007 04:24:00 GMT

Ok Δουλεύει μια χαρά το Override σε ένα Custom TextBox
Όμως επειδή την μετατροπή του Tab σε Enter το είχα για όλη την Form μάλλον θα πρέπει να είναι custom και τα υπόποιπα control της φόρμας.
Το προβλημά μου είναι πώς θα εφαρμόσω το Override πχ σε ένα ToolStripTextΒox το ποίο περιέχετε μέσα σε ένα ToolStrip δηλ πως θα φτιάξω
ένα Custom ToolStripTextBox

Σας ευχαριστώ

Απ: Beep ενοχλητική υπόθεση

KelMan — Fri, 23 Mar 2007 17:19:19 GMT

Ναι...

Αν σε απασχολεί που έχεις ήδη τoποθετήσει τα TextBoxes, μπορείς πολύ εύκολα με ένα find & replace (και με ενεργοποιημένο το option "Search Hidden Text") να βρεις όλα τα System.Windows.Forms.TextBox σε {YourProjectName}.BeeplessTextBox

Απ: Beep ενοχλητική υπόθεση

gmlogic — Fri, 23 Mar 2007 17:05:56 GMT

Δηλαδή Μάνο προτείνεις μάλλον δικό textBox(Control).

Απ: Beep ενοχλητική υπόθεση

KelMan — Fri, 23 Mar 2007 15:33:27 GMT

Θα πρέπει να κάνεις override την OnKeyPress:

Public Class BeeplessTextBox
   Inherits TextBox

   Protected Overrides Sub OnKeyPress(ByVal e As KeyPressEventArgs)
      If e.KeyChar = CType(ChrW(Keys.Enter), Char) Then
         e.Handled = True
      Else
         MyBase.OnKeyPress(e)
      End If
   End Sub
End Class

Απ: Beep ενοχλητική υπόθεση

gmlogic — Fri, 23 Mar 2007 08:43:48 GMT

Λοιπόν χρησιμοποιώ μια procedure για να μεταφέρωμε με Enter απο Control σε Control

Private Sub Me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
End Sub

Private Sub Me_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
        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
                Case Else
                    Exit Sub
            End Select
            'SelectNextControl(Me.ActiveControl, NextControl, True, True, True)
            SendKeys.Send("{TAB}")
        End If
    End Sub

Όταν λοιπόν δίνω Enter μεταφέρετε απο Control σε Control αλλά ακούγετε και Beep
Δεν ξέρω αν υπάρχη κάποιος άλλος τρόπος για αντικατάσταση του Tab με Enter

Απ: Beep ενοχλητική υπόθεση

Δημήτρης Γκανάτσιος — Thu, 22 Mar 2007 21:39:45 GMT

Δεν είναι normal συμπεριφορά αυτό.... Beep συνήθως ακούγεται όταν πας να κάνεις εισαγωγή invalid data σε κάποιο control, ή κάνεις κλικ σε μία φόρμα που έχει ανοίξει μία άλλη με ShowDialog()...
για πες περισσότερα

Απ: Beep ενοχλητική υπόθεση

gmlogic — Thu, 22 Mar 2007 17:28:20 GMT

Δηλ Όταν δίνουμε Enter ή Tab σε ένα TextBox για να πάμε σε ένα επόμενο control ακούγετε Beep

Πώς μπορούμε να το αποφύγουμε αυτό ?

Απ: Beep ενοχλητική υπόθεση

Dimitris Papadimitriou — Wed, 21 Mar 2007 23:19:00 GMT

Σε πιο ενοχλητικό beep αναφέρεσαι; Και τι ακριβώς εννοείς "μεταφερόμαστε";

Beep ενοχλητική υπόθεση

gmlogic — Wed, 21 Mar 2007 16:39:17 GMT

Πως θα μπορούσαμε να μη ακούγετε το ενοχλητικό Beep όταν μεταφερόμαστε πχ από TextBox ή ToolStripTextBox σε επόμενο control

Δηλ Όταν δίνουμε Enter ή Tab σε ένα TextBox ακούγετε το Beep.

Ευχαριστώ