Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmAnalyseMorphologique - 2
Load frmBrowser
'ancienne adresse:http://www.perseus.tufts.edu/cgi-bin/morphindex?lookup=" & mot & "&.submit=Analyz
e+Form&searchTe
frmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=greek"
'frmBrowser. Show 1
End Sub
Private Sub pctAideGrammaticale_Click()
Load frmGrammaire
frmGrammaire.txtAnalyse.Text = lblanalyse.Caption
'frmGrammaire.btnGo_Click
frmAnalyseMorphologique.Hide
On Error GoTo fin:
rmGrammaire.Show
in:
nd Sub
rivate Sub Picture2_Click()
im mot$
ot = lblvientde.Caption
all GrenetTOBw(mot)
f Mid(mot, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot))
f Mid(mot, 1, 2) = "(A" Then mot = "a(" & Mid(mot, 3, Len(mot))
oad frmBrowser
rmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/text.jsp?doc=Perseus:text:1999.04.0057
entry=" & mot '"http://www.perseus.tufts.edu/cgi-bin/lexindex?entry=" & mot & "&display=Beta"
frmBrowser. Show 1
nd Sub
rivate Sub Picture3_Click()
im mot$
ot = lblmot.Caption
all GrenetTOBw(mot)
f Mid(mot, 1, 2) = ")A" Then mot = "a)" & Mid(mot, 3, Len(mot))
f Mid(mot, 1, 2) = "(A" Then mot = "a(" & Mid(mot, 3, Len(mot))
oad frmBrowser
ancienne adresse:http://www.perseus.tufts.edu/cgi-bin/morphindex?lookup=" & mot & "&.submit=Analyz
+Form&searchTe
rmBrowser.cboAddress = "http://www.perseus.tufts.edu/hopper/morph.jsp?l=" & mot & "&la=greek" ' an
ienne adresse: http://www.perseus.tufts.edu/cgi-bin/lexindex?entry=" & mot & "&display=Beta
Load frmRechercheMorphologique
frmRechercheMorphologique.txtcode.Text = lblanalyse2.Caption
frmRechercheMorphologique.txtMot.Text = lblmot.Caption
frmRechercheMorphologique. Show 1
frmAnalyseMorphologique.Hide
nd Sub
rivate Sub Picture4_Click()
im mot$
ot = LCase(lblmot.Caption)
renetTOBw (mot)
ot = Replace(mot, ")", "")
ot = Replace(mot, "(", "")
f Mid(mot, 1, 1) = "a" Then
frmBible.mnuAlpha_Click
lseIf Mid(mot, 1, 1) = "b" Then
frmBible.mnuBeta_Click
lseIf Mid(mot, 1, 1) = "g" Then
frmBible.mnuGamma_Click
lseIf Mid(mot, 1, 1) = "d" Then
frmBible.mnuDelta_Click
lseIf Mid(mot, 1, 1) = "e" Then
frmBible.mnuEpsilonn_Click
lseIf Mid(mot, 1, 1) = "z" Then
frmBible.mnuDzeta_Click
lseIf Mid(mot, 1, 1) = "h" Then
frmBible.mnuEta_Click
lseIf Mid(mot, 1, 1) = "q" Then
frmBible.mnuTheta_Click