Dim Obj_Ie As Object = CreateObject("InternetExplorer.Application")
With Obj_Ie
.Visible = True
.Navigate(Str_Url)
End With
Obj_Ie = Nothing
End Sub
调用方式如: OpenIe(http://www.lob.cn)
timer控件的使用方法:
实例
通过实例是了解Timer控件的最佳方法。按以下步骤操作:
在表中增加一个Timer控件(可在Components部分找到),取名为Timer1。
将它的Interval(时间间隔)属性设为1000,Enabled属性设为Ture。
在表中增加一个Label控件,取名为IbIDateTime,将它的Text属性设为""。
加入以下代码:
Private Sub Timer1_Tick(ByVal sender As System.Object,