Dim img = Clipboard.GetImage() If img IsNot Nothing Then Dim path As String = ProjectPath & "Attachments/" If FileSys.DirectoryExists(path) = False Then FileSys.CreateDirectory(path) End If img.Save(path & "图片1.jpg") CurrentTable.Current(CurrentTable.ColSel) = "图片1.jpg" msgbox("保存成功") End If
加好友 
发短信
Post By：2016/4/10 22:30:00 [显示全部帖子]
