整形变量转换成字符串

GodSeventh007 2008-07-29 05:38:58
新手,最近遇到的 问题,查过一些资料,奈何道行太低,还是不懂
dim num(1 to 10) as integer
for i = 1 to 10
num(i) = i
picture1.picture = loadpicture("num(i).jpg") '如何将num(i),替换成需要的数字,因为图片是 1.ipg 2.jpg
next i
字符串的拼接我会了,就前面一步,是不是有什么函数能实现对应的 功能
请各位赐教
...全文
116 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
GodSeventh007 2008-07-30
  • 打赏
  • 举报
回复
你好,为什么有的图片倒入要写绝对路径,而有的版本不用?
跟什么有关吗?
绝对路径是不是封装起来还要注意什么?
GodSeventh007 2008-07-30
  • 打赏
  • 举报
回复
呵呵,数组在这里是多余了,就想着示意下,给忘了
GodSeventh007 2008-07-30
  • 打赏
  • 举报
回复
抱歉,太忙了,昨晚一个没撑住,睡着了
谢谢各位帮忙了!!
Adai011 2008-07-29
  • 打赏
  • 举报
回复
加 SLEEP
happy_sea 2008-07-29
  • 打赏
  • 举报
回复
改正,刚才多打了一个"号,第一段代码应该是:
dim i as integer 
for i = 1 to 10
picture1.picture = loadpicture(cstr(i) & ".jpg")
next i


不过这样的话只是语法上没有错误,实际上应改把文件名改成完整路径,另外这样整个循环下来也没有停顿,没有什么实际意义。
happy_sea 2008-07-29
  • 打赏
  • 举报
回复
dim i as integer 
for i = 1 to 10
picture1.picture = loadpicture("cstr(i) & ".jpg")
next i


num这个数组是多余的。
另外图片应该是完整路径与文件名,即循环里面那一句应改为类似
picture1.picture=loadpicture("c:\mydir\" & cstr(i) & ".jpg")
这样的
syalan 2008-07-29
  • 打赏
  • 举报
回复


dim num(1 to 10) as integer
for i = 1 to 10
num(i) = i
picture1.picture = loadpicture(app.path & "\" & num(i) & ".jpg")
next i
luoyefeng 2008-07-29
  • 打赏
  • 举报
回复
'假设图片放在工程下images目录中
dim num(1 to 10) as integer
for i = 1 to 10
num(i) = i
set picture1.picture = loadpicture(app.path & "\images\" & CStr(num(i)) & ".jpg")
next i
ylkid 2008-07-29
  • 打赏
  • 举报
回复
dim num(1 to 10) as integer
for i = 1 to 10
picture1.picture = loadpicture(i & ".jpg")
next i
GodSeventh007 2008-07-29
  • 打赏
  • 举报
回复
晚上回来结贴...

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧