如何保存对应文件名

[sclizhen0504]

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

[贝隆]

你的图片是存放在Picture控件中的？
如果是，可以使用

Option Explicit

Private Sub CmdSave1_Click()
    SavePicture Picture1.Picture, App.Path & "\1.bmp"
End Sub

Private Sub CmdSave2_Click()
    SavePicture Picture1.Picture, App.Path & "\2.bmp"
End Sub

Private Sub Form_Load()
    
End Sub

[贝隆]

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

[sclizhen0504]

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

[贝隆]

Option Explicit

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

[sclizhen0504]

路径未找到 怎么回事?