- [C#] Hướng dẫn fix lỗi Visual Studio 2022 not Support Target Net Framework 4.5.2
- [C#] Giới thiệu thư viện Sunny UI thiết kế giao diện trên Winform
- [DATABASE] Hướng dẫn thêm và cập nhật Extended Property Column trong Table Sqlserver
- [DEVEXPRESS] Hướng dẫn sử dụng Vertical Gridview để hiển thị thông tin sản phẩm
- [C#] Hướng dẫn sử dụng Json Schema để Validate chuỗi string có phải json
- [C#] Hướng dẫn sử dụng công cụ Clean Code trên Visual Studio
- [C#] Hướng dẫn Drag and Drop File vào RichTextBox
- [C#] Hướng dẫn tạo hiệu ứng Karaoke Text Effect Winform
- [C#] Sử dụng thư viện ZedGraph vẽ biểu đồ Line, Bar, Pie trên Winform
- [DATABASE] Hướng dẫn sort sắp xếp địa chỉ IP trên sqlserver sử dụng hàm PARSENAME
- [C#] Theo dõi sử kiện process Start hay Stop trên Winform
- [ASP.NET] Chia sẻ source code chụp hình sử dụng camera trên website
- [C#] Chạy ứng dụng trên Virtual Desktop (màn hình ảo) Winform
- [C#] Mã hóa và giải mã Data Protection API trên winform
- [C#] Hướng dẫn tạo Gradient Background trên Winform
- [DATABASE] Hướng dẫn convert Epoch to DateTime trong sqlserver
- [DATABASE] Hướng dẫn sử dụng STRING_AGG và CONCAT_WS trong sqlserver 2017
- [C#] Hướng dẫn Copy With All Property in Class Object
- [DEVEXPRESS] Hướng dẫn load Json DataSource vào GridView
- [C#] Hướng dẫn tạo chữ ký trên winform Signature Pad
Viết chương trình thêm text vào hình ảnh (WaterMark Image use VB.NET)
Hôm nay, mình xin hướng dẫn các bạn cách tạo watermark vào image, nhiều lúc các bạn cần add watermark hàng loạt vào tất cả các tấm hình thì các bạn có thể sử thuật toán này để import watermark vào nhé.
Watermark là gì ?
Được hiểu là khi bạn cung cấp hình ảnh, file văn bản cho người dùng nhưng bạn không muốn người dùng sử dụng hình ảnh bằng cách bạn đóng mờ hình ảnh đó. Và người ta gọi nó là Watermark.
Watermark chủ yếu nhằm tránh sao lưu hình ảnh, file để bảo vệ bản quyền khi bạn sử dụng hình ảnh đó. Ngoài ra việc này là cách để bạn PR quảng bá hình ảnh thương hiệu của bác với người tiêu dùng.
Chương trình dưới đây được sử dụng code vb.net, có giao diện như video bên dưới:
+ Thuật toán tạo watermask sử dụng trong bài này là :
1. Tạo 1 user control lblcustom
2. imports image vào picturebox.
3. Add user control lblcustom to Picturebox
4. Dùng các lệnh xử lý hình ảnh để lưu file ảnh lại.
Source code:
Dim mylbl(100) As lblcustom
Dim lblcount As Integer = -1
Dim waiting As Boolean
+ Sự kiện click vào chọn font:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
FontDialog1.ShowDialog()
End Sub
+ Sự kiện click vào chọn color:
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ColorDialog1.ShowDialog()
End Sub
+ Sự kiện mở file hình:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
PictureBox1.ImageLocation = OpenFileDialog1.FileName
End Sub
+ sự kiện khi click vào nút nhập text
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
lblcount += 1
mylbl(lblcount) = New lblcustom
With mylbl(lblcount)
.Parent = PictureBox1
.AutoSize = True
.Hide()
End With
With mylbl(lblcount).Label1
.Name = "#" & lblcount
.Text = InputBox("Nhập watermask text", "Label Text")
.Font = FontDialog1.Font
.ForeColor = ColorDialog1.Color
End With
stats("Click to Set")
waiting = True
End Sub
- Khai báo một sub stat
Sub stats(v1 As String)
statslbl.Text = v1
End Sub
- Sự kiện click vào picturebox để add watermark
Private Sub PictureBox1_Click(sender As Object, e As MouseEventArgs) Handles PictureBox1.Click
If waiting Then
With mylbl(lblcount)
.Location = e.Location
.BringToFront()
.Show()
End With
waiting = False
End If
stats("")
End Sub
- Cuối cùng là lưu lại file hình đã chỉnh sửa:
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim round As Integer
For Each v1 As lblcustom In mylbl
If v1 Is Nothing Then
Else
round += 1
End If
Next
Dim gettext(round - 1) As String, getpoint(round - 1) As Point, getfont(round - 1) As Font, getcolor(round - 1) As Color
' reset round
round = 0
For Each v1 As lblcustom In mylbl
If v1 Is Nothing Then
Else
gettext(round) = v1.Label1.Text
getpoint(round) = v1.Location
getfont(round) = v1.Label1.Font
getcolor(round) = v1.Label1.ForeColor
End If
Next
' save image
texttoimage.writer(PictureBox1.Image, gettext, getpoint, getfont, getcolor, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "laptrinhvb.jpg", Imaging.ImageFormat.Jpeg)
End Sub
Chúc các bạn thành công. Hãy Like and Share