Empêcher le dans une combobox.Résolu

Question

Bonjour, Je suis en visual basic 2013 et j'ai un souci. J'ai une combobox (cboLocalite01) qui se remplit correctement. En voici le code : cboLocalite01.Items.Clear()For ll As Integer = 1 To TableCPostaux.maxcp(indPays) cboLocalite01.Items.Add(TableCPostaux.tableCPostaux(1, ll))Next llcboLocalite01.DropDownStyle = ComboBoxStyle.SimplecboLocalite01.AutoCompleteMode = AutoCompleteMode.SuggestAppendcboLocalite01.AutoCompleteSource = AutoCompleteSource.ListItems Je souhaite que la combobox me propose un choix de plus en plus précis, caractère par caractère. Jusqu'ici tout fonctionne. Dès que j'appuie sur (keycode=8) tout fonctionne encore à merveille. Par contre, quand j'appuie sur , là, la combobox se vide. Ggrr. Tout est perdu. Malgré l'utilisation du keydown. En voici le code : Private Sub cboLocalite01_KeyDown(sender As Object, e As KeyEventArgs) Handles cboLocalite01.KeyDown If e.KeyCode = Keys.Return Then My.Computer.Keyboard.SendKeys("{TAB}") End IfEnd Sub Pouvez-vous m'aider ? Pouvez-vous me consacrer un peu de votre temps pour m'aider à solutionner ce souci. Un grand merci par avance. jyd

jordane45 · Answer

Bonjour,

Il semble qu'il faille utiliser un correctif :
http://support.microsoft.com/kb/2868238/en-us

Puis dans ton code au lieu du "KeyDown", utiliser

Private Sub cboLocalite01_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cboLocalite01.SelectionChangeCommitted
        Console.WriteLine("Combo Text = " & cboLocalite01.Text)
        My.Computer.Keyboard.SendKeys("{TAB}")

End Sub

ucfoutu · Answer

Bonjour, 
pardonnez à l'ignare que je suis en VB.Net.
Pourquoi un inélégant SendKeys et non la modification de la valeur de e.KeyCode ?

NHenry · Answer

Sinon, ce sujet en parle aussi pas mal :
http://codes-sources.commentcamarche.net/forum/affich-10034238-auto-tabulation

jytest · Answer

Merci à tous pour votre passage sur mon post.

Pour info,
avec ou sans le correctif ms,
la solution de Jordane ne fonctionne pas non plus.
"cboLocalite01_SelectionChangeCommitted" gère bien le <enter>
mais renvoie aussi un combobox vide !

J'ai l'impression qu'il me manque un petit truc dans le code

jytest · Answer

A NHenry,
ton sujet ne m'aide malheureusement pas plus...

A l'aide, svp

Whismeril · Answer

Bonjour

as tu essayé 
e.Handled = true

jytest · Answer

Merci Whismeril...
En insérant a ligne de code dans mon "keydown",
cela ne fonctionne pas mieux.

jytest · Answer

Cela se complique,
le click souris sur la liste efface aussi le contenu de la combobox.
Pourquoi ?
Comment solutionner ce double souci.
J'ai beau tester des rucs.
Rien n'y fait.
Pourquoi ?

Merci à tout pour votre aide

pijaku · Answer

Bonjour,

As tu essayé, comme te le suggère ucfoutu ici : LienAncre :
Private Sub cboLocalite01_KeyDown(sender As Object, e As KeyEventArgs) Handles cboLocalite01.KeyDown
    If e.KeyCode = Keys.Return Then e.KeyCode = Keys.Tab 'ou e.KeyCode = 0 etc...
End Sub 

Désolé également pour cette réponse d'ignare, mais la logique semble correcte...

jordane45 · Answer

Bon.. après quelques rapides tests..
voici quelque chose qui semble fonctionner....

Je te laisse corriger/améliorer si besoin.

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

cboLocalite01.Items.Clear()
        For ll As Integer = 1 To 150
            cboLocalite01.Items.Add(ll)
        Next ll
        cboLocalite01.DropDownStyle = ComboBoxStyle.Simple
        cboLocalite01.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        cboLocalite01.AutoCompleteSource = AutoCompleteSource.ListItems

End Sub

Private Sub cboLocalite01_KeyPress(sender As Object, e As KeyPressEventArgs) Handles cboLocalite01.KeyPress
        Console.WriteLine("keypress =>" & e.KeyChar)
        Me.TextBox1.Text = cboLocalite01.Text & e.KeyChar
    End Sub

Private Sub cboLocalite01_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cboLocalite01.SelectionChangeCommitted
        Console.WriteLine("SelectionChangeCommitted")
        If cboLocalite01.Text <> "" Then
            cboLocalite01.Text = Me.TextBox1.Text
        End If

End Sub

Private Sub cboLocalite01_KeyDown(sender As Object, e As KeyEventArgs) Handles cboLocalite01.KeyDown
        Console.WriteLine("KeyDown")

If e.KeyCode = Keys.Return Then

Console.WriteLine("Enter")
            cboLocalite01.Text = Me.TextBox1.Text
        End If
    End Sub

Private Sub cboLocalite01_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboLocalite01.SelectedValueChanged
        Console.WriteLine("SelectedValueChanged")
    End Sub

Private Sub cboLocalite01_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLocalite01.SelectedIndexChanged
        Console.WriteLine("SelectedIndexChanged")
    End Sub
End Class

NB : Pour fonctionner... il faut ajouter une TEXTBOX  (pour moi porte le nom de TextBox1)...

 
 
Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane

AmaniDD · Answer

OOOOhh! Il correspond bien à mes besoin. Merci pour toutes ces réponses ! 
--------------------------------------------------------

Empêcher le <enter> dans une combobox.

11 réponses

Votre réponse

Discussions similaires