UC知道VB软件注册不好?
来源：百度知道 编辑：UC知道 时间：2024/05/29 09:40:36
我用VB做个软件注册但出现了问题:当我加个Module1.Bas模块中：在Module1.Bas模块中加入代码如下:Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA"
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As
Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
Global GetVal As Long 他就说:编译错误:缺少:行号或标签或语句或语句结束 我是个菜刀什么也不会请教下,
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As
Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
Global GetVal As Long 他就说:编译错误:缺少:行号或标签或语句或语句结束 我是个菜刀什么也不会请教下,
Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA"
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As
Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long (此时已表示此行已声明完,本行后面不可以再接任何声明)
Global GetVal As Long
首先:如上所示,是否可以将后面的声明加入括号中,效果应该是一样吧.或者是另起一行声明.
其次,Global GetVal As Long这个声明中的变量名是"Global GetVal",中间有空格,不合法,是写错了还是多了一个空格呢,你再检查一下,只看出这么多了.