UC知道请高手看简单代码
来源：百度知道 编辑：UC知道 时间：2024/06/28 09:41:06
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
If Val(Label1.Caption) = 3 Then ole1_dbclick
End If
End Sub
运行时显示子程序或函数未定义
我的意思就是当label1.caption=3时OLE1内的EXE程序即启动
三楼的朋友你好,非常感谢你的回复,按你的方法度过,成功了,不过还有点请你帮忙,就是打开OLE里的EXE程序后,系统会出现安全警告,怎样不要出现这个警告窗口而直接运行.
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
If Val(Label1.Caption) = 3 Then ole1_dbclick
End If
End Sub
运行时显示子程序或函数未定义
我的意思就是当label1.caption=3时OLE1内的EXE程序即启动
三楼的朋友你好,非常感谢你的回复,按你的方法度过,成功了,不过还有点请你帮忙,就是打开OLE里的EXE程序后,系统会出现安全警告,怎样不要出现这个警告窗口而直接运行.
那么你可以把ole1_dbclick 换成OLE1.DoVerb
然后把那个endif去掉或者换成
If Val(Label1.Caption) = 3 Then
OLE1.DoVerb
End If
再试试吧
你这里一共有两个错误，ole1_dbclick看样子应该是某个控件的双击事件，你这里没有，所以提示子程序或函数未定义。
还有一个错误就是你的 if语句把要执行的语句跟在了then的后面。那么就不需要endif了。所以这里的endif是多余的，把它删掉。
ole1_dbclick
在哪？