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

Question

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

Answer 1

//上面所说的向图像中加字并可移动字的功能不懂你的意思，图象里的字怎么可能移动呢？除非是在Photoshop里的字图层可以移动，还能加字你指的是gif动画吗？

Answer 2

先实现第一步（向图像中加字并可移动字的功能）：
'窗体上一个picturebox，一个textbox，两个按钮
Option Explicit
Dim WithEvents labPrint As Label
Dim x1 As Single, y1 As SinglePrivate Sub Command1_Click()
    If ObjPtr(labPrint) <> 0 Then
        labPrint.Caption = "委托票号=" + Text1.Text
    Else
        Set labPrint = Controls.Add("vb.label", "txtprint", Picture1)
        labPrint.Caption = "委托票号=" + Text1.Text
        labPrint.ForeColor = vbBlue
        labPrint.Width = 1500
        labPrint.Height = 500
        labPrint.BackStyle = 0
        labPrint.Left = 100
        labPrint.Top = 100
        labPrint.DragMode = 1
        labPrint.Visible = True
    End If
End SubPrivate Sub Command2_Click()
    If ObjPtr(labPrint) <> 0 Then
        labPrint.Caption = "委托票号=" + Text1.Text
    Else
        Set labPrint = Controls.Add("vb.label", "txtprint", Picture1)
        labPrint.Caption = "委托票号=" + Text1.Text
    End If
    labPrint.ForeColor = vbBlue
    labPrint.BackStyle = 0
    labPrint.Width = 1500 '标签的大小和位置根据你的需要设置
    labPrint.Height = 500
    labPrint.Left = 100
    labPrint.Top = 100
    'labPrint.DragMode = 1
    labPrint.Visible = True
    
End SubPrivate Sub Form_Load()
    Command1.Caption = "设置"
    Command2.Caption = "重置"
End SubPrivate Sub labPrint_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        x1 = X
        y1 = Y
        labPrint.Drag 1
    End If
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) '这一段的效果不是很好，想获得理想效果的话，需要根据鼠标位置做精确的运算
    Source.Move X - x1, Y - y1
End Sub

Answer 3

再实现第2步，只用savepicture是实现不了你的目的的（前提是用我的方法实现了你的第1步），参考：
http://www.china-askpro.com/msg2/qa05.shtml
代码很长，我就不粘贴了