如何向图片上写文字信息(高手请进)

Question

我想向一张图片上写一些文字信息,程序怎么处理一下!
谢谢大家多多帮忙!

Answer 1

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As LongPrivate Sub Command1_Click()
Picture1.ScaleMode = 3
Picture1.Refresh
Picture1.AutoRedraw = True
Picture1.CurrentX = 50
Picture1.CurrentY = 50
Picture1.ForeColor = vbRed
Picture1.Print "you are welcome"
SavePicture Picture1.Image, "c:\1.bmp"
End Sub
或者
Private Sub Command2_Click()
Picture1.Refresh
Picture1.AutoRedraw = True
TextOut Picture1.hdc, 50, 50, "you are welcome", Len("you are welcome")
SavePicture Picture1.Image, "c:\2.bmp"
End Sub

Answer 2

用picturebox的化，直接用picture1.print "asldfkjasd "就可以了吧

Answer 3

picturebox控件没有print方法啊!
调用哪个TextOut方法也不行啊!

Answer 4

你试试picture1.print "asldfkjasd "啊，属性表理没有，但是可以用的

Answer 5

picturebox控件没有print方法??????????????????????第一次听说！你试过真的没有吗？？？

Answer 6

对了，你首先需要设置
CurrentX和CurrentY,然后再用Print方法Private Sub Command1_Click()
With Picture1
  .CurrentX=200
  .CurrentY=200
  .Print "200,200"
End With
End Sub

Answer 7

倒！这个贴子总碰到怪事，Print不能用With块！！