图片浏览问题

[CrazyHosptial]

例如小弟新建一个Form1
里面放上10张图片(分别放在10个image中),窗体中心有个picture窗体用来显示image的图片
放上两个按钮:command1和command2
小弟的想法是:当程序运作时,picture默认为image1内图片.单击command1为向前浏览第一张图片
单击command2为浏览下一张图片.
其次有个小问题,能附带帮忙的话,小弟感激不尽:"在程序中嵌入图片会造成程序过大.而且不好更改图片内容,如果在所在程序的根目录下放上文件夹,指定图片会很方便,但是指认根目录下文件如何做到???谢谢!
但是小弟初学VB,很多语言不会,恳请帮忙提供源码供小弟参考,谢谢了~~~~

[James0001]

App.Path 是程序的启动路径。
用 LoadPicture( file ) 来装载名为 file 的图像文件。

[小白兔]

把所有的 Image 控件起一个名字，就组成数组了！

[cuijiajian]

UP

[CrazyHosptial]

数组如何制作???给点点提示吧

[lndlwwh830]

我不你是不是想让图片放在你程序的目录下,然后点机 command 是让image的图片发生变画
同时picture的图片也法生改变,
1,首先在你的程序下 图如图片,命名为 1.bmp,2.bmp,3.bmp........(如果你的图片是bmp格式的话这样命名,不是的画将1.bpm 改为 1.jpg, 或 1.gif ......)
2,
private sub command1_click() '上一图片
static i as integet
if i<1 then
i=i-1
else
i=1
end if
Image1.Picture = LoadPicture(App.Path & "\" & t & ".bmp") ----".bmp" 可以改的
pictreu1.picture=image1.picture
end sub

private sub command2_click() '下一图片
static i as integet
if i>10 then
i=i+1
else
i=10
end if
Image1.Picture = LoadPicture(App.Path & "\" & t & ".bmp") ----".bmp" 可以改的
pictreu1.picture=image1.picture
end sub

[lndlwwh830]

你如果要这个程序的话我给你

[stonelang]

1。将十个IMAGE（1-10）先加载上图片COMMND1 单击
public static i
i=1 i=i+1
if i=11 then msgbox("到头") exit sub
else image(i).show 其他的IMAGE.HIDE
COMMND2 单击
if i=0 then msgbox ("到尾") exit sub
else image(i-1).show
2. 用app.path 就可以了

[CrazyHosptial]

lndlwwh830(笑天星) 的源码稍稍看懂一点,不过大概理解...很详细!
stonelang() 老哥说的还是有点头晕晕的~~~~

能不能像:lndlwwh830(笑天星)老哥那样给个全部的代码.然后稍微加上一点注释啊
这样或许小弟可以看懂的...Thanks !

[CrazyHosptial]

嗯,我想要这个程序的源码....谢谢!
收到后另开新贴感谢你,给你50分吧.

[CrazyHosptial]

没有啊~~一直都没有收到....
你发至: [e-mail] 吧 这个信箱空间相对大一点点
谢谢了.真的是麻烦你了...

[CrazyHosptial]

还没人啊......Help ~~ Pleasehelpme ~~~F1 ~~~F1 ~~~~F1 ~~~

[CrazyHosptial]

有点看的不是很明白.....
另外就是我想把图片直接放进EXE中~~~~
不想留在文件夹里~~~因为这样的话,朋友就会乱传图片的`~~
程序大点无所谓的~~~
谢谢~~小弟是这个意思

[xayzmb]

用资源文件

[xayzmb]

或imagelist控件

[danielinbiti]

这个上面都已经答得很完整了。

[yijiansong]

UP

[CrazyHosptial]

最好是源码~~~不然,小弟看的晕晕的....谢谢了~~~

[csdngoodnight]

'这是先将图片加载的例子


'将image控件定义为控件数组:
'如：
'image1(1)
'image1(2)
'......
'image1(10)

'图片，比如是*.jpg，图片名：
'图片1.jpg
'图片2.jpg
'.....
'图片10.jpg
'存放在当前目录

dim p as integer

private sub form_load()
dim i as integer

for i = 1 to 10
'加载图片
image1(i).Picture = LoadPicture(App.Path & "\图片" & i & ".jpg")
next

command1.caption = "前一幅"
command2.caption = "后一幅"
end sub

private sub command1_click()
p = p - 1
if p < 1 then
p = 1
msgbox "到头了"
endif
picture1.picture=image1(p).picture
end sub

private sub command2_click()
p = p + 1
if p > 10 then
p = 10
msgbox "到尾了"
endif
picture1.picture=image1(p).picture
end sub



’----------------------------------------------------------
'即时图片加载的例子

dim p as integer

private sub form_load()
command1.caption = "前一幅"
command2.caption = "后一幅"
end sub

private sub command1_click()
p = p - 1
if p < 1 then
p = 1
msgbox "到头了"
endif
picture1.picture = LoadPicture(App.Path & "\图片" & p & ".jpg")
end sub

private sub command2_click()
p = p + 1
if p > 10 then
p = 10
msgbox "到尾了"
endif
picture1.picture = LoadPicture(App.Path & "\图片" & p & ".jpg")
end sub

[CrazyHosptial]

是: 把图片直接加入程序中(就像image中可以放图片一样)而不是让程序指定文件夹路径浏览图片
谢谢...

[CrazyHosptial]

感谢 lndlwwh830(笑天星) 这位好心人的源码,小弟问题得以解决,因为我的程序给你带来的麻烦请多多原谅...小弟在这里谢谢你!

另外 csdngoodnight(居然比我还快，你真行！) 这位大哥对小弟的启发和平日的帮助也不少.在这里忠心的感谢二位....谢谢!