请问下VB怎样实现图片幻灯播放?比如我把图片放在一个文件夹中,用一个页面可以实现他可以按下一页上一页,自动浏览!麻烦各位帮忙,谢谢!
楼上学姐的稍微有点复杂了,其实用VB自带的默认控件就可以很轻松的做出一个图片浏览器!
附件里有一个VB的小例子,实现任意浏览文件夹,定时,自动前进,自动后退等功能。简单代码如下:
Dim way As Boolean
Dim i As Long
Private Sub Command1_Click()
way = True
Timer1。 Interval = CInt(Text1。Text) * 1000
End Sub
Private Sub Command2_Click()
way = False
Timer1。 Interval = CInt(Text1。Text) * 100...全部
楼上学姐的稍微有点复杂了,其实用VB自带的默认控件就可以很轻松的做出一个图片浏览器!
附件里有一个VB的小例子,实现任意浏览文件夹,定时,自动前进,自动后退等功能。简单代码如下:
Dim way As Boolean
Dim i As Long
Private Sub Command1_Click()
way = True
Timer1。
Interval = CInt(Text1。Text) * 1000
End Sub
Private Sub Command2_Click()
way = False
Timer1。
Interval = CInt(Text1。Text) * 1000
End Sub
Private Sub Command3_Click()
If Command3。Caption = "停止" Then
Timer1。
Interval = 0
Timer1。Enabled = False
Command3。Caption = "开始"
Else
Timer1。
Interval = CInt(Text1。Text) * 1000
Timer1。Enabled = True
Command3。Caption = "停止"
End If
End Sub
Private Sub Dir1_Change()
File1。
Path = Dir1。Path
End Sub
Private Sub Drive1_Change()
Dir1。Path = Drive1。Drive
End Sub
Private Sub File1_Click()
Image1。
Picture = LoadPicture(Dir1。Path & "\" & File1。FileName)
i = File1。ListIndex
Timer1。Interval = 0
End Sub
Private Sub Form_Load()
i = 0
End Sub
Private Sub Timer1_Timer()
If way Then
If i 0 Then
i = i - 1
End If
End If
If i >= 0 And i <= File1。
ListCount - 1 Then
File1。Selected(i) = True
Timer1。Interval = CInt(Text1。Text) * 1000
Image1。
Picture = LoadPicture(Dir1。Path & "\" & File1。List(i))
End If
End Sub
。收起