图片合并

最新推荐文章于 2023-11-17 15:02:02 发布

HaoChunhui

最新推荐文章于 2023-11-17 15:02:02 发布

阅读量666

点赞数

分类专栏：程序设计文章标签： file

本文链接：https://blog.csdn.net/HaoChunhui/article/details/458771

版权

程序设计专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Private Sub cmdUpdate_Click()
    Dim i As Single
    For i = 1 To File1.ListCount
        File1.ListIndex = i - 1
        'Debug.Print File1.FileName
        Picture1.Picture = LoadPicture(File1.Path & "/" & File1.FileName)
        'PaintPicture
        Picture1.PaintPicture Picture2.Picture, 0, 0, Picture2.Width, Picture2.Height
        'SavePicture
        SavePicture Picture1.Image, File1.Path & "/" & File1.FileName
    Next i
    MsgBox "Success"
End Sub