VB6.0 MDI Проверка орфографии

Question

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

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

Answer 1

Вы можете получить лицензию на профессиональный ActiveX компонент , например Tachyon's spellchecker . Я нашел список здесь .

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

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