VB做个查看图片的小程序，请高手帮忙

用文件列表框的Filename的属性。不过要看看资料，它返回的是文件名字。在配合PATH的属性，把路径和名字一起加上就行。PATH的属性，你要看看。因为根目录里的文件和文件夹里的文件调出不一样。PATH的最后一个文件夹路径不会自动添加"\"，自己要加上（提示：用right的函数，例如if right(dir1path,"\") then ），自己编吧。

Option Explicit

Dim temp() As String, defaultN As Long

Private Sub Command1_Click()

defaultN = defaultN - 1

If defaultN = 0 Then defaultN = UBound(temp)

Picture1Picture = LoadPicture(temp(defaultN))

End Sub

Private Sub Command2_Click()

defaultN = defaultN + 1

If defaultN > UBound(temp) Then defaultN = 1

Picture1Picture = 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 '假设文件位置

Command1Caption = "上一张"

Command2Caption = "下一张"

defaultN = 1

Picture1Picture = LoadPicture(temp(defaultN))

Else

MsgBox "无文件"

Unload Me

End If

End Sub

MSDN帮助如下：LoadPicture 函数将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。语法LoadPicture([filename], [size], [colordepth],[x,y])LoadPicture 函数语法有下列部分：部分 描述filename 可选的。字符串表达式指定一个文件名。可以包括文件夹和驱动器。如果未指定文件名，LoadPicture 清除图象或 PictureBox 控件。size 可选变体。如果 filename 是光标或图标文件，指定想要的图象大小。colordepth 可选变体。如果 filename 是一个光标或图标文件，指定想要的颜色深度。x 可选变体，如果使用 y ，则必须使用。如果 filename 是一个光标或图标文件，指定想要的宽度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。只有当 colordepth 设为 vbLPCustom 时，才使用X 和 Y值。For icon files 255 is the maximum possible valuey 可选变体，如果使用 x， 则必须使用。如果 filename 是一个光标或图标文件，指定想要的高度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。For icon files 255 is the maximum possible value设置值size 的设置值为：常量 值 描述vbLPSmall 0 系统小图标。vbLPLarge 1 系统大图标，由视频驱动程序决定。vbLPSmallShell 2 外壳小图标大小，由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的 Caption Buttons 的大小设置决定。vbLPLargeShell 3 外壳大图标大小，由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的图标大小设置决定。vbLPCustom 4 自定义大小，由 x 和 y 参数提供值。colordepth 的设置值为：常量 值 描述vbLPDefault 0 如果使用指定文件，则为最佳可用匹配。

比如要让指定的显示在picture1框中：

Picture1Picture = LoadPicture("e:\tmp\1jpg")

VB调用步骤如下：

1、建立一个图像框，名字改为p1,建立一个命令按钮。

2、双击命令按钮，进入代码编辑器，p1Picture = LoadPicture("D:\My Documents\新建文件夹 (2)\1jpg")

3、点击运行

4、点击命令按钮，显示出来了。

扩展资料

返回对象。

LoadPicture([filename], [size], [colordepth],[x,y])

LoadPicture 函数语法有下列部分：

size 可选变体。如果 filename 是光标或图标文件，指定想要的图象大小。

colordepth 可选变体。如果 filename 是一个光标或图标文件，指定想要的颜色深度。

x 可选变体，如果使用 y ，则必须使用。如果 filename 是一个光标或图标文件，指定想要的宽度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。只有当 colordepth 设为 vbLPCustom 时，才使用X 和 Y值。y 可选变体，如果使用 x， 则必须使用。

如果 filename 是一个光标或图标文件，指定想要的高度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。

能匹配的文件有 (emf)、BMP(bmp)、GIF (gif) 文件和 JPEG (jpg) 文件。

显示54张，点击小图可浏览放大图，在 Images 目录中，但是没有给你， Images 目录中没有（这时运行程序会出现错误的！），你可以将你的拷贝到 Images 目录中，共54张，但是必须修改文件名，文件名必须是 001jpg 到 054jpg ，大小最好是768635像素，要求宽度不要大于768像素，高度不要大于635像素，否则，放大图可能超出显示范围，造成显示不正常。

上面是 Images 目录中的文件

如果你感到比较满意，需要源文件，请说明源文件发送地址。

画一个Picture1、VScroll1、HScroll1，再在Picture1里画一个Image1。将Image1的Stretch设为False，AutoSize(如果有这个属性的话)设为True，Left、Top都设为0，要放到Image1中。将VScroll1、HScroll1的Min都设为0。

在Form_Load中打

VScroll1Max = Image1Height - Picture1ScaleHeight

HScroll1Max = Image1Width - Picture1ScaleWidth

在VScroll1的Scroll中打

Image1Top = 0 - VScroll1Value

在HScroll1的Scroll中打

Image1Left = 0 - HScroll1Value

最后要注意以上代码要求Image1中的大小必须超过Picture1所能显示的范围，而且Image1中的不宜过大，否则会报错。

我说选把打开多个路径加载到一个listbox里，利用listbox写代码

Private Sub picbox_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs)

If ListBox1SelectedIndex <= count Then

Try

ListBox1SelectedIndex = ListBox1SelectedIndex + 1

Catch

ListBox1SelectedIndex = 0

End Try

End If

picboxImage = ListBox1SelectedItemToString

End Sub

以上就是关于VB做个查看图片的小程序，请高手帮忙全部的内容，包括:VB做个查看图片的小程序，请高手帮忙、用vb6.0做一个图片浏览（24张图），有“上一张”和“下一张”按钮来控制，急求~代码谢谢、vb如何用通用对话框打开图片文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！