VB动画显示图片的实现

传说中的谁

在气象中，我们经常要通过动画显示图片（雷达图、云图）的方式来观测天气系统的连续演变。今天给大家介绍一种用VB实现动画的方法。这个方法完全是由传说和笨笨设计并实现的，个人感觉它的优点在于可以任意选择图片来动画显示，而不是只能选择连续的几张图片。
需要用到的控件：一个PictureBox，两个listbox，一个timer控件，一个commandbutton,一个滑动条slider，一个commandialog。
commandbutton用于设置资料路径（懒得配置菜单栏了，有兴趣的可以自己弄），slider用于控制动画时间间隔。需要添加的引用：Microsoft Windows Common Contorls 6.0 (SP6). 添加部件：Microsoft  Common  Dialog Contorls 6.0 (SP6)。timer的intterval值设为500，list1的multiselect属性设为2，list2的visilbale属性设成false。
代码如下：

1. Private Sub Command1_Click()
   
2. Dim FilePath As String
   
3. CommonDialog1.ShowOpen
   
4. FilePath = CommonDialog1.FileName
   
5. Open App.Path & "\FilePath.txt" For Output As #1
   
6. Print #1, CurDir(FilePath)
   
7. Close #1
   
8. End Sub
   
9. 
   
10. Private Sub Form_Load()
    
11. On Error Resume Next
    
12. Dim FilePath As String
    
13. Dim A()
    
14. Dim B()
    
15. Open App.Path & "\FilePath.txt" For Input As #1
    
16. Line Input #1, FilePath
    
17. Close #1
    
18. Form1.List1.Clear
    
19. ss = Dir(FilePath & "/*.GIF")
    
20. While ss <> ""
    
21. i = i + 1
    
22. ReDim Preserve A(i + 1)
    
23. ReDim Preserve B(i + 1)
    
24. A(i) = ss
    
25. B(i) = DateDiff("s", FileDateTime(Path & ss), Now)
    
26. ss = Dir
    
27. Wend
    
28. For i = 1 To UBound(B) - 1
    
29. Form1.List1.AddItem A(i)
    
30. Next i
    
31. Form1.List1.ListIndex = Form1.List1.NewIndex
    
32. Picture1.Picture = LoadPicture(List1.List(List1.ListIndex))
    
33. 
    
34. 
    
35. Slider1.Min = 1
    
36. Slider1.Max = 10
    
37. End Sub
    
38. 
    
39. Private Sub List1_Click()
    
40. On Error Resume Next
    
41. Picture1.Picture = LoadPicture(List1.List(List1.ListIndex))
    
42. List2.Clear
    
43. For i = 1 To List1.ListCount
    
44. If List1.SelCount > 1 Then
    
45. Timer1.Enabled = True
    
46. If List1.Selected(i) = True Then
    
47. List2.AddItem List1.List(i)
    
48. End If
    
49. Else: Timer1.Enabled = False
    
50. End If
    
51. Next i
    
52. End Sub
    
53. 
    
54. Private Sub Slider1_Click()
    
55. Timer1.Interval = Slider1.Value * 100
    
56. End Sub
    
57. 
    
58. Private Sub Timer1_Timer()
    
59. On Error Resume Next
    
60. Static j As Integer
    
61. j = j + 1
    
62. If j > List2.ListCount Then
    
63. j = 0
    
64. End If
    
65. FileName = Form1.List2.List(j)
    
66. DoEvents
    
67. Form1.Picture1.Picture = LoadPicture(FilePath & FileName)
    
68. 
    
69. End Sub
    

复制代码

界面：

                               
登录/注册后可看大图

程序在附件里：
动画.rar (633 KB, 下载次数: 92)

2011-8-25 15:01 上传

点击文件名下载附件
程序有个小问题，就是设置路径的时候，要点击里面的文件才能设置。如果有其他好的建议，笨笨很乐意请教。
感谢清风指正了一个不友好的地方，是笨笨太粗心了，谢谢清风

zsmnantong

顶啊，传说很给力，感谢分享

artmunich

鼓励原创，传说最棒~

尽头的尽头

太强了，支持一下

善人/jw

哈哈~~~传说果然厉害

mofangbao

笨笨从来很守信啊，加油啦

传说中的谁

@zsmnantong@尽头的尽头@mofangbao@artmunich@善人/jw感谢各位的支持！下一个计划是写combo控件与flexgrid的结合，这个在做预报制作发布的小软件的时候可以用到

mofangbao

传说中的谁 发表于 2011-8-25 13:33

                               
登录/注册后可看大图

@zsmnantong@尽头的尽头@mofangbao@artmunich@善人/jw感谢各位的支持！下一个计划是写combo控件与flexgrid的 ...

我来了...恩 我也整理整理我的一些东西，不过我基本都是针对特定的东西写的，通用性比较差

传说中的谁

mofangbao 发表于 2011-8-25 13:35

                               
登录/注册后可看大图

我来了...恩 我也整理整理我的一些东西，不过我基本都是针对特定的东西写的，通用性比较差

你那些东西比较高深嘛！我的是这些年做过的一些东西，拿出来分享一下，也许有的童鞋用得到

mofangbao

我试了一下啊，是不是循环没调好啊，我在win7和xp下面都不能自动开始循环，还是...本来设计就是用上下箭头动画的？

=====================
@传说中的谁看了代码才明白（没学过只有边看边猜），原来是多个选中后才能开始循环，呵呵，这个想法不错，就是你上面说的不连续的吧