关于画图的问题--

Question

1 在窗体界面上画了一些元素,比如说线条等,能不能把窗体保存成图片.
2 看MSDN里边PICTUREBOX控件可以使用PRINT方法在控件上输出文本,为何我的VB不行,补丁问题?
3 主要想知道如何在界面或者图片控件里画图并保存
谢谢

Answer 1

1.放picture控件
savepicture picture1.picture "c:\test.bmp"
2.picture1.print "test"
3.同1举个例子
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Print "test"
SavePicture Picture1.Image, "c:\test.bmp"
End Sub

Answer 2

Private Sub Form_Click()
   Me.AutoRedraw = True
   Me.Print "kkkkkkkkkkkkkkkkkkkkkkkk"
   SavePicture Me.Image, "c:\test.bmp"
End Sub

Answer 3

1.加PictureBox控件, 设置AutoRedraw属性为True,在PICTUREBOX上画,然后
  SavePicture PictureBox1.Picture "C:\aa.bmp"2.设置AutoRedraw属性为True或者在PICTURE的Paint事件里画!否则被其他窗口盖住后,画的东西就会消息,如果是在LOAD事件里画的,则根本看不到.

Answer 4

保存Pcitrue控件上的图片：Private Sub cmdSaveAs_Click()
    On Error GoTo Err
    
    cdlColor.Filter = "Bitmap" & "(*.bmp)|*.bmp|Jpeg Files (*.jpg)|*.jpg"
        'set the default to .bmp
    cdlColor.FilterIndex = 1
        'bring up the common dialog box for save
    cdlColor.ShowSave
        'save the image
    SavePicture picMain.Image, cdlColor.FileName
        'display the saved filename as the form caption
    strFilename = cdlColor.FileName
   Exit SubErr:
End Sub其中 cdlColor为CommonDialog

Answer 5

我有与Windows画图板实现一样功能的VB样例，需要的话可以发给你

Answer 6

//*
    cdlColor.Filter = "Bitmap" & "(*.bmp)|*.bmp|Jpeg Files (*.jpg)|*.jpg"
     cdlColor.FilterIndex = 1
    cdlColor.ShowSave
     SavePicture picMain.Image, cdlColor.FileName
*//未包含算法,(*.bmp)|*.bmp|Jpeg Files (*.jpg)|*.jpg有什么用?能保存为*.jpg吗?
只是扩展名的不同,没有什么意义~!~

Answer 7

我这里有个画图程序,需要留下EMAIL

Answer 8

奇怪, 我的PICTUREBOX怎么没有PRINT方法??

Answer 9

把PICTUREBOX的AutoRedraw属性设置为True，以免PictureBox被覆盖后清除图画

Answer 10

呵呵,刚才怎么试验都告诉我没有PRINT方法,现在忽然发现能用了,盗版??? 不至于啊

Answer 11

print方法是没在方法列表中列出来的吧?
我从来都这么的用,但没在它的下拉列表看到过它的踪影:D

Answer 12

主要是那个自动重绘要设成True，就是AutoRedraw属性啦，肯定没有问题。Private Sub Form_Click()
    For i = 1 To Me.Height
        Line (0, i)-(Me.Width, i), i
    Next
    SavePicture Me.Image, "c:\a.bmp"
    MsgBox "C：\a.bmp已存盘", vbOKOnly, "提示"
End SubPrivate Sub Form_Load()
    Me.WindowState = 2End Sub