vb.net 教程 5-16 图像处理例子 1 半透明的文字水印
发布时间:2020-12-16 23:53:31 所属栏目:大数据 来源:网络整理
导读:之前的教程中曾使用Graphics.DrawString绘制文字,这个示例来说明如何绘制一个透明的文字水
之前的教程中曾使用Graphics.DrawString绘制文字,这个示例来说明如何绘制一个透明的文字水印。
设计界面:
其中,一个HScrollBar控件用于控制透明度,取值范围为0-255
当调整HScrollBar时,在label上显示实际的值:
Private Sub HScrollBar1_Scroll(sender As Object,e As ScrollEventArgs) Handles HScrollBar1.Scroll Label2.Text = HScrollBar1.Value.ToString End Sub
按下button1时,在右边的图片框内显示绘制水印后的图片:
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click Dim logoOpacity As Integer = HScrollBar1.Value Dim logoText As String = TextBox1.Text Dim logoFont As New Font(New FontFamily("隶书"),40,FontStyle.Bold) Dim logoBrush As New SolidBrush(Color.FromArgb(logoOpacity,255,255)) Dim logoLeft As Integer = 10 Dim logoTop As Integer = 10 Dim imgDest As Bitmap = PictureBox1.Image.Clone Dim g As Graphics = Graphics.FromImage(imgDest) g.DrawString(logoText,logoFont,logoBrush,logoLeft,logoTop) g.Dispose() PictureBox3.Image = imgDest End Sub
运行效果:
下面对代码稍作分析: 1、Dim imgDest As Bitmap = PictureBox1.Image.Clone 为什么要用Clone,大家可以修改为 Dim imgDest As Bitmap = PictureBox1.Image ,当绘制水印完毕后,最小化程序窗口,再恢复窗口看一下。 2、透明度是由drawstring中颜色参数来控制的: 由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。 学习更多vb.net知识,请参看vb.net 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |