学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机，支持月付专业 MSSQL 数据库空间，支持月付专业 MySQL 数据库空间，支持月付
轻松建立自己的群组，招兵买马   
‹‹ 上一主题 | 下一主题 ››
发新话题
打印

帮忙改下

jyp19851119

新手上路

Rank: 1

帖子
7 
精华
0 
注册时间
2008-2-26 
1# 大 中 小 发表于 2008-7-12 16:12  只看该作者

帮忙改下

Private Sub Timer1_Timer()
If (flag - 3) = 0 Then
flag = 0
Else
If flag = 0 Then
Image4.Picture = Image1.Picture
Else
If flag = 1 Then
Image4.Picture = Image2.Picture
Else
If flag = 2 Then
Image4.Picture = Image3.Picture
End If
flag = flag + 1
End If
End Sub

搜索更多相关主题的帖子: flag Then Else End Sub

TOP

defanive

新手上路

Rank: 1

帖子
17 
精华
0 
注册时间
2008-3-22 
2# 大 中 小 发表于 2008-7-12 16:25  只看该作者
可以用Select Case（好像是这样拼）。。。

TOP

cbean

新手上路

Rank: 1

帖子
44 
精华
0 
注册时间
2008-7-11 
3# 大 中 小 发表于 2008-7-15 21:56  只看该作者
Private Sub Timer1_Timer()
  If (flag - 3) = 0 Then
    flag = 0
  Else
    If flag = 0 Then
      Image4.Picture = Image1.Picture
    Else
      If flag = 1 Then
         Image4.Picture = Image2.Picture
      Else
         If flag = 2 Then
             Image4.Picture = Image3.Picture
         End If
         flag = flag + 1
      End If
    End if
  End if
End Sub

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题