Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 43
ofile = FreeFile
fichier = App.Path & "\tools\bp.ini"
pw = InputBox("Saisissez le mot de passe (respecter la casse)." & vbCrLf & "Nota: pour obtenir le m
ot de passe, contact: didier@areopage.net [objet : PW-BP]." & vbCrLf & "En envoyant un mail blanc (
ou avec un message sympa!) avec cet objet, vous certifiez posséder les versions papier des document
s suivants : TWOT, TDNT, NEG, NBS, JER, TOB, BFC, NET, Abel, Auvray, et considérez les modules du p
résent logiciel comme vos copies de sauvegarde personnelles (reproduction et diffusion interdites).
", "Débloquer les Bibles...")
If pw = "nbs" Then
debloque = True
Open fichier For Output As #ofile
Print #ofile, "NBS"
Close
msg = MsgBox("Débloquage effectué !", vbInformation)
mnuGingrich.Enabled = True
mnuTWOT.Enabled = True
mnuTDNT.Enabled = True
mnuRosetta.Enabled = True
mnuAuvray.Enabled = True
mnuAbel.Enabled = True
cboVersion.Clear
cboVersion.AddItem ("BHS")
'cboVersion.AddItem ("WTM")
cboVersion.AddItem ("TM")
cboVersion.AddItem ("SG")
cboVersion.AddItem ("--")
cboVersion.AddItem ("LXX")
cboVersion.AddItem ("NA26+")
cboVersion.AddItem ("NA27")
cboVersion.AddItem ("WH+")
cboVersion.AddItem ("W/H & Strong")
cboVersion.AddItem ("Stephanus")
cboVersion.AddItem ("Scrivener")
cboVersion.AddItem ("--")
cboVersion.AddItem ("APF-G")
cboVersion.AddItem ("APF-F")
cboVersion.AddItem ("--")
cboVersion.AddItem ("Vulgate")
cboVersion.AddItem ("--")
cboVersion.AddItem ("TMN")
cboVersion.AddItem ("LSG")
cboVersion.AddItem ("FILLION")
cboVersion.AddItem ("JER")
cboVersion.AddItem ("NEG+")
cboVersion.AddItem ("LSG+")
cboVersion.AddItem ("CRP")
cboVersion.AddItem ("Darby")
cboVersion.AddItem ("NBS")
cboVersion.AddItem ("TOB")
cboVersion.AddItem ("BFC")
cboVersion.AddItem ("MRT")
'cboVersion.AddItem ("Chouraqui (à faire)")
cboVersion.AddItem ("OST")
cboVersion.AddItem ("--")
cboVersion.AddItem ("NET")
cboVersion.AddItem ("DIAGLOTT")
cboVersion.AddItem ("ASV")
cboVersion.AddItem ("KJV")
cboVersion.AddItem ("YLT")
cboVersion.AddItem ("WEB")
cboVersion.AddItem ("BBE")
cboVersion.AddItem ("JPS")
End If
End Sub
cboVersion.AddItem ("DR")
cboVersion.AddItem ("WBST")
Public Sub mnuUpsilonn_Click()
Load frmPDF
frmPDF.pdfmain.LoadFile (App.Path & "\ref\bailly\Bailly.pdf")
frmPDF.pdfmain.setCurrentPage (892)
frmPDF.Caption = "Anatole Bailly - Abrégé du Dictionnaire grec-français [984p.]"
frmPDF.Show
End Sub