VB 16进制转10进制
蔡鸟编程中遇到了个问题，代码如下
Private Sub CommandButton1_Click()
Dim test1 As Long
test1 = &H7999
test2 = &H8000
Debug.Print "test1:" & test1
Debug.Print "test2:" & test2
End Sub
结果：
test1:31129
test2:-32768
为何&H8000 以下的转化都是正确的，&H8000以上的转换为16进制后都变成负数了，问题在那里？
给你个现成的,不要你积分
http://download.csdn.net/source/1212613
默认的&Hxxxx是Integer类型的，你要在末尾加&声明为Long类型的。
VB code:
Private Sub CommandButton1_Click()
Dim test1 As Long
test1 = &H7999&
test2 = &H8000&
Debug.Print "test1:" & test1
Debug.Print "test2:" & test2
End Sub
学习
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
再VB模块中我是通过如下方式来连接主库和历史库的(历史库数据量大)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......
