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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120
| Private Sub ComboBox2_enter()
Dim Nom(2, 50) As String
Dim Client(50), Modele(10), Aspect(10), Pupille(10), PConnecteur(10), CConnecteur(10), Hydraulique(10), Abouts(10), Vis(10), Vidange(10), Revision(100), Article(10) As String
Dim i As Integer
Dim chaine As String
Call OuvreFichierTXT("PARAM.txt", Nom, Client, Modele, Aspect, Pupille, PConnecteur, CConnecteur, Hydraulique, Abouts, Vis, Vidange, Revision, Article)
ComboBox2.AddItem ""
For i = 0 To UBound(Modele)
If Modele(i) <> "" Then
ComboBox2.AddItem Modele(i)
End If
Next i
End Sub
'Private Sub ComboBox2_enter()
'Dim Nom(2, 50) As String
'Dim Client(50), Modele(10), Aspect(10), Pupille(10), PConnecteur(10), CConnecteur(10), Hydraulique(10), Abouts(10), Vis(10), Vidange(10), Revision(100), Article(10) As String
'Dim i As Integer
'Dim chaine As String
'Dim etat As Integer
'Call OuvreFichierTXT("PARAM.txt", Nom, Client, Modele, Aspect, Pupille, PConnecteur, CConnecteur, Hydraulique, Abouts, Vis, Vidange, Revision, Article)
'ComboBox11.Clear
'ComboBox11.AddItem ""
'etat = 0
' Select Case ComboBox2.Value
' Case "F2"
' For i = 0 To UBound(Article)
' chaine = Right(Article(i), 2)
' If chaine <> "AE" Or chaine <> "AF" Then etat = 1 Else etat = 0
' If etat = 1 And Article(i) <> "" Then
' ComboBox11.AddItem Article(i)
' End If
' Next i
' Case "IT"
' For i = 0 To UBound(Article)
' chaine = Right(Article(i), 2)
' If chaine = "AE" Or chaine = "AF" Then etat = 1 Else etat = 0
' If etat = 0 And Article(i) <> "" Then
' ComboBox11.AddItem Article(i)
' End If
' Next i
' Case ""
' For i = 0 To UBound(Modele)
' If Modele(i) <> "" Then
' ComboBox11.AddItem Modele(i)
' End If
' Next i
' End Select
' ComboBox11.ListIndex = 1
' If ComboBox2.ListIndex = 0 Then ComboBox11.ListIndex = 0
'End Sub
Private Sub ComboBox11_Enter()
Dim Nom(2, 50) As String
Dim Client(50), Modele(10), Aspect(10), Pupille(10), PConnecteur(10), CConnecteur(10), Hydraulique(10), Abouts(10), Vis(10), Vidange(10), Revision(100), Article(10) As String
Dim i As Integer
Dim chaine As String
Dim etat As Integer
Call OuvreFichierTXT("PARAM.txt", Nom, Client, Modele, Aspect, Pupille, PConnecteur, CConnecteur, Hydraulique, Abouts, Vis, Vidange, Revision, Article)
ComboBox11.Clear
ComboBox11.AddItem ""
etat = 0
Select Case ComboBox2.Value
Case "F2"
For i = 0 To UBound(Article)
chaine = Right(Article(i), 2)
If chaine = "AE" Or chaine = "AF" Then etat = 1 Else etat = 0
If etat <> 1 And Article(i) <> "" Then
ComboBox11.AddItem Article(i)
End If
Next i
Case "IT"
For i = 0 To UBound(Article)
chaine = Right(Article(i), 2)
If chaine = "AE" Or chaine = "AF" Then etat = 0 Else etat = 1
If etat <> 1 And Article(i) <> "" Then
ComboBox11.AddItem Article(i)
End If
Next i
Case ""
For i = 0 To UBound(Article)
If Article(i) <> "" Then
ComboBox11.AddItem Article(i)
End If
Next i
End Select
End Sub
Private Sub ComboBox11_change()
Dim Nom(2, 50) As String
Dim Client(50), Modele(10), Aspect(10), Pupille(10), PConnecteur(10), CConnecteur(10), Hydraulique(10), Abouts(10), Vis(10), Vidange(10), Revision(100), Article(10) As String
Dim i As Integer
Dim chaine As String
Dim etat As Integer
Call OuvreFichierTXT("PARAM.txt", Nom, Client, Modele, Aspect, Pupille, PConnecteur, CConnecteur, Hydraulique, Abouts, Vis, Vidange, Revision, Article)
'ComboBox2.Clear
'ComboBox2.AddItem ""
chaine = Right(ComboBox11.Value, 2)
If chaine = "AE" Or chaine = "AF" Then etat = 1 Else etat = 0
Select Case etat
Case 0
ComboBox2.ListIndex = 1
Case 1
ComboBox2.ListIndex = 2
End Select
If ComboBox11.ListIndex = 0 Then ComboBox2.ListIndex = 0
End Sub |
Partager