vb 图片上打印文字

Question

请问vb怎么在jpg图片制定位子上打印文字并保存？谢谢。我是从txt里读取文字，再批量打印。

Answer 1

Picture1.ScaleMode = 3
Picture1.CurrentX = 10
Picture1.CurrentY = 10
Picture1.Print "文字输出ABC"

Answer 2

Option ExplicitDim sTxt As String '读取的文字Private Sub Command1_Click()
    Picture1.ScaleMode = 3
    Picture1.CurrentX = 10
    Picture1.CurrentY = 10
    Picture1.AutoRedraw = True
    Picture1.Print sTxt
    SavePicture Picture1.Image, "c:\tt.bmp"
    
End SubPrivate Sub Form_Load()
    sTxt = "zdfbzfbnsgnjdgfnmdghmdghszfdbsfdhbsfhsfghnsdfgnh" '读取的文字
    Picture1.Picture = LoadPicture("c:\pp.bmp")
End Sub参考文献：
http://topic.csdn.net/u/20080331/19/6c605dcc-2f22-4de7-a7f2-c6c122a615f7.html?1759399285
http://topic.csdn.net/u/20081020/17/452ec679-d433-44d2-9035-ab067cb4add6.html?seed=607738466

Answer 3

如果文字样式比较多样的话，建议你使用GDI+来绘制。