vb中如何使gif动起来，我不要控件，只要代码！

vb中如何使gif动起来，我不要控件，只要代码！

很简单把....

首先对控件栏点右键,部件

然后把那个Microsoft Internet Controls勾上,确定

再插入这个控件

添加以下代码:

Private Sub Form_Load()
WebBrowser1.Navigate " " '填入gif图片名称,如:1.gif,要把这图片放在与程序同一个目录下
End Sub

Dim flag As Boolean

Private Sub Form_Load() Timer1.Interval = 5000 Timer2.Interval = 500 Image1.Left = 0 End Sub

Private Sub Timer1_Timer() Dim i As Integer i = 1 If i = 1 Then Image1.Picture = LoadPicture("文件存储路径") i = i + 1 End If If i = 2 Then Image1.Picture = LoadPicture("文件存储路径") i = i + 1 End If End Sub

Private Sub Timer2_Timer() If Image1.Left <= 0 Then flag = False ElseIf Image1.Left >= Form1.Width - Image1.Width Then flag = True End If If flag = False Then Image1.Left = Image1.Left + 200 Else Image1.Left = Image1.Left - 200 End If End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息