VB TEXTBOX 輸入中文變問號 - VB6论坛

已结贴√ 问题点数：20 回复次数：11

VB TEXTBOX 輸入中文變問號

系統是繁體版的，
WINXP+VB6.0開發出來的程式。
在WIN7系統下輸入部分中文變問號，例如：”邨“，“强”，“獻”。
在WIN7下打開記事本，這些字都是可以正常輸入的。
請問一下，大家知道有沒什麼辦法可以解決？謝謝了！

[ 本帖最后由 ta8607 于 2010-7-30 16:08 编辑 ]

搜索更多相关主题的帖子: 中文　 TEXTBOX　

第 2 楼

得分:0

本來想用FORMS2.0的控件來試一下，但在WIN7下 FM20.DLL註冊也失敗，顯示錯誤代號“OX8002801C",進安全模式註冊也是一樣。
大家幫我看看有沒有其他辦法吧，謝謝了！

不理会流言蜚语,努力做好份内事情,只做自己.

第 3 楼

得分:0

剛試了用RichTextBox輸入是可以正常顯示，如果我把程式所有的TEXTBOX都換成RichTextBox，但COMBOX也找不到替換的控件，救命！！！

不理会流言蜚语,努力做好份内事情,只做自己.

第 4 楼

得分:10

判别语言

无知

第 5 楼

得分:0

不好意思，能說一下具體的步驟嗎？

不理会流言蜚语,努力做好份内事情,只做自己.

第 6 楼

得分:0

版主能進來幫我看一下嗎.謝謝了

不理会流言蜚语,努力做好份内事情,只做自己.

第 7 楼

得分:10

simple_Locale.zip (13.85 KB)

自己看吧，不知道再问。

第 8 楼

得分:0

不好意思，版主，我確實是看不懂，怎麼用的？

不理会流言蜚语,努力做好份内事情,只做自己.

第 9 楼

得分:0

程序代码：

Option Explicit

'------------------------------------------------------------
' Character set ID code From wingdi.h
'------------------------------------------------------------
Private Const ANSI_CHARSET = 0                  'US
Private Const SHIFTJIS_CHARSET = 128            'KK
Private Const CHINESEBIG5_CHARSET = 136         'TC
Private Const HANGEUL_CHARSET = 129             'CH
Private Const GB2312_CHARSET = 134              'PRC
Private Const DEFAULT_CHARSET = 1
Private Const SYMBOL_CHARSET = 2
Private Const OEM_CHARSET = 255
Private Const JOHAB_CHARSET = 130
Private Const HEBREW_CHARSET = 177
Private Const ARABIC_CHARSET = 178
Private Const GREEK_CHARSET = 161
Private Const TURKISH_CHARSET = 162
Private Const VIETNAMESE_CHARSET = 163
Private Const THAI_CHARSET = 222
Private Const EASTEUROPE_CHARSET = 238
Private Const RUSSIAN_CHARSET = 204
Private Const MAC_CHARSET = 77
Private Const BALTIC_CHARSET = 186

Private Sub Form_Load()
    Text1.Text = Join(Array("邨", "强", "獻"), vbCrLf)
    Text1.Font.Charset = CHINESEBIG5_CHARSET
End Sub

'看看吧！~

第 10 楼

得分:0

以下是引用bczgvip在2010-8-2 22:23:03的发言：

Option Explicit

'------------------------------------------------------------
' Character set ID code From wingdi.h
'------------------------------------------------------------
Private Const ANSI_CHARSET = 0                  'US
Private Const SHIFTJIS_CHARSET = 128            'KK
Private Const CHINESEBIG5_CHARSET = 136         'TC
Private Const HANGEUL_CHARSET = 129             'CH
Private Const GB2312_CHARSET = 134              'PRC
Private Const DEFAULT_CHARSET = 1
Private Const SYMBOL_CHARSET = 2
Private Const OEM_CHARSET = 255
Private Const JOHAB_CHARSET = 130
Private Const HEBREW_CHARSET = 177
Private Const ARABIC_CHARSET = 178
Private Const GREEK_CHARSET = 161
Private Const TURKISH_CHARSET = 162
Private Const VIETNAMESE_CHARSET = 163
Private Const THAI_CHARSET = 222
Private Const EASTEUROPE_CHARSET = 238
Private Const RUSSIAN_CHARSET = 204
Private Const MAC_CHARSET = 77
Private Const BALTIC_CHARSET = 186

Private Sub Form_Load()
    Text1.Text = Join(Array("邨", "强", "獻"), vbCrLf)
    Text1.Font.Charset = CHINESEBIG5_CHARSET
End Sub
'看看吧！~

試了一下，在XP下是可以的，WIN7就變問號了。

不理会流言蜚语,努力做好份内事情,只做自己.