如何保存对应文件名

Question

请问高手
保存一张图片
按下CmdSave1控件该图片保存为 图片1.bmp
按下CmdSave2控件该图片保存为 图片2.bmp
当中的数字怎么定义

Answer 1

你的图片是存放在Picture控件中的？
如果是，可以使用
Option ExplicitPrivate Sub CmdSave1_Click()
    SavePicture Picture1.Picture, App.Path & "\1.bmp"
End SubPrivate Sub CmdSave2_Click()
    SavePicture Picture1.Picture, App.Path & "\2.bmp"
End SubPrivate Sub Form_Load()
    
End Sub

Answer 2

记住：Picture1中必须要有图片哦，不然会报错的

Answer 3

1,2用Index
CmdSave数组
这样代码要麻烦死

Answer 4

Option ExplicitPrivate Sub CmdSave_Click(Index As Integer)
    SavePicture Picture1.Picture, App.Path & cstr(index+1) & "\.bmp"
End Sub