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

[blue23]

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

[loverpyh]

关注，顶

[starsoulxp]

//上面所说的向图像中加字并可移动字的功能

不懂你的意思，图象里的字怎么可能移动呢？除非是在Photoshop里的字图层可以移动，还能加字

你指的是gif动画吗？

[rainstormmaster]

先实现第一步（向图像中加字并可移动字的功能）：
'窗体上一个picturebox，一个textbox，两个按钮
Option Explicit
Dim WithEvents labPrint As Label
Dim x1 As Single, y1 As Single

Private 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 Sub



Private 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 Sub

Private Sub Form_Load()
Command1.Caption = "设置"
Command2.Caption = "重置"
End Sub

Private 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

[rainstormmaster]

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

[cso]

SavePicture方法

[blue23]

可能是没有说清楚,不但要保存,还要实现,上面所说的向图像中加字并可移动字的功能