vb语法错误
来源:百度知道 编辑:UC知道 时间:2024/06/15 06:36:22
Private Sub Command1_Click()
If Text2 〈〉 CStr(GetVal) Then
MsgBox "注册码不正确,请认真检查输入是否正确。"
Else
MsgBox "你已经成功注册,请重新启动本软件。"
………
(将正确注册的信息写入,使软件功能以后不受限制。具体方法依个人爱好进行设置。)
………
End If
End Sub
Private Sub Form_Load(125)
Dim TempStr1 As String * 256
Dim TempStr2 As String * 256
Dim TempLon1 As Long
Dim TempLon2 As Long
………
‘读取是否注册的信息,如何控制这里不再说明
………
Call GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal ‘提取本机C盘的序列号至文本框一
End Sub
我按照网上的VB给软件加注册功能,不知道是哪里错了,运行的时候提示语法错误,各位帮我看看啊
好象是 If Text2 〈〉 CStr(GetVal) Then 这句吧
If Text2 〈〉 CStr(GetVal) Then
MsgBox "注册码不正确,请认真检查输入是否正确。"
Else
MsgBox "你已经成功注册,请重新启动本软件。"
………
(将正确注册的信息写入,使软件功能以后不受限制。具体方法依个人爱好进行设置。)
………
End If
End Sub
Private Sub Form_Load(125)
Dim TempStr1 As String * 256
Dim TempStr2 As String * 256
Dim TempLon1 As Long
Dim TempLon2 As Long
………
‘读取是否注册的信息,如何控制这里不再说明
………
Call GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal ‘提取本机C盘的序列号至文本框一
End Sub
我按照网上的VB给软件加注册功能,不知道是哪里错了,运行的时候提示语法错误,各位帮我看看啊
好象是 If Text2 〈〉 CStr(GetVal) Then 这句吧
不知道是不是〈〉的问题,我怎么都是全角的,应该用半角的 <>
将text2改为text2.text
一楼的是错误的,二楼的是正确的,
不知道是不是这里显示的问题。你的不等于符号好像错误了。
程序中一切符号都是半角的。像你这个应该是<>这样的,不是像你那样的〈〉
如果不是这里显示的问题,那么就是这个的错误,改一下就可以了,祝你顺利!