Question

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

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

Answer 1

请按如下步骤操作。
“工程”“部件”“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 Sub

Private Sub Form_Load()
n = 1
Command1.Caption = "上一张"
Command2.Caption = "下一张"
Command3.Caption = "查询"
Picture1.Picture = ImageList1.ListImages.Item(n).Picture
Text1.Text = ""
End Sub
================================
以上程序经测试符合你的要求，并且随着EXE文件一起生成。

Answer 2

1、建立资源文件，添加自定义资源，如类型："CUSTOM"，标示号：101、102、103（3副图片自定义类型资源）；文件选择任意3副GIF图片文件。
2、以下代码是3副图片的循环显示。
Private Sub Command1_Click()
Dim a() As Byte
Static i As Long
a = LoadResData(101 + i, "CUSTOM")
Open "c:\1.gif" For Binary As #1
Put #1, , a
Close #1
Picture1.Picture = LoadPicture("C:\1.gif")
Kill "C:\1.gif"
i = (i + 1) Mod 3 '共3副图片
End Sub
3、查询很简单啊，建立text1,command2：
Private Sub Command2_Click()
Dim a() As Byte
dim i As Long
Select Case Trim(Text1)
Case "花"
i = 0
Case "草"
i = 1
Case "花草"
i = 2
Case Else
MsgBox "没这幅图啊"
Exit Sub
End Select
a = LoadResData(101 + i, "CUSTOM")
Open "c:\1.gif" For Binary As #1
Put #1, , a
Close #1
Picture1.Picture = LoadPicture("C:\1.gif")
Kill "C:\1.gif"
End Sub
4、两个功能都要的话，可以编成模块形式调用。很简单就不写了。
5、“花”“草”“花草”也可以建立在资源的字符串表格里，用LoadResString(101)LoadResString(102)LoadResString(103)调用。

Answer 3

比较笨的方法，就是有几张图片，就在窗体上加几个picturebox，把所有的图片都放到picturebox里（设计时手动添加图片）
Picture4.Picture = Picture3.Picture这样可以读取图片，实现上一张，下一张

Answer 4

其实很简单，就是 “要求生成exe后图是都存在程序里的，换其他电脑也只要一个exe文件就可以查到所有的图”有点难。

Answer 5

资源文件的建立需要用到VB/Wizards文件夹中的RC.exe
RC /?可以取得它的帮助
rc资源脚本的格式可以网上查一下..很简单..像这样：
100 ICON c:\icon.ico
101 WAVE d:\sound.wav

当然....写这个.rc文件的时候你可能要找一些小软件来处理这大量的资源编号(比如Word啦...)....还有文件类型(虽然都是CUSTOM).....
文件名列表倒是可以用dir /b实现..

rc编译完成后将生成的.res文件添加到工程中..就可以像3楼的那样用了....
3楼的C:\1.gif只是建了一个临时文件...因为在RC资源文件里的图片....直接调用的话只能是BITMAP....就是位图...就是bmp啊dib啊这种格式.....而VB的PictureBox还支持很多其它格式的文件...所以3楼用了一个临时文件,将资源文件里的内容解压出来....

--------------------------------------------

当然.....这个rc.exe是个控制台程序...没有图形界面的....在"命令提示符"敲就可以.......
......
呐...531623560....

Answer 6

没有