怎样将picture中画的图形保存到硬盘?怎样拷贝到剪贴板?急........

Question

如题!

Answer 1

Private Sub Command1_Click()
CommonDialog1.DefaultExt = ".BMP"
CommonDialog1.Filter = "Bitmap Image (*.bmp)|*.bmp|JPGE(*.jpg)|*.jpg"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
    SavePicture Picture1.Picture, CommonDialog1.FileName
End If
End sub

Answer 2

SavePicture Picture1.Image, "c:\2.bmp"
 Clipboard.SetData Picture1.Image

Answer 3

Private Sub munsave_Click()
CommonDialog1.Filter = "text files(*.text)|*.txt|" & "all files(*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowSave
If fpath_name <> "" Then CommonDialog1.FileName = fpath_name
If CommonDialog1.FileName = "" Then Exit Sub
Open frmmain.CommonDialog1.FileName For Output As #1
Print #1, Me.Text1.Text
Close #1
fpath_name = CommonDialog1.FileName
modified = False
Me.Caption = CommonDialog1.FileTitleEnd Sub