我的第一个VB作品（出美女），有图有源码，上传全部文件

GZLJZ · 发表于 2010-12-27 18:52:04

下面是运行界面

(原文件名:78.jpg)
详细正确文件在17楼

GZLJZ · 发表于 2010-12-27 18:55:21

有美女看了，大家顶一下呀

jkadjkad · 发表于 2010-12-27 18:57:59

占位,围观

My5A1 · 发表于 2010-12-27 19:01:46

鼓励顶

renpeng009 · 发表于 2010-12-27 19:04:33

楼主，不是每个人的用户名都叫owner

不要使用绝对路径
改成
Image1.Picture = LoadPicture("d.jpg")

最好改成资源文件，这样就可以单文件运行了。

GZLJZ · 发表于 2010-12-27 19:07:44

回复【4楼】renpeng009 大鹏集成
楼主，不是每个人的用户名都叫owner
-----------------------------------------------------------------------

咦，有问题吗？你那里不能运行吗？

GZLJZ · 发表于 2010-12-27 19:08:28

哦，这样呀，第一次用VB,谢谢

lljyes · 发表于 2010-12-27 19:15:50

美女在哪呢？

GZLJZ · 发表于 2010-12-27 19:15:54

根据4楼更新，不然有的初学VB的象我一样运行不了，再传
点击此处下载 ourdev_607483NZY2JX.rar(文件大小:460K) (原文件名:yy.rar)

GZLJZ · 发表于 2010-12-27 19:16:48

重新下载上面的，点一下确定键就会出来的

wuha · 发表于 2010-12-27 19:21:58

回复【4楼】renpeng009 大鹏集成
楼主，不是每个人的用户名都叫owner
不要使用绝对路径
改成
image1.picture = loadpicture("d.jpg")
最好改成资源文件，这样就可以单文件运行了。
-----------------------------------------------------------------------

改成这样的话，得在程序当前文件夹有“d.jpg”这个图片才行吧。
怎么把图片嵌入应用程序中呢？

renpeng009 · 发表于 2010-12-27 19:28:07

呃，晕~~~你又改成D盘了，我下载放桌面上是不行滴。做好的软件应该不随环境的改变而发生结果的改变。

回复【10楼】wuha 东方不败
-----------------------------------------------------------------------

将图片做成资源

lbc___ · 发表于 2010-12-27 19:33:25

回复【11楼】renpeng009 大鹏集成
-----------------------------------------------------------------------

呵呵 lz估计还不知道你说的相对路径是啥。。。

GZLJZ · 发表于 2010-12-27 19:38:04

回复【12楼】lbc___
回复【11楼】renpeng009 大鹏集成
-----------------------------------------------------------------------
呵呵 lz估计还不知道你说的相对路径是啥。。。
-----------------------------------------------------------------------

是搞不懂相对路径，能怎么把图片做成资源吗？
VB打包成EXE文件，是没有把图片打包进去的呀

a-rice · 发表于 2010-12-27 20:04:00

学VB前只用Quick Basic,居然用这个DOS编译器器去写一个鼠标支持的图形界面的扫雷！想起来真幼稚啊！

我的第一个VB作品是两千年的时候，CD播放器，最简单的！

之后东搞西搞的，什么都写，NSF播放器，DC6文件浏览器啊，游戏修改器啊，扫雷作弊器啊，工程用的小软件啊，乱七八糟的，就是没有一样精专！想来都惭愧。

renpeng009 · 发表于 2010-12-27 20:50:28

要做成资源文件，需要完成以下工作：

先另存为BMP文件~

(原文件名:aaaa.png)

新建文本文档：

(原文件名:aaaa.png)
另存为TEST.RC

将D.BMP和TEST.RC放在一起，比如C盘~

然后：

(原文件名:aaaa.png)
再然后，C盘多了一个文件：

(原文件名:aaaa.png)

像这样：

(原文件名:aaaa.png)

(原文件名:aaaa.png)
添加进来~~

代码改一下：

(原文件名:aaaa.png)

OK~运行以下~~~

以下只有EXE文件~~~

点击此处下载 ourdev_607518NDMZFF.rar(文件大小:366K) (原文件名:美女.rar)

GZLJZ · 发表于 2010-12-27 20:59:31

谢谢15楼，我试着做一遍，将图片做成资源文件，

GZLJZ · 发表于 2010-12-27 21:14:36

我也成功了，代码如下：
Option Explicit

Private Sub Command1_Click()
Image1.Picture = LoadResPicture(101, 0)
End Sub

Private Sub Command2_Click()
End
End Sub
下面再把整个文件夹传上来，我已单独拿“美女.exe”到另一台电脑上确认试过可以的了
点击此处下载 ourdev_607523SK8ATY.rar(文件大小:999K) (原文件名:yy2.rar)
大家直接可以用VB自带的资源管理器就可以将图片做成资源文件来使用，就可以单独EXE文件就可以运行了，在这里非常感谢renpeng009 大鹏集成的指导！！

292302877 · 发表于 2011-5-3 22:48:02

MARK

lin108 · 发表于 2011-12-17 11:20:31

MARK

lingaogang · 发表于 2012-5-23 13:00:53

MARK!!!!!!

momoshuihan1 · 发表于 2012-5-23 17:03:55

MARK

77776666 · 发表于 2012-5-23 17:13:18

不错。

hpjywd · 发表于 2012-5-23 17:45:24

xqn2012 · 发表于 2012-8-14 11:21:40

MARK!!!!!!

houzengmin · 发表于 2012-9-24 11:27:04

慕容白雪落 · 发表于 2012-9-28 08:49:47

我怎么没看到美女呀

我的第一个VB作品（出美女），有图有源码，上传全部文件

阿莫论坛20周年了！感谢大家的支持与爱护！！