Question

用VB通过PictureBox控件载入图片,然后在图片上输入文字,最后将有文字的图片重新保存为图片,请问如何实现?

各位如有范例代码，请发到 dannick@21cn.com ，不甚感激！

Answer 1

给你写个完整的 添加一个text 用于输入文字 添加一个CommonDialog控件 添加三个按钮

Private Sub Command1_Click()
On Error GoTo a
CommonDialog1.FileName = ""
CommonDialog1.ShowSave
SavePicture Picture1.Image, CommonDialog1.FileName
a:
End Sub

Private Sub Command2_Click()
Picture1.Print Text1
End Sub

Private Sub Command3_Click()
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Form_Load()
Picture1.FontSize = 50
Picture1.ForeColor = vbRed
Picture1.FontItalic = True
Picture1.AutoRedraw = True
Picture1.AutoSize = True
CommonDialog1.Filter = "JPEG Images(*.jpg;*.jpeg)|*.jpg;*.jpeg|"
Command1.Caption = "保存图片"
Command2.Caption = "输入文字"
Command3.Caption = "载入图片"
End Sub

Answer 2

最简单的：
Private Sub Form_Load()
Picture1.AutoRedraw = True
Me.Picture1.Picture = LoadPicture("c:\1.jpg")
Picture1.Print "hello"
SavePicture Me.Picture1.Image, "c:\2.jpg" '注：此处用image属性，不要用picture属性
End Sub

Answer 3

sdvgfzsdbfbd

Answer 4

已经发邮箱了