vb水印怎么弄在中间

一、进入图片编辑

二、搜索关键字水印，进入设置微博图片水印解答中。

三、通过解答中的链接进入微博偏好设置界面。

四、在偏好设置中找到图片水印设置。

五、设置显示水印并选择其位置为图片中心。

六、保存设置。

Private Sub Command1_Click()

AddTxtToPicAndSave Picture1, "文字水印", 100, 200, "c:\1.bmp", 0

End Sub

Private Sub AddTxtToPicAndSave(Picture As PictureBox, strText As String, x As Long, y As Long, SFile As String, SaveType As Integer)

With Picture

.AutoRedraw = True

.CurrentX = x

.CurrentY = y

.Font = "黑体"

.FontBold = True

.ForeColor = vbRed

.FontSize = 22

Picture.Print strText

Select Case SaveType

Case 0 'BMP

SavePicture .Image, SFile

Case 1

'需要第三方控件来保存为其它图像格式

End Select

可以用窗体及PictureBox 控件加载图片，并在需要的位置填写文字，然后打印该图片。

如：利用PictureBox 控件

1、加载图片

Picture1.Picture = LoadPicture("D:\xxxx.jpg")

2、在图片中填写文字

Picture1.FontSize = 40

Picture1.ForeColor = vbRed

Picture1.Print "中国(China)"

3、打印该图片

Printer.PaintPicture Picture1, 0, 0

Printer.EndDoc

---