请问在vb6.0中如何利用 Command和picturebox变换图片

来源：百度知道 编辑：UC知道 时间：2024/05/22 04:18:08
就是单击Comman，picturebox里的图片会按一定顺序变换，每单击一下（下一张）往下换一张，单击一下（上一张）往上换一张，等于是浏览存在程序里的图片就是了。
另外，怎么按名字对这些图片进行查询啊？就是实现建一个textbox和Comman然后在textbox里输入图片的文件名，单击Comman就会在picturebox里显示出要查的图。
要求生成exe后图是都存在程序里的，换其他电脑也只要一个exe文件就可以查到所有的图。
请高人帮忙。。回答完整加分，谢谢
2楼那个比较笨的方法我想过了。。不过这样工作量太大，受不了
大哥些，来人帮帮我啊。不用详细代码 只要告诉我差不多怎么写就成，我自己摸索
3楼回答的好详细，不过第一条看不大懂啊，怎么创建资源文件添加自定义资源，还有那个类型 CUSTOM是啥？
那个c:\是路径吧，我想要把图集成到程序里调用能实现吗？
汗，我rc.exe用不了，双击后窗口弹出来就马上消失了，重装过了也不行

请按如下步骤操作。
“工程”“部件”“Microsoft Windows Common Controls 6.0/5.0”
创建如下控件
Command1
Command2
Command3
Text1
ImageList1
Picture1(如果用Image,Stretch = True效果会更好)
在设计视图中右击Imagelist1,单击属性，选择“图像”选项卡，单击“插入图片”，并在“关键字”中可以一一说明（就是你说的“文件名”，查找起来方便），图片全弄好后，单击确定。
代码如下。
===================================
Dim n As Integer

Private Sub Command1_Click()
On Error GoTo e
n = n - 1
Picture1.Picture = ImageList1.ListImages.Item(n).Picture
Exit Sub
e:
MsgBox "上一张没有图片了"
n = n + 1
End Sub

Private Sub Command2_Click()
On Error GoTo e
n = n + 1
Picture1.Picture = ImageList1.ListImages.Item(n).Picture
Exit Sub
e:
MsgBox "下一张没有图片了"
n = n - 1
End Sub

Private Sub Command3_Click()
On Error GoTo e
Picture1.Picture = ImageList1.ListImages(Text1.Text).Picture
Exit Sub
e:
MsgBox "未找到符合此关键字的图片"
End