Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmAssistant - 4
cbo5.AddItem ("vocatif (v)")
cbo6.Clear
cbo6.AddItem ("masculin (m)")
cbo6.AddItem ("féminin (f)")
cbo6.AddItem ("neutre (n)")
cbo7.Clear
cbo7.AddItem ("singulier (s)")
cbo7.AddItem ("pluriel (p)")
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Public Sub Command2_Click()
If vientde = "" And _
recherche = "" Then
GoTo suite:
End If
un = ""
deux = ""
trois = ""
quatre = ""
cinq = ""
six = ""
sept = ""
'les codes particuliers correspondent à l'avant dernière lettre de chaque champs
' exemple: "nom (n)" , code = n
If cbo1.Text "" Then un = Mid(cbo1.Text, Len(cbo1.Text) - 1, 1)
If cbo2.Text "" Then deux = Mid(cbo2.Text, Len(cbo2.Text) - 1, 1)
If cbo3.Text "" Then trois = Mid(cbo3.Text, Len(cbo3.Text) - 1, 1)
If cbo4.Text "" Then quatre = Mid(cbo4.Text, Len(cbo4.Text) - 1, 1)
If cbo5.Text "" And Len(cbo5.Text) > 2 Then cinq = Mid(cbo5.Text, Len(cbo5.Text) - 1, 1)
If cbo6.Text "" And Len(cbo6.Text) > 2 Then six = Mid(cbo6.Text, Len(cbo6.Text) - 1, 1)
If cbo7.Text "" And Len(cbo7.Text) > 2 Then sept = Mid(cbo7.Text, Len(cbo7.Text) - 1, 1)
'ceci correspond donc au nouveau code issus des modifications de l'utilisateur
code = Trim(un & deux & trois & quatre & cinq & six & sept)
' j'efface toute trace d'une recherche précédente
Label1.Caption = ""
txtcode.Text = code
vientde = frmAnalyseMorphologique.lblvientde.Caption
recherche = vientde & " (" & code & ")"
txtRecherche.Text = recherche
nveaucode = code
suite:
'je dois quant même récupérer le nveaucode
If cbo1.Text "" Then un = Mid(cbo1.Text, Len(cbo1.Text) - 1, 1)
If cbo2.Text "" Then deux = Mid(cbo2.Text, Len(cbo2.Text) - 1, 1)
If cbo3.Text "" Then trois = Mid(cbo3.Text, Len(cbo3.Text) - 1, 1)
If cbo4.Text "" Then quatre = Mid(cbo4.Text, Len(cbo4.Text) - 1, 1)
If cbo5.Text "" And Len(cbo5.Text) > 2 Then cinq = Mid(cbo5.Text, Len(cbo5.Text) - 1, 1)
If cbo6.Text "" And Len(cbo6.Text) > 2 Then six = Mid(cbo6.Text, Len(cbo6.Text) - 1, 1)
If cbo7.Text "" And Len(cbo7.Text) > 2 Then sept = Mid(cbo7.Text, Len(cbo7.Text) - 1, 1)
'ceci correspond donc au nouveau code issus des modifications de l'utilisateur
code = Trim(un & deux & trois & quatre & cinq & six & sept)
nveaucode = code
recherche = frmAssistant.txtRecherche.Text & " (" & nveaucode & ")"
Call RechercheMorphologique(recherche, nveaucode)
lstPassages.Text = lstPassages.List(0)
lstPassages_Click
End Sub
Private Sub Form_Load()
autoexecut = False
cbo1.AddItem ("nom (n)")
cbo1.AddItem ("verbe (v)")
cbo1.AddItem ("adjectif (a)")
cbo1.AddItem ("pronom (r)")