Question

VB怎样加载图片，可以在别的电脑上也能显示。。

我想把我做的VB文件和图片放在一个文件夹里，发给别人，但编程里load picture路径历史我的电脑的，怎么改成通用的，使在任意电脑都能打开。。？没财富了。。就五分了

Answer 1

如果文件不多，采用资源文件的方法：

方法：在VB6使用菜单，[外接程序] -- [外接程序管理器]，出现“外接程序管理器”对话窗口，选择其中的“VB 6 资源编辑器”，勾选右下方的“加载/卸载”项，确定。

然后，通过菜单[工具] -- [资源编辑器]，打开“VB 资源编辑器”，见下图：

单击图中，用红色圈出的图标，就可以把图片加入到资源文件里。通常，添加的图片编号为101、102、103，等等。

在你的程序里，要加载资源里的图片，用下面的代码：

把原来使 的 LoadPicture函数，改用 LoadResPicture 函数：

LoadResPicture 函数格式：

LoadResPicture(index, format)

其中：index就是前面说的 101，等

format ---- 位图用 0 ，

如果文件比较多，采用在你的程序文件的文件夹里建立子文件夹，比如叫“图片”；然后在用命令加载图片的时候，用App.Path & "\图片" & ".BMP"的类似方法。

这样的话，要用VB提供的方法制作安装程序，这个比较麻烦，我以前一直使用此方法。

此方法，要注意，在制作安装程序过程，所有的图片文件，都要手动添加，并且对这些文件，手动更改安装的目标文件夹为：App.Path & "\图片"

当然，现在我多用Setup Factory。限于篇幅，就介绍到这里。 

Answer 2

路径用相对路径app.path
例如：picture1.picture=loadpicture(app.path+"\1.jpg")
放到任意电脑中的任意文件夹都可

追问

请问我这个怎么改。。？
Image1.Picture = LoadPicture("C:\Users\nyy\Desktop\VB\附件\图形一.JPG")

追答

Image1.Picture = LoadPicture(app.path+"\图形一.JPG")

但要保证vb.exe和.jpg在一个文件夹中

追问

我的是这些东西，图片都在附件文件夹里。。vb.exe是不是打包后的文件？请问怎么打包？

追答

在打开的工程里菜单点生成工程.exe，填写个文件名,例如
之后把工程1.exe和附件文件夹一起拷贝到1个文件夹中，例如文件夹名 1
那么在文件夹1中包含 1 个exe文件和1个子目录
再把Image1.Picture = LoadPicture(app.path+"\图形一.JPG")

改成Image1.Picture = LoadPicture(app.path+"\附件\图形一.JPG")

就可以

Answer 3

在你的项目里面添加一个文件夹命名为"Image"
把你需要的图片全部放到Image文件夹里面去
然后把页面上的mage1.Picture = LoadPicture("C:\Users\nyy\Desktop\VB\附件\图形一.JPG")改为
mage1.Picture = LoadPicture("Image\图形一.JPG")

Answer 4

你给人看成品的话可以直接打包.再发送.如果是源文件的话.用IMAGE框..不要用PICTURE.最好连源文件发.

追问

请问怎么打包？我是用的IMAGE..是要发给人家看成品。。但加载图片路径是我的电脑桌面上的图片

Answer 5

直接加载到exe文件中，用打包软件

追问

怎么加载？求详细

追答

调试的时候可以看到图片的话，那么只要下载个打包软件，打包一下就行了