怎样在图片上添加文字

Question

各位老大，怎样在图片文件上添加文本。

Answer 1

1、如果是编辑图片的话用photoshop等制图工具。
2、如果在picture上添加文字，就放一个lable在图片框上面，然后将lable设为透明就行了。

Answer 2

如果在picture上添加文字，就放一个lable在图片框上面，然后将lable设为透明就行了

Answer 3

Dim s As Strings = "Maconel"
'在（10，20）坐标处写出字符串“Maconel”
TextOut Picture1.hdc, 10, 20, s, Len(s)

Answer 4

忘了说了，textout函数是api，要先声明。
声明是这样的：
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 Long

Answer 5

我的意思是如何用vb代码将文本写入jpg文件中

Answer 6

我也试了一下，picture控件没有print方法！

Answer 7

print方法不显示，直接用
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Print "dsfsdfsdfnsdjvjvbjdfvjkdfv"
SavePicture Picture1.Image, "c:\c.bmp"
End Sub

Answer 8

PictureBox没Print方法，要使用API: TextOut 申明如下：
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 Long
使用方法：
TextOut Picture1.hdc,1,2,"OK!",3  '1为X坐标,2为Y坐标,"OK!"为输出字符串,3为字符串长度。
如果你只是想在PictureBox上显示文字而不用保存的话，只要使用Label控件就可以了，将它的BackStyle属性设为：2　透明，就可以了。

Answer 9

补充一下，如果你想将文字保存到图片上，则需要将PictureBox的AutoRedraw属性设为True
在你用TextOut输出文字后再使用：Picture1.Refresh将输出的文字显示出来。再用SavePicture函数将图片保存下来：
SavePicture Picture1.Image, App.Path & "\Test.bmp"

Answer 10

print确实有的，只是不显示出来，你只管写，可以用的