-1

次のコードの方法を試してみます。

'Click on Button1 spell checks Text1 textbox
Dim strResultText As String
Dim sc As New SpellChecker
sc.OpenDictionary "c:\SpellUS.lex"
Private Sub Button1_Click()
    TextBox1.Focus()

    strResultText = sc.CheckText(TextBox1.Text, ExitStatus)
    TextBox1.Text = strResultText
End Sub

しかし、上記のコードはエラーです。1. SpellChecker 2.ExitStatus

エラーを特定することはできますが、わかりません。エラーを修正するにはどうすればよいですか。問題を知っている人は誰でも助けてください。

4

1 に答える 1

1

ExitStatus をチェックすると、エラーについての手がかりが得られると思います(エラーがある場合)

于 2009-09-18T12:32:53.920 に答える