Vérificateur d'orthographe MDI VB6.0

Question

J'ai un projet VB6.0 avec une forme parent et enfant MDI. Maintenant, j'ai besoin de vérifier l'orthographe et la grammaire dans quelques zones de texte sur ce formulaire enfant.

Veuillez nous aider avec l'exemple de code.

Answer 1

Vous pouvez acquérir une licence pour un composant ActiveX professionnel comme Tachyon's spellchecker. J'ai trouvé un list here.

Si vous pouviez demander Microsoft Word installé sur la machine cliente comme prerequisit, vous pouvez utiliser le correcteur orthographique de Word:

Dim objWord As Object 
Dim objDoc As Object 

Dim strResult As String 

' // Create a new instance of word Application 

Set objWord = CreateObject("word.Application") 

Select Case objWord.Version 
    ' // Office 2000 
    Case "9.0" 
     Set objDoc = objWord.Documents.Add(, , 1, True) 

    ' // Office XP 
    Case "10.0" 
     Set objDoc = objWord.Documents.Add(, , 1, True) 

    ' // Office 97 
    Case Else ' Office 97 
     Set objDoc = objWord.Documents.Add 

End Select 

objDoc.Content = Text1.Text 
objDoc.CheckSpelling 

strResult = Left(objDoc.Content, Len(objDoc.Content) - 1) 

If Text1.Text = strResult Then 
    ' // There were no spelling errors, so give the user a 
    ' // visual signal that something happened 

    MsgBox "The spelling check is complete.", vbInformation + vbOKOnly 
End If 

Vous pouvez trouver un autre bon exemple dans cet article sur la façon de call the MS Word Spell Checker.