Question

VB 用一个按钮响应多个事件，求代码加详解，刚学VB

就是 电子相册 需要两个按钮来翻动相片 ，具体代码怎么写啊最好加上中文注解
一个按钮 上一张 一个按钮 下一张
我个人的想法是 每次单击按钮都可以切换图片和在一个label控件显示不同的文字
只用一个图像框控件不断加载图片，旁边还有一个文件列表框，可以看有多少张图片，

Answer 1

'控件：PICTURE\FILELISTBOX

Dim Z As Integer

Private Sub Form_Load()

'过滤图片格式

File1.Pattern = "*.JPG;*.BMP"

'加载路径

File1.Path = "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures"

Form1.KeyPreview = True

End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)

Dim I As Integer

'文件数量

I = File1.ListCount

'键盘方向键右

'Z记录当前FILE文件列表INDEX

If KeyCode = 39 Then

        Form1.Caption = "按了左方向键"

        If Z = -1 Then Z = 0

           '加载图片文件

           Picture1.Picture = LoadPicture(File1.Path & "\" & File1.List(Z))

           Z = Z + 1

        If Z = I Then

           Z = 0

        End If

'键盘方向键左

ElseIf KeyCode = 37 Then

        Form1.Caption = "按了右方向键"

        If Z = 4 Then Z = Z - 1

           '加载图片文件

           Picture1.Picture = LoadPicture(File1.Path & "\" & File1.List(Z))

           Z = Z - 1

        If Z < 0 Then

           Z = I - 1

        End If

End If

End Sub

Answer 2

那么一个就是上一张,一个就是下一张喽,不会是刚翻过去就又翻过来吧

追问

我个人的想法是 每次单击按钮都可以切换图片和在一个label控件显示不同的文字
只用一个图像框控件不断加载图片，旁边还有一个文件列表框，可以看有多少张图片，

追答

Private Sub Command1_Click() '上一个按钮单击事件
If File1.ListCount < 2 Then Exit Sub '如果文件列表框里的文件小于两个则退出过程不执行下面的代码
If File1.ListIndex = 0 Then '如果文件列表框当前选中的已经是第一个文件
File1.ListIndex = File1.ListCount - 1 '则单击按钮时从尾部开始选中文件列表框里的文件
Else '如果文件列表框当前选中的不是第一个文件
File1.ListIndex = File1.ListIndex - 1 '则每次单击按钮,文件列表框都将选中上一个文件
End If '完成选择文件的条件设置
End Sub '完成上一个按钮单击事件

Private Sub Command2_Click() '下一个按钮单击事件
If File1.ListCount < 2 Then Exit Sub '如果文件列表框里的文件小于两个则退出过程不执行下面的代码
If File1.ListIndex < File1.ListCount - 1 Then '如果文件列表框当前选中的不是最后一个文件
File1.ListIndex = File1.ListIndex + 1 '则每次单击按钮,文件列表框都将选中下一个文件
Else '如果文件列表框当前选中的是最后一个文件
File1.ListIndex = 0 '则单击按钮时从头开始选中文件列表框里的文件
End If '完成选择文件的条件设置
Label1.Caption = File1.Path & "\" & File1.FileName '标签显示文件列表框的文件路径和文件名
Image1.Picture = LoadPicture(Label1.Caption) '图像框显示文件列表框的图片文件
End Sub '完成下一个按钮单击事件

Private Sub Form_Load() '窗体加载事件
File1.Path = "C:\WINDOWS\Web\Wallpaper" '文件列表框的初始路径
File1.Pattern = "*.jpg ;*.bmp ;*.ico; *.gif" '文件列表框显示的文件类型
File1.ListIndex = 0 '文件列表框初始选中第一个文件
Label1.Caption = File1.Path & "\" & File1.FileName '标签显示文件列表框的文件路径和文件名
Image1.Stretch = True '使图片适应图像框的大小
Image1.Picture = LoadPicture(Label1.Caption) '图像框显示文件列表框的图片文件
End Sub '完成窗体加载事件