Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctDoubleCliqueMP - 1
Public Function DoubleCliqueMP(mot, livre)
Dim Resultat As Variant, motadeflechir$, msg, motdeflechi$, enlever, enleverg, mott$, motr$, i As I
nteger, ligne2$, code$, origine$, ssdebut$, msg2%, chercher$, nouveau$, un%, deux%, trois%
Dim action, textes$, nombre%, thayer$, motorginal$
motoriginal = mot
' NEG+
If frmBible.cboVersion.Text = "NEG+" Or frmBible.cboVersion.Text = "LSG+" Then
Call LireStrongNEG(mot)
Exit Function
End If
' Texte Massorétique
If frmBible.cboVersion.Text = "TM" Then
Load frmDicoHebreu
valinstr = InStr(1, mot, "-", vbTextCompare)
If valinstr 0 Then mot = Mid(mot, 1, valinstr - 1)
If Right(mot, 1) = "w" Then mot = Mid(mot, 1, Len(mot) - 1) ' très très peu de mots hébreux com
mençent par vav, voir DHAB, p.106
frmDicoHebreu.Show
frmDicoHebreu.txtHebreu.Text = mot
Exit Function
End If
'--------------------------------------------------------------------------------------
'NA-26
If frmBible.cboVersion.Text = "NA26+" Then
Load frmLexiqueNT
frmLexiqueNT.txtGrec.Text = mot
frmLexiqueNT.Show
frmLexiqueNT.MousePointer = 11 ' ici commence la recherche
If Right(mot, 1) = "j" Then
mot = Mid(mot, 1, Len(mot) - 1) & "s"
End If
mot = UCase(mot)
Call LexiqueNT_Morph(mot)
frmLexiqueNT.MousePointer = 0 ' là se termine la recherche
motr = frmLexiqueNT.txtVientde.Text
If motr "" Then
Call DefinirGrec(motr, mott)
Else
mott = "Pas de définition"
End If
frmLexiqueNT.txtFrancais.Text = mott
Exit Function
End If
'--------------------------------------------------------------------------------------
'Versions anglaises
If frmBible.cboVersion.Text = "ASV" Or _
frmBible.cboVersion.Text = "KJV" Or _
frmBible.cboVersion.Text = "YLT" Or _
frmBible.cboVersion.Text = "WEB" Or _
frmBible.cboVersion.Text = "BBE" Or _
frmBible.cboVersion.Text = "JPS" Or _
frmBible.cboVersion.Text = "DR" Or _
frmBible.cboVersion.Text = "NET" Or _
frmBible.cboVersion.Text = "NET" Or _
frmBible.cboVersion.Text = "DIAGLOTT" Or _
frmBible.cboVersion.Text = "APF-E" Or _
frmBible.cboVersion.Text = "Lightfoot" Or _
frmBible.cboVersion.Text = "ANF" Or _
frmBible.cboVersion.Text = "WBST" Then
Load frmDictionnaires
frmDictionnaires.txtRecherche = mot
frmDictionnaires.optEaston.Value = True
frmDictionnaires.btnRechercher_Click
frmDictionnaires.Show
Exit Function
End If