VB6.0 MDI Spell Checker

Question

У меня есть проект VB6.0 с родительской и дочерней формой MDI. Теперь мне нужно проверить орфографию и грамматику в нескольких текстовых блоках на этой дочерней форме.

Пожалуйста, помогите с примером кода.

Answer 1

Вы можете лицензировать профессионала Компонент ActiveX как Tachyon's spellchecker. Я нашел list here.

Если бы вы могли требовать Microsoft Word установлен на клиентском компьютере, prerequisit, вы можете использовать проверку орфографии в 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 

Вы можете найти еще один хороший пример в этой статье о том, как call the MS Word Spell Checker.