Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmDictionnaires - 2
Loop
End If
Loop While Not EOF(lfile)
If Left(ligne, 2) = "$$" Then
GoTo apres:
Else
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & ligne
End If
apres:
'MsgBox frmParse2.Text1.Text
'mot = frmParse2.Text1.Text
Close #lfile
frmDictionnaires.txtResultat = UCase(mot) & " :" & vbCrLf & Mid(frmParse2.Text1.Text, Len(mot) + 4,
Len(frmParse2.Text1.Text))
End Sub
Private Sub Form_Load()
cboEncyclo.AddItem ("Easton")
cboEncyclo.AddItem ("Smith")
cboEncyclo.AddItem ("ISBE")
cboEncyclo.AddItem ("ATSBD")
cboEncyclo.AddItem ("Wace")
cboEncyclo.AddItem ("Webster")
cboEncyclo.AddItem ("Nuttall")
cboEncyclo.AddItem ("Hitchcock")
cboEncyclo.Text = "Easton"
End Sub
Private Sub txtrecherche_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then btnRechercher_Click
End Sub
Private Sub txtresultat_DblClick()
txtRecherche.Text = txtResultat.SelText
txtRecherche.Text = Trim(txtRecherche.Text)
txtRecherche.Text = Replace(txtRecherche.Text, ",", "")
txtRecherche.Text = Replace(txtRecherche.Text, ".", "")
txtRecherche.Text = Replace(txtRecherche.Text, "!", "")
txtRecherche.Text = Replace(txtRecherche.Text, ":", "")
txtRecherche.Text = Replace(txtRecherche.Text, "(", "")
txtRecherche.Text = Replace(txtRecherche.Text, ")", "")
btnRechercher_Click
End Sub