急 这条注册语句为什么会出错????

Question

Private Sub Form_Load()
Dim a As Long
 a = Shell(regsvr32.exe - s, "E:\abc\xxx.ocx")End Sub

Answer 1

Private Sub Form_Load()
Dim a As Long
 a = Shell(regsvr32.exe, "E:\abc\xxx.ocx")End Sub

Answer 2

先直接注册regsvr32 E:\abc\xxx.ocx
如果出错,可能是ocx控件依赖的文件缺少

Answer 3

Private Sub Form_Load()
Dim a
 a = Shell("regsvr32.exe E:\abc\xxx.ocx")
End Sub

Answer 4

Private Sub Form_Load()
Dim a As Long
 a = Shell("regsvr32.exe /s, ""E:\abc\xxx.ocx""")End Sub

Answer 5

Shell("regsvr32.exe /s E:\abc\xxx.ocx")   '加s可不显示注册信息

Answer 6

TO: liangfang(良芳) 的方法可以可是怎么消取掉注册成功后的那个提示框我用了vbhid,还是不行
Private Sub Form_Load()
Dim a
 a = Shell("regsvr32.exe E:\abc\xxx.ocx",vbhid)
End Sub

Answer 7

有没有搞错：shell(字符串）
应该用：shell("regsvr32.exe -s E:\abc\xxx.ocx")
在串中可以用""表示一个双引号
如：a=""""则a==字符"