combox录入日文乱码，如何解决？

Question

或者有什么替代控件？比如用richtext替换text
更换字体是没有用的

Answer 1

又是Unicode问题。VB+XP完全能支持Unicode,但VB自带的控件除RichEdit外大都不太可能。
1.首先你电脑应该装有日文字体。
2.用国人写的 Unicode ucComboBoxEx ，很好的解决了Unicode问题。
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=66273&lngWId=1

Answer 2

其实你可以在form load 事件中填充 combox
 Combo1.AddItem "String",Index
eg:
 Combo1.AddItem "aa",0
 Combo1.AddItem "bb",1

Answer 3

控件的FONT 字体种类设置成日本语

Answer 4

如果你的Windows是除中文（也许很好支持日文，没有测试过），日文以外，譬如英文，你就得用Unicode Combobox.Unicode Combobox is an universal solution for any Unicode/Non Unicode character sets.

Answer 5

如果用VB自带的Combobox,请测试：若是日文：
        .charset = "Shift_JIS"
        .Font.Name = "MS UI Gothic"
        .Font.charset = 128若是韩文：
       .charset = "Shift_JIS"
       .Font.Name = "MS UI Gothic"
       .Font.charset = 128若是中文：
       .charset = "gb2312"
       .Font.Name = "SimSun"
       .Font.charset = 134

Answer 6

vbStr = MBCS_Encode(s, g_Charset.CharsetToCodePage(charset))

Answer 7

TO VBAdvisor:
2.用国人写的 Unicode ucComboBoxEx ，很好的解决了Unicode问题。
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=66273&lngWId=1
这个控件应该可以解决，就是这个意思，中日文混合录入，但是我这里运行combox控件就是一个白条？？MBCS_Encode函数哪儿来的？？

Answer 8

如果你用Unicode Combobox,直接给Unicode String;如果你要用VB自带的Combobox/Textbox/Label,就要转换成MBCS字符串，并且设置要显示的字体的相应的Font.charset和Font.Name，可能只能显示，不能修改。这些问题其实可大可小，如果你的OS是非日文的XP或其他例如西文的XP,可将Non-Unicode设置为对应的语言：譬如在西文的XP中，为更好支持中文，将Non-Unicode设置为Chinese (PRC),与此类推
MBCS_Encode你可以google一下。
Good Luck!

Answer 9

非常感谢您的热心帮助！
但是有问题搞不定：
Unicode Combobox运行出来是一个白条？？没有办法用，有没有可以正常用的？
用vb自带要设置font.charset不太现实，因为可能中日混合录入

Answer 10

主要是录入，显示是没有问题的
比如在combo box录入shift_jis输入法：watashi 应该显示 私,结果却显示 草头 毅，但是我从其他地方复制过去显示正常

Answer 11

unicode combobox突然又正常了，可以用了
谢谢！！