Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 1
'Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
'(ByVal hwndCaller As Long, ByVal pszFile As String, _
'ByVal uCommand As Long, ByVal dwData As Long) As Long
'Dim robby As IAgentCtlCharacterEx
'Const DATAPATH = "robby.acs"
Dim debloque As Boolean
Dim ssaidegr As Boolean
Dim automatos As Boolean
Private WithEvents m_frmSysTray As frmSysTray
Public Sub btnGo_Click()
frmBible.txtPassage.Text = ""
' définitions des variables de cette procédure
Dim fichierseptante$
Dim dictionnaire$, lexique$
Dim version, msg, chercher, fichier, passage, ligne, ligne2, livre
' vidage du tampon
frmBible.lbltampon.Text = ""
' petite gestion de l'alignement du texte
If cboVersion.Text = "BHS" Or cboVersion.Text = "WTM" Then
txtPassage.Alignment = 1
Else
txtPassage.Alignment = 0
End If
'j'enlève les outils du bas
If cboVersion.Text = "W/H & Strong" Then
sortievocale.Visible = False
End If
' affectation des polices de caractères
'Texte Massorétique
lblstrongfr.Visible = False
optstrongfr.Visible = False
If cboVersion.Text = "TM" Then
If cboLivre.Text = "Matthieu" Then
cboLivre.Text = "Genèse"
livre = "Genèse"
End If
If cboVersion.Text = "SG" Then
cboLivre.Text = "Genèse"
cboLivre.Text = "Matthieu"
livre = "Matthieu"
End If
frmBible.txtPassage.Font = "OLBHEB"
livre = cboLivre.Text
chapitre = txtChapitre.Text
verset = txtverset.Text
Call LireBHS(livre, chapitre, verset)
frmBible.lblchapitre.Caption = frmBible.cboLivre.Text & " " & frmBible.txtChapitre.Text & ":" &
frmBible.txtverset.Text
txtPassage.ToolTipText = "Double-cliquez sur un mot pour l'analyser ou le définir"
Exit Sub
End If
' Versions anglaises / ajout du menu
If cboVersion.Text = "ASV" Or _
cboVersion.Text = "KJV" Or _
cboVersion.Text = "YLT" Or _
cboVersion.Text = "WEB" Or _
cboVersion.Text = "BBE" Or _
cboVersion.Text = "JPS" Or _
cboVersion.Text = "DR" Or _
cboVersion.Text = "WBST" Then
sortievocale.Visible = False
End If