VB编写程序：设计一个程序，当单击窗体时，在窗体上显示任意一幅图片。怎样 *** 作？

首先添加一个窗体，在这个窗体上加一个文本框的控件，在这个文本框的单击事件中写如下的程序：

Dim num, sum, it(1), n, t, h

Private Sub Form_Click()

File1.Refresh

sum = 0

List1.Clear

For i = 0 To File1.ListCount - 1

t = Split(File1.List(i), ".")(UBound(Split(File1.List(i), ".")))

If LCase(t) = LCase("jpg") Or LCase(t) = LCase("bmp") Or LCase(t) = LCase("gif") Then List1.AddItem File1.List(i): sum = sum + 1

Next

h = Rnds(sum)

Print h

Image1.Picture = LoadPicture(List1.List(h))

End Sub

Private Sub Form_Load()

File1.Visible = 0

List1.Visible = 0

num = -1

End Sub

Function Rnds(ByVal Value)

re:

DoEvents

Randomize

n = Fix(Rnd * Value)

If num = 1 Then num = -1

num = num + 1

it(num) = n

If it(0) = it(1) Then GoTo re

Rnds = n

End Function

'添加image1、file1、list1控件各一个

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

Picture1.Picture = LoadPicture("e:\tmp\1.jpg")

VB调用图片步骤如下：

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

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

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) 文件。

---