QQ聊天框左下角文字广告用VB能写出来吗?

来源：百度知道 编辑：UC知道 时间：2024/09/21 12:45:40
QQ聊天框左下角文字广告用VB能写出来吗? 不过我需要的是设置每10秒自动更换一次广告, 那位高手帮写出来代码,谢谢, 最好能把全部文件发来, 我邮箱是xurweb@gmail.com
比如就说暴风影音的这个窗体显示的那些广告. 请问如何能实现?

直接使用WEB控件把, 简单省事

什么意思啊 不懂

一个可以自己用窗体做，定义好位置就是了；
另一个就是一个气泡提示而已。

What?没看到有什么广告字体呀

在窗体上添加一个时钟控件、一个标签控件（把VB工具栏的那个钟和A拉进窗体）代码如下：
Private Sub Form1_Load()
Dim S,Num,n,GuangGao()
Num=0
n=3 '广告个数
T=10 '10秒
ReDim GuangGao(n)
GuangGao(0)="广告1"
GuangGao(1)="广告2"
GuangGao(2)="广告3"
Label1.Caption=""
Label1.AutoSize=True
Timer1.Enabled=True
Timer1.Interval=1000*T
End Sub

Private Sub Timer1_Timer()
Label1.Caption=GuangGao(Num)
if Num=n-1 then Num=0
End Sub