当前位置:编程问答 > VB >

用VB 6.0编写网页定时自动刷新器的源代码

其实用vb6制作一个定时刷新的小软件非常简单的,只需要一个控件就可以了

利用 WebBrowser 控件实现自动刷新的

要添加Microsoft Internet controls 部件 如图

 


界面自己设计

代码

Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
Timer1.Interval = Text2.Text
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub

Private Sub Form_Resize()
WebBrowser1.Width = Form1.ScaleWidth - 250
WebBrowser1.Height = Form1.ScaleHeight - 250
End Sub
Private Sub RichTextBox1_SelChange()
RichTextBox1.SelStrikeThru = True
End Sub

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,