Discussion :

[IL-MAFIOSO]

Bonjour à tous,

Dans un de mes forms, j'ai 3 textbox qui, dès la saisie d'un caractère, propose les choix disponible dans une bdd access. Le code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Formlots_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        nomlot.AutoCompleteMode = AutoCompleteMode.Suggest
        nomlot.AutoCompleteSource = AutoCompleteSource.CustomSource
        nomlot1.AutoCompleteMode = AutoCompleteMode.Suggest
        nomlot1.AutoCompleteSource = AutoCompleteSource.CustomSource
        nomlot2.AutoCompleteMode = AutoCompleteMode.Suggest
        nomlot2.AutoCompleteSource = AutoCompleteSource.CustomSource
 
        Call connection7()
 
        Dim Cmd As OleDbCommand
        Dim Dr As OleDbDataReader
        Dim Cn As New OleDbConnection(base1 & base9)
 
        Try
            Cmd = New OleDbCommand("Select Abrev, Libelle from Villes", Cn)
            Cn.Open()
            Dr = Cmd.ExecuteReader
            While Dr.Read
                nomlot.AutoCompleteCustomSource.Add(Dr.GetString(0))
                nomlot1.AutoCompleteCustomSource.Add(Dr.GetString(0))
                nomlot2.AutoCompleteCustomSource.Add(Dr.GetString(0))
            End While
            Dr.Close()
            Cn.Close()
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try
    End Sub

Dans ma BDD, j'ai une autre colonne intitulée Libelle.
J'aimerais que lorsque l'utilisateur se promène dans la liste de choix qui apparait dans le textbox, corresponde à côté sous la forme d'un label l'équivalent que j'ai dans ma colonne Libelle.
Merci pour votre aide

[Pol63]

un usercontrol

[IL-MAFIOSO]

Hello Pol63,

Usercontrom ? connais pas ....

J'ai un peu regardé :certains parlent d'une dll, d'autres de mettre dans le projet, etc ....
C'est dur à mettre en place car j'ai jamais fait celà ?

[Graffito]

Une solution simple consiste à mettre dans les éléments de la liste AutoCompleteCustomSource Abbrev +":"+Libelle au lieu de simplement "Abbrev" et lors de l'exploitation de la valeur du TextBox, on décompose le texte de la TextBox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
nomlot.AutoCompleteCustomSource.Add(Dr.GetString(0) & ":" & Dr.GetString(1))
...
Abbrev= myTextBox.Text.Split(':')[0] 
Libelle = (myTextBox.Text+":").Split(':')[1]

Par ailleurs, on peut créer un seul "New List(Of String)" et l'utiliser comme AutoCompleteDataSource pour les 3 TextBox.

[IL-MAFIOSO]

Hello,

J'ai essayé ta suggestion. J'ai juste un soucis avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Abbrev= myTextBox.Text.Split(':')[0]

En Vbnet çà donne normalement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Abbrev= nomlot.Text.Split(":",0)

Le soucis est que je dois affecter ce que tu as mis comme abbrev à un textbox d'un autre Form. J'ai essayé ceci pour ne prendre que ce qui est avant les :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formrecap.textbox1.text = nomlot.Text.Split(":",0)

Et j'obtiens ceci :

L'argument qui correspond au paramètre 'separator' passe de 'String' à 'Tableau à 1 dimension(s) de Char'.

Merci pour ton aide

[IL-MAFIOSO]

Re,

Merci pour la suggestion.

Après de multiples recherches, j'ai compris

J'ai fais ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim strSplit() As String
strSplit = Split(nomlot.Text, ":")
Formrecap.textbox1.Text = strSplit(0)

J'ai pas réussi à faire + court, voir mettre cela sur une seule ligne directement pour affecter la valeur au textbox1.

C'est possible ?

[Pol63]

il suffit pourtant d'identifier chaque chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim a
a = f
b = a(0)
 
'=>
 
b = f(0)

[IL-MAFIOSO]

Salut Pol63,

Je suis d'accord avec toi . Pour toi c'est peut-être évident. Mais moi je découvre beaucoup de choses grâce à ce forum et vous tous : )
Et vous m'avez déjà apporté beaucoup de choses. Mais tout n'est pas évident pour moi .
Je classe ce topic comme résolu. Vous m'avez orienté sur une nouvelle voie que j'ai exploité avec succès mais avec un peu de mal quand même.

Merci encore et a bientôt

[IL-MAFIOSO]

Rebonjour à tous,

Après quelques jours de tests, je reviens vers vous pour poser une dernière question :

Lorsque l'utilisateur fait son choix dans la liste qui apparait dans le textbox, tout le contenu du textbox reste à ce moment en sélectionné (fond bleu)

J'aimerais gérer l"évènement lorsque la personne a choisi pour ensuite l'orienter directement vers un bouton avec le .select()

Quel évènement je dois gérer ?
Merci pour votre aide

[Graffito]

On utilisera l'event TextChanged dans lequel on vérifiera qu'il y a une et une seule valeur correspondant au Text de la TextBox.

[IL-MAFIOSO]

Salut Graffito,

J'ai essayé l'évènement textchange de la textbox en testant par exemple que s'il y a + de 5 caractères, je fais mon bouton.select().
Mais alors, la suggestion comme faite dans mon code + haut ne marche plus ....

on vérifiera qu'il y a une et une seule valeur correspondant au Text de la TextBox.

Tu peux un peu m'en dire + ? Merci d'avance

[Graffito]

Parmi ces 3 possibilités sur le TextChanged :
1) le text ne correspond à aucun élément du DataSource,
2) le text correspond à plusieurs éléments du DataSource,
3) le texte correspond à un seul élément du DataSource.

Seul le cas 3) déclenchera une action.

[IL-MAFIOSO]

Salut,

Tu m'excusera mais je saisis pas tout ....
Dans mon formload, pour l'autosuggest, je n'utilise pas de datasource.
Je dois tester l'AutoCompleteSource ?
Si oui de quelle manière ? car j'ai jamais fait cela auparavant.
Merci pour ta future aide

[Graffito]

"DataSource" = AutocompleteSource.

Je dois tester l'AutoCompleteSource ?Si oui de quelle manière ?

Il s'agit simplement de vérifier à quels éléments de L'AutoCompleteSource pourraient correspondre nomlotX.TextBox.Text.

[IL-MAFIOSO]

Resalut,

Merci pour ta réponse. Concernant mon projet, la suggestion que je fais n'est pas restrictive. C'est à dire qu'il peut saisir autre chose s'il ne trouve pas son bonheur dans la suggestion.

Je pensais qu'on pouvait simplement faire en sorte que s'il clique sur une des lignes suggérés, le contenu du textbox ne reste pas entièrement sélectionné (fond bleu) , mais que juste le curseur se placerait après le dernier caractère. Celà permettrait peut-être d'avoir le contenu du textbox qui ne serait pas sélectionné.

[IL-MAFIOSO]

Rebonjour à tous,

Bon ben j'ai pas encore réussi à faire ce que je veux faire pour éviter que le contenu de mon textbox reste en sélectionné (en bleu)....

[_Ez3kiel]

Si j'ai bien compris, tu veux juste que une fois le texte rempli et sélectionné en bleu, le curseur se place à la fin du texte ?

Si oui, alors après le chargement de la textbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TaTxtBox.Select(TaTxtBox.Text.Length, 0)

Si non ... J'ai mal compris.

[IL-MAFIOSO]

Salut,

En fait, après le choix dans la suggestion, le contenu de la textbox reste en bleu (sélectionné). Moi je veux que le contenu ne soit plus sélectionné.

[_Ez3kiel]

Tu peux tester le KeyPress de la textbox, s'il vaut 13, l'user a tapé sur "Entrée", et également penser à tester le double click. Selon l'un ou l'autre, si le test est validé, tu donnes le focus à ton control suivant, ou comme ça t'arrange?

[IL-MAFIOSO]

Re, voici à l'état actuel le contenu concernant ma textbox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub nomlot_TextChanged(sender As System.Object, e As System.EventArgs) Handles nomlot.TextChanged
        Dim currstart As Integer
        ' Get the current position of the cursor.
        currstart = nomlot.SelectionStart
        ' Change the text to capitals.
        nomlot.Text = UCase(nomlot.Text)
        ' Reset the cursor position.
        nomlot.SelectionStart = currstart
End Sub

Je ne mets uniquement tout en majuscules. Je ne gère pas la touche "Entrée" car les gens cliquent directement sur le bouton valider.
Je ne sais pas trop quoi changer pour empêcher que ma textbox soit en mode sélectionné.... J'ai cherché sur google. Tout le monde veut sélectionner le contenu de son textbox mais moi, je veux faire le contraire.