Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmBible - 24
cboVersion.AddItem ("Flavius Josèphe - En")
cboVersion.AddItem ("Flavius Josèphe - Fr")
'cboVersion.AddItem ("Homère")
mnuGingrich.Enabled = False
mnuTWOT.Enabled = False
mnuTDNT.Enabled = False
mnuRosetta.Enabled = False
'mnuAuvray.Enabled = False
'mnuAbel.Enabled = False
cboVersion.Text = "NA27"
cboLivre.Text = "Matthieu"
txtChapitre.Text = "1"
txtverset.Text = "1"
btnGo_Click
frmBible.lblprecedent.Visible = True
frmBible.lblsuivant.Visible = True
frmBible.optstrongfr.Visible = False
frmBible.lblstrongfr.Visible = False
mnuZetoG.Checked = False
'frmBible.PopupMenu mnuRecherche
'Microsoft Agent robby
'Agent.Characters.Load "robby", DATAPATH
'Set robby = Agent.Characters("robby")
'robby.LanguageID = &H40C
'Dim c
'c = robby.MoveTo(640, 200)
'robby.Show
'robby.Play ("GetAttention")
'robby.Think ("Bonjour, Je suis Robby. Je vous lirai les passages que vous souhaitez. Pour
cela, cliquez moi, ou pressez F2")
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload m_frmSysTray
Set m_frmSysTray = Nothing
End Sub
Public Sub Form_Resize()
If Me.WindowState = 2 Then Me.WindowState = 0
'If Me.WindowState = 1 Then Me.Hide
On Error GoTo suite
rmBible.Height = 5955
rmBible.Width = 7260
uite:
nd Sub
ublic Sub Label5_Click()
rmBible.txtPassage.FontSize = frmBible.txtPassage.FontSize + 2
nd Sub
ublic Sub chkSysTray_Click()
If (chkSysTray.Value = Checked) Then
Set m_frmSysTray = New frmSysTray
With m_frmSysTray
.AddMenuItem "&Open SysTray Sample", "open", True
.AddMenuItem "-"
.AddMenuItem "&vbAccelerator on the Web", "vbAccelerator"
.AddMenuItem "&About...", "About"
.AddMenuItem "-"
.AddMenuItem "&Close", "close"
.ToolTip = "SysTray Sample!"
End With
m_frmSysTray.IconHandle = LoadPicture(App.Path & "\tools\book02.ico")
Else
Unload m_frmSysTray
Set m_frmSysTray = Nothing
End If
nd Sub
ublic Sub Label6_Click()
rmBible.txtPassage.FontSize = frmBible.txtPassage.FontSize - 2
nd Sub