[VB6] Demande d'aide sur un programme !
Bonjour , j'ai une erreur que je n'arrive pas à resoudre
le principe du programme est de chercher un caractére dans un chaine , et de recopier les caractére situé avant celui rechercher dans un tableau , et c la ke ca bug
voici le programme :
Code:
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
31
32
33
|
Dim chaine As String
Dim caractere_rechercher As String
Dim caractere_trouver As Boolean
Dim caractere_chaine As String
Dim taille_chaine As Integer
Dim nom_menu As String
Dim tab_nom_menu() As String
Dim i As Integer
Dim a As Integer
Private Sub Command1_Click()
i = 1
a = 0
chaine = Text1.Text
caractere_trouver = False
caractere_rechercher = ">"
taille_chaine = Len(chaine)
While caractere_trouver = False
caractere_chaine = Mid(chaine, i, 1)
If caractere_chaine = caractere_rechercher Then
Label1.Caption = nom_menu
Else
caractere_chaine = tab_nom_menu(a) <----- INDICE EN DEHORS DE LA PLAGE
nom_menu = nom_menu & tab_nom_menu(a)
i = i + 1
a = a + 1
End If
Wend
End Sub |
merci d'avance
amicalement lucas
