7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-11-03
- 打赏
- 举报
Text1.Text = Chr(&HA6B5) & Chr(&HA6D5)
Accelerator 2005-11-02
- 打赏
- 举报
怎么放到textbox中呢？我拷贝粘贴后出现一个空格。
jxgzay 2005-11-01
- 打赏
- 举报
特殊字符用区位输入法。
x="温"
y= asc(x)+65536
h=int(y/256)-160
l=y mod 256-160
? h,l
46 34
"温"的区位码就是4634
x="温"
y= asc(x)+65536
h=int(y/256)-160
l=y mod 256-160
? h,l
46 34
"温"的区位码就是4634
jxgzay 2005-11-01
- 打赏
- 举报
特殊字符区位码程序(生成表d:\qw.txt)
Private Sub Command1_Click()
Open "d:\qw.txt" For Output As 1
For i = 1 To 15
For j = 1 To 94
h = i + 160
l = j + 160
nm = "&H" & Hex(h) & Hex(l)
nm = CLng(nm)
x = Chr(nm)
Print #1, x & Format(i, "00") & Format(j, "00")
Next
Next
Close #1
End Sub
Private Sub Command1_Click()
Open "d:\qw.txt" For Output As 1
For i = 1 To 15
For j = 1 To 94
h = i + 160
l = j + 160
nm = "&H" & Hex(h) & Hex(l)
nm = CLng(nm)
x = Chr(nm)
Print #1, x & Format(i, "00") & Format(j, "00")
Next
Next
Close #1
End Sub
jxgzay 2005-11-01
- 打赏
- 举报
特殊字符用区位输入法。
x="温"
y= asc(x)+65536
h=int(y/256)-160
l=y mod 256
? h,l
46 34
"温"的区位码就是4634
x="温"
y= asc(x)+65536
h=int(y/256)-160
l=y mod 256
? h,l
46 34
"温"的区位码就是4634
