Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 27
ElseIf livre = "Tite" Then
chercher = "63"
ElseIf livre = "Philémon" Then
chercher = "64"
ElseIf livre = "Hébreux" Then
chercher = "65"
ElseIf livre = "Jacques" Then
chercher = "66"
ElseIf livre = "1 Pierre" Then
chercher = "67"
ElseIf livre = "2 Pierre" Then
chercher = "68"
ElseIf livre = "1 Jean" Then
chercher = "69"
ElseIf livre = "2 Jean" Then
chercher = "70"
ElseIf livre = "3 Jean" Then
chercher = "71"
ElseIf livre = "Jude" Then
chercher = "72"
ElseIf livre = "Révélation" Then
chercher = "73"
'http://www.laparola.net/greco/index.php?rif1=49&rif2=4%3A15
End If
frmBrowser.cboAddress.Text = "http://www.laparola.net/greco/index.php?rif1=" & chercher & "&rif2="
& chapitre & "%3A" & verset
'http://bible.ovc.edu/tc/lay13act.htm#ac20_28b
End Sub
Private Sub mnuApparatus_Click()
Dim page As Integer
Dim livre As String
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\Apparat.pdf")
frmPDF.Caption = "A Student's Guide to New Testament Textual Variants"
frmPDF.pdfmain.setCurrentPage (0)
frmPDF.Show
End Sub
Public Sub mnuATSBD_Click()
Load frmDictionnaires
frmDictionnaires.cboEncyclo.Text = "ATSBD"
frmDictionnaires.Show
End Sub
Private Sub mnuAutomatos_Click()
automatos = True
Dim msg$
If cboVersion.Text = "W/H & Strong" Or cboVersion = "BHS+" Or cboVersion = "TM" Then
Load frmAutomatos
frmAutomatos.Show
'frmBible.Hide
Else
msg = MsgBox("Verse Parser n'est disponible pour que le texte grec Westcott/Hort & Strong et hé
breu BHS+ !", vbInformation)
End If
End Sub
Public Sub mnuAuvray_Click()
'frmBible.pdfmain.LoadFile (App.Path & "\ref\auv\auvray.pdf")
'frmBible.pdfmain.setCurrentPage (1)
frmPDF.pdfmain.LoadFile (App.Path & "\ref\auv\auvray.pdf")
frmPDF.Show
End Sub
Public Sub mnuBDBA_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\boxus\boxus.pdf")
frmPDF.Caption = "Anne-Marie Boxus, Précis de grammaire grecque"
frmPDF.Show