Discussion :

[dahmane2007]

Voila, j'ai une base de donnée dont laquelle j'ai placé des contrôles (textbox, combobox, etc...) et je voudrais savoir s'il y a une méthode de Find ou recherche qui me permet de trouver facilement les codes dans la BD.

Exemple:
SUpposons que j'ai des codes suivant:
ABGT012515
CBJJAO2255
CAKJIJIII22
AAHHSHSHSS

Si je tape dans la zone de texte recherche code, le caractère A, il me positionne directement sur le champ qui contient A, et puis si je continue AA, il doit positionner sur AA, et ainsi de suite pour le reste des caractères.
Avez-vous une idée ?.

C'est plus pratique quand t'il s'agit d'une BD importante ?.

[eikeshi]

Tu peux utiliser la méthode StartsWith(Value As String) As Boolean.
Par exemple, tu places tes données dans un DataGrid puis tu crées une TextBox pour ta recherche et sur l'évènement KeyUp tu mets le code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox.KeyUp
     For i As Integer = 0 To DataGrid.Rows.Count - 1
          If DataGrid.Item(1, i).Value.ToString.StartsWith(TextBox.Text) Then
               DataGrid.Item(1, i).Selected = True
               Exit Sub
          End If
     Next
End Sub

[dahmane2007]

Je vais essayer ca aujourdh'hui et te tiendrait au courant.
Merci beaucoup !!

[dahmane2007]

Ca marche pas sous VB Net 2008; Il me donne des erreurs sur DataGrid.Rows.
Merci

[eikeshi]

Pourtant je suis sure de mon coup, fais moi voir ton code s'il te plait.

[dahmane2007]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub txtRecherche_KeyUp(ByVal sender As Object, _
                                   ByVal e As System.Windows.Forms.KeyEventArgs) _
                                   Handles txtRecherche.KeyUp
        For i As Integer = 0 To DataGrid.Rows.Count - 1
            If DataGrid.Item(1, i).Value.ToString.StartsWith(TextBox.Text) Then
                DataGrid.Item(1, i).Selected = True
                Exit Sub
            End If
        Next

    End Sub

VB Net me donne des erreurs pour DataGrid (caractère en Gras)

[dahmane2007]

En plus, VB Net me dit que l'instruction If Data ..., trop d'arguments.

[eikeshi]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub txtRecherche_KeyUp(ByVal sender As Object, _
                                   ByVal e As System.Windows.Forms.KeyEventArgs) _
                                   Handles txtRecherche.KeyUp
        For i As Integer = 0 To DataGrid.Rows.Count - 1
            If DataGrid.Item(1, i).Value.ToString.StartsWith(TextBox.Text) Then
                DataGrid.Item(1, i).Selected = True
                Exit Sub
            End If
        Next

    End Sub

VB Net me donne des erreurs pour DataGrid (caractère en Gras)

Tu sais, je t'ai donné un exemple, il faut quand même faire l'effort de remplacer les objets par rapport à ton projet.
Ta TextBox s'appelle txtRecherche, donc dans ton code tu dois utiliser ta TextBox.

Exemple:

Code :

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

1
2
3
4
5
6
7
8
Private Sub txtRecherche_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtRecherche.KeyUp
        For i As Integer = 0 To TonDataGrid.Rows.Count - 1
            If TonDataGrid.Item(1,i).Value.ToString.StartsWith(txtRecherche.Text)Then
                TonDataGrid.Item(1, i).Selected = True
                Exit Sub
            End If
        Next
End Sub

Voila il te suffit juste de remplacer TonDataGrid par le nom que tu as donné à ton DataGrid et peut-être remplacer les 1 à TonDataGrid.Item(1,i) si tes données ne se trouve pas dans la premiere colonne.

[dahmane2007]

C'est bon, j'ai trouvé une autre solution et ca marche trés bien.
Merci pour toutes les réponses.

[eikeshi]

C'est bon, j'ai trouvé une autre solution et ca marche trés bien.
Merci pour toutes les réponses.

Ok mais si tu essayes ma solution tu verras qu'elle fonctionne aussi, peut être pas aussi bien que celle que tu as trouvée mais elle fonctionne.

[dahmane2007]

Ok mais si tu essayes ma solution tu verras qu'elle fonctionne aussi, peut être pas aussi bien que celle que tu as trouvée mais elle fonctionne.

C'est sûr que je vais essayer ta procédure.
Merci.

[Bonne Année]

Bonjour à tous,

Je recherche le script pour pouvoir redémarrer mon ordinateur.

Je m'explique.

Je vais avoir un bouton vb 2005.
Et je voudrais que quand je clique sur le bouton, mon ordinateur redémarre. Je sais que l'on peut utiliser un shutdown.



J'ai déjà utiliser ce script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Sub Eteindre_Windows()
    Dim Arg As String
 
    Arg = "rundll32.exe user.exe,restartwindows"
 
Call Shell(Arg)
End Sub
 
Sub Bouton1
 
    Call Eteindre_Windows()  'Windows redémarre
 
End Sub

Mais il m'affiche qu'il y a une erreur sur user.exe. Donc ca ne fonctionne pas.

Sachant que ce n'est pas les popriètés du Sub Bouton1 car je l'ai ai enlever

Pouvez m'aider sur cette question, svp ????


Merci d'avance.

Bonne Année

[Bonne Année]

Bonjour,

Non c'est bon, j'ai trouver un code qui me permet d'arrêter mon ordinateur.

C'est assez bourin mais, je l'ai chopper dans un site. C'est pas mal, tenez pour les prochains :

Code :

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

1
2
3
4
 
AppActivate("program manager") 
System.Threading.Thread.Sleep(500) 
SendKeys.Send("%{F4}{TAB}{TAB}{ENTER}")

...

[Bonne Année]

Mais si vous avez une autre manière de pouvoir le fermer... Et bien, je le prendrais.

Merci d'avance

Bonne Année