VB显示扩展的ASC码128-255字符

Question

请问如何将扩展的ASC码（128-255）在VB中显示，要求Form,text,label,表格控件中都能显示，我目前的状况是显示成“?”符号了。

Answer 1

·Microsoft Windows 并不支持这些字符。

Answer 2

字符集 (128 – 255)128 · 160 [space] 192 à 224 à 
129 · 161 ?/FONT> 193 á 225 á 
130 · 162 ￠ 194 ?/FONT> 226 a 
131 · 163 ￡ 195 ?/FONT> 227 ?/FONT> 
132 · 164 ¤ 196 ?/FONT> 228 ?/FONT> 
133 · 165 ￥ 197 ?/FONT> 229 ?/FONT> 
134 · 166 | 198 ?/FONT> 230 ?/FONT> 
135 · 167 § 199 ?/FONT> 231 ?/FONT> 
136 · 168 ¨ 200 è 232 è 
137 · 169 © 201 é 233 é 
138 · 170 a 202 ê 234 ê 
139 · 171 ?/FONT> 203 ?/FONT> 235 ?/FONT> 
140 · 172 ?/FONT> 204 ì 236 ì 
141 · 173 - 205 í 237 í 
142 · 174 ® 206 ?/FONT> 238 ?/FONT> 
143 · 175 ˉ 207 ?/FONT> 239 ?/FONT> 
144 · 176 ° 208 D 240 e 
145 ‘ 177 ± 209 ?/FONT> 241 ?/FONT> 
146 ’ 178 2 210 ò 242 ò 
147 · 179 3 211 ó 243 ó 
148 · 180 ′ 212 ?/FONT> 244 ?/FONT> 
149 · 181 μ 213 ?/FONT> 245 ?/FONT> 
150 · 182 ?/FONT> 214 ?/FONT> 246 ?/FONT> 
151 · 183 · 215 × 247 ÷ 
152 · 184 ?/FONT> 216 ?/FONT> 248 ?/FONT> 
153 · 185 1 217 ù 249 ù 
154 · 186 o 218 ú 250 ú 
155 · 187 ?/FONT> 219 ?/FONT> 251 ?/FONT> 
156 · 188 ?/FONT> 220 ü 252 ü 
157 · 189 ?/FONT> 221 Y 253 y 
158 · 190 ?/FONT> 222 T 254 t 
159 · 191 ?/FONT> 223 ?/FONT> 255 ? 
·Microsoft Windows 并不支持这些字符。本表中的值是 Windows 的默认值。 ANSI 特征集中 127 以上的值是由与操作系统有关的代码页决定的。

Answer 3

在vc下，基于unicode工程可以，vb估计也得考虑unicode的东西。

Answer 4

在西欧语言的 Win98 下应该可以。
Win2K/XP 下这些字符编码有其他解释，可以改一下本地语言试试，很可能不行。

Answer 5

或者根据下面的对应表转换为 Unicode 字符
http://msdn.microsoft.com/en-us/goglobal/cc305156.aspx

Answer 6

我在Excel用如下代码能正确显示，不知道有谁能办法能在VB中正确。Function code128b(Tar As Range)   '128B码:ChrW(204).
Dim s$, i%, ss$, j%, curR%, checkB%
curR = Tar.Row
s = Tar.Value
checkB = 1  '开始位的码值为104 mod 103 =1
For i = 1 To Len(s)
    ss = Mid(s, i, 1)
    j = Asc(ss) '不过滤无效字符,或可参照checkB的最后算法逆推,但也应该是不充分的.
    checkB = (checkB + i * j) Mod 103   '计算校验位
Next
If checkB < 95 And checkB > 0 Then  '有的资料直接求103的模,解说不充分,因为有的校验位超过127时,系统会"吃"掉它们(连带休止符).
    checkB = checkB + 32
ElseIf checkB > 94 Then '字体设置时,字模被定义了2个值.观察字体文件时能发现.
    checkB = checkB + 100
End If
code128b = ChrW(204) & s & IIf(checkB, ChrW(checkB), Chr(32)) & ChrW(205)   '这里没控制非有效字符
End Function

Answer 7

http://download.csdn.net/source/1421180

Answer 8

我需要的是ASC 128-255字符在VB中显示，码表我上网搜索都有一堆，求正解。

Answer 9

运行cmd
在cmd窗口里面运行命令
chcp 437
显示Active code page: 437
按住Alt键，按数字小键盘1，2，8，送开Alt键，此时显示ASCII码128对应的字符

Answer 10

码表用来转换，比如 ASC &HEA 的字符 Ω，你要转换成 ChrW(&H03A9) 来表示。

Answer 11

Private Sub Command1_Click()
Dim a, i, s
a = Array("00C7", "00FC", "00E9", "00E2", "00E4", "00E0", "00E5", "00E7", "00EA", "00EB", "00E8", "00EF", "00EE", "00EC", "00C4", "00C5", "00C9", "00E6", "00C6", "00F4", _
          "00F6", "00F2", "00FB", "00F9", "00FF", "00D6", "00DC", "00A2", "00A3", "00A5", "00A7", "0192", "00E1", "00ED", "00F3", "00FA", "00D1", "00AA", "00BA", "00BF", _
          "2310", "00AC", "00BD", "00BC", "00A1", "00AB", "00BB", "2591", "2592", "2593", "2504", "2524", "2561", "2562", "2556", "2555", "2563", "2551", "2557", "255D", _
          "255C", "255B", "2510", "2514", "2534", "252C", "251C", "2500", "253C", "255E", "255F", "255A", "2554", "2569", "2566", "2560", "2550", "256C", "2567", "03B1", _
          "2568", "2564", "2565", "2559", "2558", "2552", "2553", "256B", "256A", "2518", "250C", "2588", "2584", "258C", "2590", "2580", "03B1", _
          "00DF", "0393", "03C0", "03A3", "03C3", "00B5", "03C4", "03A6", "0398", "03A9", "03B4", "221E", "03C6", "03B5", "2229", "2261", "00B1", "2265", "2264", "2320", _
          "2321", "00F7", "2248", "00B0", "2219", "00B7", "221A", "207F", "00B2", "25A0")For i = 0 To UBound(a)
s = s & ChrW(Val("&H" & a(i))) & "  "
Next
Text1 = s
End Sub

Answer 12

在“开始－程序－附件－系统工具－字符映射表”中选用Arial字体，字符集选“DOS: 美国”可以看。