二、VB.NET实现给图片添加文字水印

Crazy_咸鱼

已于 2022-07-24 18:56:52 修改

阅读量2.8k

点赞数 3

分类专栏：随笔文章标签： vb.net 文字水印

于 2019-01-06 20:48:59 首次发布

本文链接：https://blog.youkuaiyun.com/weixin_39455973/article/details/85947973

版权

VB.NET实现给图片添加文字水印

通过vb.net给选定的图片添加文字水印，添加的文字从文本文档中获取，可以一次给相同的图片添加不同的文字水印，并以添加的文字命名图片；

Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class 给图片添加文字水印
    Dim MyImage As Image
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "图像文件(JPeg,Gif,Bmp,etc.)|*.jpg;*.jpeg;*.gif; *.bmp; *.png| JPeg 文件 (*.jpg;*.jpeg)|*.jpg;*.jpeg |GIF 文件 (*.gif)|*.gif |BMP 文件 (*.bmp)|*.bmp|Png 文件 (*.png)| *.png |所有文件(*.*)|*.*"
        If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
            Label1.Text = OpenFileDialog1.FileName
            PictureBox1.Image = Image.FromFile(Label1.Text)
        End If
    End Sub
    
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
            Label2.Text &#