易截截图软件、单文件、免安装、纯绿色、仅160KB

VB 返回ASC码 出错

用Asc("")返回ASC码为163的字符时为0,请问是什么原因出错呢,有其它函数能实现返回ASC内码吗


AscW

用AscW()也不行

那我就不知道了,帮顶

引用
用AscW()也不行


标准ASCII表里有为163吗,建议补习一下ASCII表

Hex(Asc(""))

chr吧?
引用
Hex(Asc(""))


这个编码不是ASCII编码是UniCode编码,使用:ChrW(163)

ascw(chrw(163))

只有用 ChrW() 和 AscW() 才能正确返回结果。

VB code:
Public Sub Main()

Dim strC$
strC = ChrW$(163)
Debug.Print AscW(strC)

End Sub



引用
只有用 ChrW() 和 AscW() 才能正确返回结果。

VB codePublicSub Main()Dim strC$
    strC= ChrW$(163)
    Debug.Print AscW(strC)End Sub



up~~~


同意楼上的

ChrB,AscB
ChrW,AscW
StrConv


相关问答:

VB中有无TApplication对应类型

我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了&# ......

vb如何调用Illustrator(此前Illustrator未启动)?

请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

求教下VB如何给D3D游戏写屏 - VB / API

想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......

从VB转行VB.NET~~~开始的时候如何学基础入门啊~

VB偶学得不错,现在大一,高三的时候就学VB了,现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年,对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......

vb修改DTPicker1日期问题

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号