[微课程《小小摄影展》编写后感]为什么要开发这一课？为了让学员们向家长同学更直观地展示摄影作品。将数码照片打印成纸质照片，让人视觉观感更强烈。而在校外橱窗中展示，更是让小学员自豪无比。基于此目的，我决...+阅读

Dim i%

'用按钮更换图片

Private Sub Command1_Click()

i = i + 1

If i > 5 Then i = 0

Image1.Picture = LoadPicture(App.Path & ＂\0＂ & i & ＂.jpg＂)

End Sub

'初始化

Private Sub Form_Load()

Image1.Picture = LoadPicture(App.Path & ＂\00.jpg＂)

End Sub

'用计时器实现自动换图，计时器的inteval设置自定，为更换图片的时间间隔

Private Sub Timer1_Timer()

i = i + 1

If i > 5 Then i = 0

Image1.Picture = LoadPicture(App.Path & ＂\0＂ & i & ＂.jpg＂)

End Sub

以下为关联文档：

怎样用VB做一个图片浏览器Public Class Form1 Dim i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click i = i - 1 If (i...

怎么用VB做图片浏览器VB6.0实现图片旋转 使用过ACDSEE的朋友一定对它的JPG图片旋转功能记忆犹新，其实我们利用VB6的先进功能，可以对任意格式的图片文件（包括JPG、GIF、BMP、ICO等）进行45度、180度旋...

如何用VB调用windows图片浏览器Private Sub Command1_Click() Dim strPicPath As String strPicPath = ＂C:\Documents and Settings\Administrator\My Documents\My Pictures\1.jpg＂ strPicPath = ＂＂＂＂ & strPic...