vb 图片插字?

来源：百度知道 编辑：UC知道 时间：2024/09/24 11:59:40
怎样实现在图片中插入字符?

如我有一张图片1.JEG.....
在VB中有一个TEXT1文本框和一个TEXT2文本框....一个按钮.....
按一下钮
怎样可以把文本框中的文字加到图片相应的位置中??????

还有怎么控制:文字的大小....字体.....字距........主要是怎样控制字距.......

Private Sub Command1_Click()
Picture1.FontSize = 35'字体大小
Picture1.ForeColor = RGB(0, 255, 0)'字体颜色
Picture1.Print Text1.Text'如果要横向显示字体就在text1.text后面加分号如text1.text; 如果要字距就这样Picture1.Print Text1.Text;spc(10); 10就是10空格。
End Sub

Private Sub Command2_Click()
Picture1.Print Text2.Text
End Sub

Private Sub Form_Load()
Picture1.Picture = LoadPicture("D:\My Pictures\1.jpg")'自己更换图片位置
End Sub