VB 在label标签中显示远程文本广告
大家知道在QQ上左下角都会有滚动的广告,一定也想在自己软件中实现此功能。刚在网上搜了一通,居然只有一个,代码还不全,说需要可以联系出售,要500块钱、太黑了。研究了一下发现自己也能实现。如下图:
自动加载远程链接,进行更换。5秒一次。并且点击后可以打开网址。
现代码公布如下:
需添加控件timer,webbrowser,label
Private Sub Form_Load()
Webad.Navigate "https://www.wooaii.com/suo-you-wen-zhang-lie-biao"
Label2.Visible = False
Timer1.Interval = 1000
i = 0
li = -1
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 5 Then
Label2.Visible = True
li = li + 1
If Webad.Document.links.Item(li) <> S Then
Label2.Caption = Webad.Document.links.Item(li).innertext
End If
i = 0
End If
If li = Webad.Document.links.length – 1 Then
li = 0
End If
End Sub
webad即webbrowser控件。label2用来显示广告。两个变量i和li开始运行即加载远程网页。label2设为不可见。i=0 li=-1(发现li设为-1时才可以显示最新一条)
然后每5秒换一条。
如果Webad.Document.links.Item(li) <> S 标签就显示某条文本。这个S是个空值。
Private Sub Label2_Click()
res = ShellExecute(0, vbNullString, Webad.Document.links.Item(li).href, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub
点击label2即用默认浏览器打开链接。默认浏览器代码不再多说。