全部

斑竹或經驗丰富者進

thorkhan 2002-04-14 03:28:21

在下可用分只有56分了,全給
如和在VB中調用各种語言包,例如在繁体Windows下調用簡體語言包能顯示簡體(GBK)的漢字,在簡體Windows下調用繁体(Big5)語言包,顯示繁体字,不過我說的不是簡繁体的轉換,BIG与 GB碼的轉換我會,
我就是實現IE的編碼轉換,不過我要實現的是在Richbox中實現,而不是用WebBrowser
實現,各位多幫手了,先謝

...全文

6 点赞收藏 38

写回复

38 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

fuxc 2002-04-16

首先，IE显示繁体字，用的是繁体字库：MingLiu，其中字符编码，用的是ANSI，但VB有一个问题，当你进行字符串赋值的时候，VB会自动把ANSI转换成Unicode，所以无法通过调用字库来显示，这一点，我还是没有办法。

如果通过转换Unicode来显示，问题只是慢的话，我推荐你看一篇文章：

http://llf.my.west163.com/studio/unicode.htm

回复赞

sunlife 2002-04-16

要显示特定格式的字体，系统要有相应的字库才行，要不程序能调用自带的字库也可以（这个我不会，菜鸟一个）；ie那个编码也是要有相应的字库才能进行的，要不怎么有时候上网会提示安装字体呢

回复赞

fuxc 2002-04-16

VB中可以用Byte数组来处理ANSI、DBCS字符集，但当你赋指给文本类型（或者隐式地转换成文本类型）时，VB自动把他转换成Unicode，所以不管你把文本赋值给RichTexBox的Text属性，还是RichText属性，都没有机会把它当作Ansi来处理，如果一定要用VB处理的话，只能想办法在转换过程中提高效率，

我上面提供的一个网址是个个人网页，作者在这方面很有经验，你可以跟他联系一下。

回复赞

fuxc 2002-04-16

ANSI 和 Unicode 的定义

Visual Basic 使用 Unicode 存储和操作字符串。Unicode 是一种用两个字节表示一个字符的字符集。另外一些程序，如 Windows 95 API，使用 ANSI (American National Standards Institute) 或 DBCS 存储和操作字符串。当从 Visual Basic 移出字符串时，会遇到 Unicode 和 ANSI／DBCS 之间的差别。下表列出了不同环境下 ANSI、DBCS 和 Unicode 字符集。

环境使用的字符集
Visual Basic Unicode
32-bit 对象库 Unicode
16-bit 对象库 ANSI 和 DBCS
Windows NT API Unicode
Automation in Windows NT Unicode
Windows 95 API ANSI 和 DBCS
Automation in Windows 95 Unicode

ANSI
ANSI 是个人计算机使用得最普遍的字符集。由于 ANSI 标准使用单一字节表示每个字符，因此最多只能有 256 个字符和标点符号代码。虽然对英语来说已经足够了，但不能完全支持其它语言。

DBCS
发行在亚洲大部分地区的 Microsoft Windows 系统使用 DBCS。它支持很多不同的东亚语言字母，如汉语、日语和朝鲜语。DBCS 使用数字 0–128 表示 ASCII 字符集。其它大于 128 的数字作为前导字节字符，它并不是真正的字符，只是简单的表明下一个字符属于非拉丁字符集。在 DBCS 中，ASCII 字符的长度是一个字节，而日语、朝鲜语和其它东亚字符的长度是 2 个字节。

Unicode
Unicode 是用两个字节表示每个字符的字符编码方案。国际标准组织 (ISO) 几乎为每种语言的每个字符和符号在 0 到 65,535 (216 – 1) 范围内定义了一个数字（再加上为将来发展保留的一些空余空间）。在所有 32 位版本的 Windows 中，部件对象模型 (COM) 都使用 Unicode，它是 OLE 和 ActiveX 技术的基础。Windows NT 全部支持 Unicode。虽然 Unicode 和 DBCS 都是双字节字符，但它们的编码方案完全不同。

字符代码示例
图 16.4 显示了每一个字符集中的一个字符代码示例。注意双字节字符每一个字节的代码不同。

图 16.4 ANSI、Unicode 和 DBCS 中 "A" 的字符代码

回复赞

txs 2002-04-16

不行的，这和以前在DOS或者西文WIN下显示汉字一样，要用字库自己画。要用HOOK等技术。

回复赞

shan__le 2002-04-16

哈，土八路都不懂：）我也学习：） UP

回复赞

thorkhan 2002-04-16

難道VB就做不到了嗎﹖

回复赞

CheerDesiger 2002-04-15

用getOemCp得到當前Windows的碼﹐
下面是各種碼的說明
437 MS-DOS United States
708 Arabic (ASMO 708)
709 Arabic (ASMO 449+, BCON V4)
710 Arabic (Transparent Arabic)
720 Arabic (Transparent ASMO)
737 Greek (formerly 437G)
775 Baltic
850 MS-DOS Multilingual (Latin I)
852 MS-DOS Slavic (Latin II)
855 IBM Cyrillic (primarily Russian)
857 IBM Turkish
860 MS-DOS Portuguese
861 MS-DOS Icelandic
862 Hebrew
863 MS-DOS Canadian-French
864 Arabic
865 MS-DOS Nordic
866 MS-DOS Russian (former USSR)
869 IBM Modern Greek
874 Thai
932 Japan
936 Chinese (PRC, Singapore) 簡體
949 Korean
950 Chinese (Taiwan Region; Hong Kong SAR, PRC) 繁體
1361 Korean (Johab)

Public Declare Function GetOEMCP Lib "kernel32" Alias "GetOEMCP" () As Long

回复赞

thorkhan 2002-04-15

等待中﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒

回复赞

wgku 2002-04-15

HE HE ... 其实我也不大懂，只不过提个思路。

回复赞

xxlroad 2002-04-15

不懂只能替你UP

回复赞

thorkhan 2002-04-15

等待﹑等待﹑再等待﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒

回复赞

rivershan 2002-04-15

帮你UP~

回复赞

thorkhan 2002-04-15

各位兄弟姐妹快來啊﹖

回复赞

thorkhan 2002-04-15

To fuxc(Michael):
謝謝妳的回答﹐不過我說了妳的方法只是用VB內置的內碼轉換功能轉換Big与Gbk碼﹐這妳還沒看情我說的意思嗎﹖我說的是識別不是轉換﹐轉換我會﹐但也不是用Strconv函數用這种方法來轉換GB\GBK到Big5碼是非常好的，可是把Big5碼轉過來的話，結果居然是繁体﹐而且速度也較慢

回复赞

fuxc 2002-04-15

Private Sub Command1_Click()
Dim strTemp As String
Text1 = "⒋ら筿(癘窥)莱φㄤ㎝瓣羆瞶甁城蝴疭┰甁の㎝瓣羆参縫ぺ┰㎝ェㄈ㎝瓣現┎淋叫瓣叭皘羆瞶Χ妈膀さぱと盡诀瞒秨ㄊ玡┕瓃瓣秈︽タΑ砐拜国"
strTemp = StrConv(Text1, vbFromUnicode, &H804)
Me.RichTextBox1 = StrConv(strTemp, vbUnicode, &H404)
End Sub

试试看~~

回复赞

thorkhan 2002-04-15

等待中﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒﹒

回复赞

thorkhan 2002-04-15

To fuxc(Michael):
用StrConv函數能實現Big5与GB2312的轉換﹐但我問的這個問題好像是實現不了

回复赞