Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmAssistant - 1
Dim code$, un$, deux$, trois$, quatre$, cinq$, six$, sept$
Private Sub cbo2_GotFocus()
'dès qu'on connait le type, on peut renseigner cbo1, le cas ou le temps,etc.
Dim ttype$
ttype = cbo1.Text
If ttype = "nom (n)" Then
cbo2.Clear
'cbo3.Clear
cbo4.Clear
'cbo5.Clear
cbo6.Clear
cbo2.AddItem ("nominatif (n)")
cbo2.AddItem ("acusatif (a)")
cbo2.AddItem ("génitif (g)")
cbo2.AddItem ("datif (d)")
cbo2.AddItem ("vocatif (v)")
'cbo2.AddItem ("tous (*)")
cbo3.AddItem ("masculin (m)")
cbo3.AddItem ("féminin (f)")
cbo3.AddItem ("neutre (n)")
'cbo3.AddItem ("tous (*)")
cbo4.AddItem ("singulier (s)")
cbo4.AddItem ("pluriel (p)")
'cbo4.AddItem ("tous (*)")
cbo5.AddItem (", nom commun (c)")
cbo5.AddItem (", nom propre (p)")
'cbo5.Text = ", nom commun (c)"
cbo6.Clear
cbo7.Visible = False
ElseIf ttype = "verbe (v)" Then
cbo2.Clear
cbo3.Clear
cbo4.Clear
cbo5.Clear
cbo6.Clear
cbo2.AddItem ("indicatif (i)")
cbo2.AddItem ("impératif (d)")
cbo2.AddItem ("subjonctif (s)")
cbo2.AddItem ("optatif (o)")
cbo2.AddItem ("participe (p)")
cbo2.AddItem ("infinitif (n)")
'cbo2.AddItem ("tous (*)")
cbo3.AddItem ("présent (p)")
cbo3.AddItem ("futur (f)")
cbo3.AddItem ("aoriste (a)")
cbo3.AddItem ("imparfait (i)")
cbo3.AddItem ("parfait (x)")
cbo3.AddItem ("plusqueparfait (y)")
cbo3.AddItem ("futur du parfait (z)")
'cbo3.AddItem ("tous (*)")
cbo4.AddItem ("actif (a)")
cbo4.AddItem ("moyen (m)")
cbo4.AddItem ("passif (p)")
cbo4.AddItem ("moyen/passif (e)")
'cbo4.AddItem ("tous (*)")
cbo5.Clear
cbo5.AddItem ("1ère personne (1)")
cbo5.AddItem ("2ème personne (2)")
cbo5.AddItem ("3ème personne (3)")
'cbo5.AddItem ("tous (*)")
cbo6.Clear
cbo6.AddItem ("singulier (s)")
cbo6.AddItem ("pluriel (p)")
'cbo6.AddItem ("tous (*)")