MM求助:MDI窗体内能否实现图片自动播放的功能?

Question

各位前辈: 我要怎样才能实现多个图片在MDI窗体内自动定时转换,播放的功能?
或者用什么其他的方法能实现?先谢谢了~~~

Answer 1

加个TIME控件，定时给MDI上的PICTURE控件换图片即可。

Answer 2

用pricturebox来放图片？然后用timenet来控制？
能不能写个代码来看看？谢谢？

Answer 3

如果只是转换的话：
   用一个timer   然后就将多个图片路径名写入一个数组 再 loadPicture

Answer 4

好像可以，你添加一个Picture框，再添加一个Image，
Private Sub Form_Load()
On Error Resume Next
Image1.Picture = LoadPicture(App.Path & "\picture\1.jpg")
End Sub在时钟控键中编写：
Private Sub Timer1_Timer()
On Error Resume Next
i = i + 1
If (i > 6) Then i = 1
bp.Image1.Picture = LoadPicture(App.Path & "\picture\" & Chr$(48 + i) & ".jpg")End Sub顺便说一下，图片名称最好是用数字做。

Answer 5

我来写吧，你在TIMER时间中（时间你可以定义一下，1000为1秒）,思路如下：
dim  i as long(假设你有很多图片，命名为0.jpg,2.jpg.....,10.jpg)timer 事件中
if i<=10 then
i=i+1
picture1.图片=cstr(i)&".jpg"
else
i=1
end if

Answer 6

Private Sub Form_Load()
    
    Timer1.Interval = 10000End SubPrivate Sub Timer1_Timer()
    
    Picture1.Picture = LoadPicture(app.Path & cstr(i) & ".bmp")
    i = i + 1
    If i = 11 Then i = 1End Sub图片为程序路径下1.bmp、2.bmp...

Answer 7

Dim i as long Private Sub Form_Load()
    
    Timer1.Interval = 10000
    i=1End SubPrivate Sub Timer1_Timer()
    
    Picture1.Picture = LoadPicture(app.Path & "\" & cstr(i) & ".bmp")
    i = i + 1
    If i = 11 Then i = 1End Sub图片为程序路径下1.bmp、2.bmp...

Answer 8

将要显示的图片改一下名字：1.jpg,2.jpg.......
Dim i As Integer
Private Sub Timer1_Timer()
i = i + 1
If i < 4 Then
Dim str As String
str = "C:\My Pictures\" & i & ".jpg"
Picture1.Picture = LoadPicture(str)
Else
i = 0
End If
End Sub
注意:i是一个全局变量至少也得是个模块级变量。
以上代码经过测验性能良好。通俗易懂。价格便宜量又足--挺实惠的！

Answer 9

对不起你们，我还是没弄出来~~我是放在MDI窗体里面的~~上面的代码都是可行的吗？

Answer 10

我敢打赌，楼主不是MM，就有鬼！！HOHO~~

Answer 11

我来写吧，你在TIMER时间中（时间你可以定义一下，1000为1秒）,思路如下：
dim  i as long(假设你有很多图片，命名为0.jpg,2.jpg.....,10.jpg)timer 事件中
if i<=10 then
i=i+1
picture1.图片=cstr(i)&".jpg"
else
i=1
end if
  
我用的是这个，提示错误处
picture1.图片=cstr(i)&".jpg"   '提示其中的 & 类型不匹配，不知道是什么原因哟？

Answer 12

=================================================
HTTP://WWW.ITZYK.NET IT资源库--->IT人的专业资源库
=================================================
http://www.itzyk.net 中国IT人的技术资源网站。网站刚刚起步，希望广大IT网友们加入我们，我们会一直把这个网站做大，做全起来。现在网站分为两大部分：http://bbs.itzyk.net -->专业讨论DoNet技术的论坛社区 http://down.itzyk.net  各种程序源码的下载站。
现在论坛区正处于发展壮大期，诚邀各位有志于IT技术方面的朋友加入我们的论坛来负责版主一职，发挥你们的能力让我们把这个论坛壮大起来吧！http://bbs.itzyk.net  欢迎您的到来！同时也欢迎各位IT朋友批评、指教！