更改图片名字的时候怎样将名字设置成变量 - 编程论坛

#2

chen35232017-09-05 17:12

存图片肯定有路径吧，如D:\图片\…。
电脑靠的是“关系”相连，“人物”、“水”和具体的图片对应的是一对多的关系，如果把关系对上了，就能实现你的愿望。我早段时间用数据库连关系（因图片量大），通过WebBrowser控件显示图片。连关系则通过驱动器、目录、文件控件来查找图片存放位置，把记录图片存放位置的记录拉入数据库的“人物”或“水”对应记录中，下次查询时点击什么就出什么了。只能提供一个方法给你参考，编码并不难，我用点击即接收。

#3

ZHRXJR2017-09-05 19:14

这个应该可以，但如果相对应待图片比较多，不仅仅是以人物或水重命名，而且需要序列号，例如第一个人物的图片是人物001.jpg，那么第二个图片就应该是人物002.jpg，不然，第二个图片就会覆盖第一个图片。
在人物按钮事件中就可以人物 + 人物的序列号 + . + 扩展名；在水按钮事件中可以水 + 水的序列号 + . + 扩展名。

#4

xiangyue05102017-09-06 09:01

这个实现不难，但是不清楚楼主到底是什么地方有困难。是文件名字符串的操作，还是其他的？

#5

破晓长安2017-09-06 15:44

回复 4楼 xiangyue0510

谢谢您，我具体说下：
下面我写的程序是错误的，我想要实现的是：标签中的内容是变化的，也就是说text1.text是变化的，我想打开一个图片，对这个指定的图片进行编辑（即实现通过改变text中的值来重命名图片，图片的新名字就是text中的值。）但问题是现在执行a = App.Path & "\b.JPG"时没有吧b当成变量，而是最终新名字就是b字母，求指导？怎实现图片的新名字就是text中的值，多谢！
Dim a As String
Dim b As String
Dim c As String
c = App.Path & "\qq.JPG"
Text1.Text = Label1.Caption + Label2.Caption + Label3.Caption
b = Text1.Text
a = App.Path & "\b.JPG"
Name c As a

#6

xiangyue05102017-09-06 16:31

基础的东西要好好的学
既然b是一个变量，就跟App.Path是一样的用，你把b放在引号内部是怎么可能实现这个效果呢？
a = App.Path & "\" & b & ".JPG"

#7

破晓长安2017-09-06 16:51

回复 6楼 xiangyue0510

好哒！！弄清楚了，谢谢啦！