关于一段代码的修改

Question

本帖最后由 bcrun 于 2013-02-03 14:02:05 编辑

Answer 1

本帖最后由 bcrun 于 2013-02-03 14:07:07 编辑

  

Answer 2

本帖最后由 bcrun 于 2013-02-22 14:23:17 编辑

  

Answer 3

Private Sub Timer1_Timer()
static i as long
   select case i
   case 0
        Picture1(29).Visible =false
        Picture1(0).Visible =true
        i=i+1
   case 29
        Picture1(28).Visible =false
        Picture1(29).Visible =true
        i=0
   case else
        Picture1(i-1).Visible =false
        Picture1(i).Visible =true
        i=i+1
   end select   
nextEnd Sub

Answer 4

本帖最后由 bcrun 于 2013-02-22 14:24:12 编辑

  

Answer 5

本帖最后由 bcrun 于 2013-02-22 14:25:03 编辑

  

Answer 6

您每次先把所有图像框的 Visible 属性设置为 False，然后再计算应该显示哪个，再设置那个图像框的 Visible 为 True

Answer 7

Private Sub Timer1_Timer()
    static I as long
    dim J as long    for j=picture1.lbound to picture1.ubound
        picture1(j).visible=false
    next
    picture1(i).visible=true
    i=i+1
    if i=j then i=0
End Sub
这样无论多少个都会自动循环.

Answer 8

呵呵，老马有创意。照样改一版：
Private Sub Timer1_Timer() 
Dim j As Itegeri = (i + 1) Mod Picture1.CountFor j = 0 To Picture1.Count - 1
    Picture1(0).Visible = IIf(j = i, True, False)
Next j
End Sub