VB 的注册表检测问题

来源:百度知道 编辑:UC知道 时间:2024/06/04 11:59:36
现在我用COMMAND控件做了一个启动QQ的方法
Private Sub Command1_Click()
Dim w As Object
Set w = CreateObject("wscript.shell")
Shell w.regread("HKLM\SOFTWARE\Tencent\qq\Install") & "QQ.exe", vbNormalFocus
End Sub
是通过注册表启动的 现在我想把效果做成这样 如果没有安装QQ软件 COMMAND控件为禁止按动 装了QQ为可以按动的效果我知道使用IF可以做 本人是初学者对IF函数不是很了解。希望高手指点一下

纠正一个概念,if不是函数

form_load里面
Dim w As Object
Set w = CreateObject("wscript.shell")
if len(w.regread("HKLM\SOFTWARE\Tencent\qq\Install"))<1 then
command1.enabled=false
end if