vb里面如何偷偷的使用windows的画图?

Question

我现在处理完clipboard的图像数据，再次贴回imgedit的话，有问题。
而这个数据贴到画图，然后再从画图ctrl+c拷贝到clipboard,再贴回imgedit就没问题。谢谢
10分有点少。不过解决以后我给100分

Answer 1

Private Sub Command1_Click()
    Picture1.AutoRedraw = True
    Picture1.Print Now
    
    Clipboard.SetData Picture1.Image
    
    Shell "MSPaint.exe", vbNormalNoFocus
    
    SendKeys "^V"
End Sub

Answer 2

'多了NO
Private Sub Command1_Click()
    Picture1.AutoRedraw = True
    Picture1.Print Now
    
    Clipboard.SetData Picture1.Image
    
    Shell "MSPaint.exe", vbNormalFocus
    
    SendKeys "^V"
End Sub

Answer 3

Private Sub OLE1_Updated(Code As Integer)
If Code = 1 Then
Me.Pic1.Picture = Me.OLE1.Picture
Me.OLE1.Close
 End If
End SubPrivate Sub Pic1_DblClick()
 SavePicture Pic1.Image, app.path & "\tmp.bmp"
 Me.OLE1.CreateEmbed TempDir & "\tmp.bmp", "Paint.Picture"
 Kill app.path  & "\tmp.bmp"
 Me.OLE1.DoVerb vbOLEOpen
End Sub

Answer 4

我就是想让我自己ole进来的这个paint可以 拷贝，粘贴。
就想点击了这个ole里的paint菜单上的复制，粘贴一样

Answer 5

怎么暗自调用paint菜单上的 复制，粘贴