求助,希望大家帮忙!
我想做一项软件:能显示时间,能在网站上下载图片,但是有一个按钮可以刷新,一个可以保存(代码如下)。除此之外,软件还想添加和360安全卫士里面的切换视图,最好能连接QQ,现请大家帮忙!联系QQ:844147840(加好友之前请先注明“VB6论坛”,谢谢)
代码:
Private Sub Command1_Click()
SavePicture Picture1.Picture, FileName
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Picture1_Click()
Picture1.Picture = LoadPicture("http://cimss.ssec.wisc.edu/tropic/real-time/westpac/images/xxirgms5bbm.jpg")
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub