Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctDoubleCliqueMP - 2
' SEPTANTE
'If frmBible.cboVersion.Text = "Septante" Then
'Call AnalyseSeptante(mot)
'Exit Function
'End If
'WH & STRONG
If frmBible.cboVersion.Text = "W/H & Strong" Then
Call AnalyseWHStrong(mot)
Exit Function
End If
' SEPTANTE
'optspecialise = True
'If optspecialise = True Then
'Call DoubleCliqueSeptante
'Exit Function
'End If
' OPTIONS INTERNET
If frmBible.cboVersion.Text "Vulgate" Then
mot = Replace(mot, "\", "")
mot = Replace(mot, "c", "x")
mot = Replace(mot, "j", "s")
mot = Replace(mot, "/", "")
mot = Replace(mot, ")", "")
mot = Replace(mot, "(", "")
mot = Replace(mot, "|", "")
mot = Replace(mot, "=", "")
mot = Replace(mot, ".", "")
mot = Replace(mot, ";", "")
mot = Replace(mot, "$", "")
mot = Replace(mot, ":", "")
langue = "latin"
'frmBrowser.cboAddress.Text = "http://www.unboundbible.org/greek_search/index.cfm?RequestTimeout=50
0&fuseaction=list&lang=French&word=" & mot
End If
erreur:
Exit Function
End Function