Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireBHS - 3
' tet
passage = Replace(passage, "+", "j", , , vbTextCompare)
' sof passouk (fin du verset...)
passage = Replace(passage, ".", " :", , , vbTextCompare)
' vav
passage = Replace(passage, "v", "w", , , vbTextCompare)
' aleph
passage = Replace(passage, "`", "a", , , vbTextCompare)
' tsadé non final
passage = Replace(passage, "&", "u", , , vbTextCompare)
frmBible.txtPassage.Text = ":" & passage
frmBible.txtPassage.ToolTipText = "Attention, lecture de droite à gauche, et de bas en haut !"
'frmBible.txtPassage.RightToLeft = True
frmBible.txtPassage.Alignment = 1
End Function