vb多张图片显示问题

本帖最后由 bhbh202 于 2011-01-16 17:57:16 编辑 Image使用数组控件。
或者，使用for each ctl in me.controls将所有image放到一个数组中。 本帖最后由 bcrun 于 2011-01-20 15:23:32 编辑 把30改为“N个的”N 就行了 本帖最后由 bcrun 于 2011-01-20 15:24:04 编辑 +1
就这么简单，你的代码已经接近目标

引用 3 楼 yiguangqiang88 的回复:

把30改为“N个的”N 就行了

引用 5 楼 dbcontrols 的回复:

+1
就这么简单，你的代码已经接近目标


引用 3 楼 yiguangqiang88 的回复:
把30改为“N个的”N 就行了

不可用啊！要求常数表达式！
Const endc As Long = 30 '终止号
改为
dim endc as Long
endc =N 本帖最后由 bcrun 于 2011-01-20 15:24:33 编辑 一定要常数表达式么？那么就只能“Const endc As Long = 60'终止号”了（60张图片）
否则可以"Public endc as long"，然后在窗体的load事件中读取图片目录下图片个数，“endc=图片个数”即可。 我的意思用InputBox（"请输入几数量的", "照片", )  

譬如：我有100张照片，这次运行程序需要48张，在InputBox里输入48，多余的不会出来，按钮点1次2、3、4、。。。48，依次在Image1里显示，再次运行程序需要70张，就可以调出来显示，操作一上面由于，但是Image1只有一个框（不是数组）。4楼的我不采纳，谢谢你的支持！ 哈哈哈 还真是自打嘴巴 一会要求 常量表达式 一会用 InputBox 楼主慢慢玩.... dim endc as Long
endc =val(InputBox（"请输入几数量的", "照片", ) ) 我陪楼主玩 本帖最后由 bcrun 于 2011-01-20 15:25:14 编辑 人气少了……快过年了 本帖最后由 bcrun 于 2011-01-20 15:26:13 编辑 如果输入的范围在10-20之间这样写
dim endc as Long
endc =val(InputBox（"请输入几数量的", "照片", ) )
if endc <=10 or endc >=20 Then Exit Sub 本帖最后由 bcrun 于 2011-01-20 15:27:18 编辑 也可搞个限定。if endc <=10 then endc=10
if endc >=20 Then endc=20

引用 14 楼 dbcontrols 的回复:

dim endc as Long
endc =val(InputBox（"请输入几数量的", "照片", ) )
Static i As Long
  If i = 0 Then i = startc
  Image1.Picture = LoadPicture("C:\Program Files\照片\" & CStr(i) & ".jpg") '换图、照片保放路径
 ……

你这代码不对，用 Command1按一下InputBox界面出来一次，换一个图！ 这位兄台真的要多学学了……
多练练吧 大家都是这么过来的……

引用 21 楼 yiguangqiang88 的回复:

这位兄台真的要多学学了……
多练练吧

我是刚刚自学的，还望你们热心人的帮助哦！ 最还是把InputBox界面放在Private Sub Form_Load()下创建数量，再Command1按一下出来1个换下第2个。。。。。。。。。 就是这么学过来的。俺也是

补充：VB ,  基础类