如何实现这个图像处理功能?(可能是关于图像组合保存方面的)多谢了!

Question

我要想实现,把一个我在一文本框输入委托票号,然后使"委托票号=X"这几个字直接
放入一个picturebox中图像内,而且这几个字在图像内是可移动的,最后把这几个字和
图像一起保存为一个新文件.
最好能有代码或别的什么方法可以实现?
多谢你的帮助!

Answer 1

SavePicture 语句示例
本例使用 SavePicture 语句保存画在 Form 对象的 Picture 属性中的图形。要试用此例，可将以下代码粘贴到 Form 对象的声明部分，然后运行此例，单击 Form 对象。Private Sub Form_Click ()
   ScaleMode = vbPixels   ' 设置比例模型为像素。
   AutoRedraw = True ' 打开 AutoRedraw。
picture1.print "ok"
   SavePicture picture1.Image, "TEST.BMP"   ' 将图片保存到文件。
End Sub

Answer 2

Option ExplicitDim m_lngXDown As Long, m_lngYDown As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source'Picture1为源图形,PICTURE2为目的图形,加一个LABEL控件,在此控件上面显示你要改变的委托票号
Private Sub Command1_Click()
    Picture2.Width = Picture1.Width: Picture2.Height = Picture1.Height
    BitBlt Picture2.hDC, 0, 0, Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, SRCCOPY
    SavePicture Picture2.Image, "C:\aa.bmp"
End SubPrivate Sub Form_Load()
    Picture2.AutoRedraw = True
    Label1.BackStyle = vbTransparent
End SubPrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    m_lngXDown = X: m_lngYDown = Y
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        With Label1
            .Move .Left + X - m_lngXDown, .Top + Y - m_lngYDown
        End With
    End If
End Sub

Answer 3

cuizm(射天狼) 的确实不错。
很有收获