Option Explicit
Dim temp() As String, defaultN As Long
Private Sub Command1_Click()
defaultN = defaultN - 1
If defaultN = 0 Then defaultN = UBound(temp)
Picture1.Picture = LoadPicture(temp(defaultN))
End Sub
Private Sub Command2_Click()
defaultN = defaultN + 1
If defaultN > UBound(temp) Then defaultN = 1
Picture1.Picture = LoadPicture(temp(defaultN))
End Sub
Function getfilename(pathname As String, temp) As Boolean
Dim f, n As Long
pathname = pathname & IIf(Right(pathname, 1) = "\", "", "\")
f = Dir(pathname, vbDirectory)
If Len(f) = 0 Then
Exit Function
End If
Do While f <> ""
If f <> "." And f <> ".." Then
If LCase(Right(pathname & f, 4)) = ".jpg" Then
n = n + 1
ReDim Preserve temp(1 To n)
temp(n) = pathname & f
End If
End If
f = Dir()
Loop
If n > 0 Then getfilename = True
End Function
Private Sub Form_Load()
If getfilename("d:\a", temp) Then '假设文件位置
Command1.Caption = "上一张"
Command2.Caption = "下一张"
defaultN = 1
Picture1.Picture = LoadPicture(temp(defaultN))
Else
MsgBox "无图片文件"
Unload Me
End If
End Sub
追问我写了一些代码,可是不能运行..您能帮我看一下吗?告诉我一个邮箱,我发给您吧
追答pt98#sina#com
我上面的也运行不了?
追问这个...有些我们没学过。可以帮我改正一下我自己的吗
追答邮件没有收到啊
追问加qq。。381650565
追答电脑重装,密码记得号没了。
1、图片文件放在哪里?
2、有几个picture控件?
3、按学生的思路写?
为什么一定是24张,我这代码可以无数张,如果一定24张那就是需要排列成一定规则?