0
我需要检查英语和希腊语单词。我使用SpellCheckerOpenOfficeDictionary添加英语和希腊语字典。但它不起作用DivExpress具有多种语言的拼写检查程序
Public Sub SpellCheckSettings(ByRef objSpellChecker As SpellChecker)
Dim objDictionary, objGreekdic As SpellCheckerOpenOfficeDictionary
Dim objCulture, objGreekCulture As CultureInfo
Try
objCulture = New CultureInfo("en-US")
objSpellChecker.Culture = objCulture
objDictionary = New SpellCheckerOpenOfficeDictionary(GetLanguageDictionaryPath("en_US.dic"), GetLanguageDictionaryPath("en_US.aff"), objCulture)
objSpellChecker.Dictionaries.Add(objDictionary)
objGreekCulture = New CultureInfo("el")
objGreekdic = New SpellCheckerOpenOfficeDictionary(GetLanguageDictionaryPath("el_GR.dic"), GetLanguageDictionaryPath("el_GR.aff"), objGreekCulture)
objSpellChecker.Dictionaries.Add(objGreekdic)
Catch ex As Exception
End Try
End Sub
如果我使用上面的任何一种拼写检查完美地工作。任何人请帮助
能否请你帮了如何设置不变文化 – Akshara 2011-04-07 04:18:19
我已经编辑我的asnwer ... – 2011-04-07 06:12:22
好它的工作原理谢谢 – Akshara 2011-04-07 10:41:39