vb编程高手请进。在线等。。。

来源：百度知道编辑：UC知道时间：2024/05/14 03:33:24

请问下面的代码出什么差错了。
End Select
End With
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetvalueEx Lib "advapi32.dll" Alias "RegSetvalueExA" (ByVal hKey As Long, ByVal lpvalueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Const REG_BINARY = 3（红字）
Public Const REG_SZ = 1（红字）
Public Const HKEY_LOCAL_MACHINE = &H80000002（红字）
Public Const HKEY_CLASSES_ROOT = &H80000000（红字）
'写到注册表启动组中的过程。
Public Sub StartupGroup()
Dim sKey As String
Dim result As Long
Dim hKeyID As Long
Dim sKeyVal As String

sKey = "Syst

贴出报错地点，信息等

如果你把这段代码放在form里面，类似这段代码，应该改成局部变量如
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
应改为
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
不改也可以，如以上两位所说，新建一个模块，把这段代码复制进去。调用Api函数，最好把调用接口的代码写到代码的最顶端，你这样写，太乱。

把
End Select
End With
删掉然后再新建一个模块(Module) 再复制代码到里面.
这些代码放到窗体代码里是会报错的.

新建一个模块,把这些代码放到模块里就可以了

都是高手，路过学习了。。。。。

vb编程高手请进。在线等。。。在线等！编程高手快快请进！ vb高手请进啊！！！在线等！！！！ VB编程高手请进 vb编程高手请进！！ VB编程高手请进.... VB编程溢出在线等急急急高手快来用VB编程~~~~在线等~~ vb编程高手请进！！紧急~~~~！！！！！ VB编程问题高手请进