实现vb打开网页后，5秒种关闭自己的代码。高人指教！
实现vb打开网页后，5秒种关闭自己的代码。高人指教！
我写的是
Private Declare Function ShellExecute Lib "shell32.dll " Alias "ShellExecuteA " (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Sub Form_Load()
WebBrowser1.Navigate ( "http://www.sina.com ")
Me.Hide
If Timer1.Interval = 500 Then unlod.me
End Sub
关闭不了
请高人指教
[解决办法]
Private Sub Timer1_Timer()
If DateDiff( "s ", dTemp, Now) = 5 Then Unload Me
End Sub
'怎么总是写错,....
