新建From1(窗体),新建Command1(按钮CommandButton),准备一张图片 123.bmp,代码:
Private Sub Command1_Click() Call f_CopyPictrue(Picture1) End Sub Private Sub Form_Load() Picture1.Picture = LoadPicture(App.Path & "\123.bmp") End Sub
新建模块 modCopyPicture.bas,代码:
这样可以粘贴到PS等软件。