| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 图形编程 >> 实例分析正文
最新推荐 更多内容
VB.Net图像文件添加透明文字的实例
VB.Net图像文件添加透明文字的实例
作者:ilu    来源:乐博网整理     更新时间:2009-8-24

乐博网lob.cn提示:此代码运行环境为vb.net2008

VB.Net图像文件添加透明文字的代码如下:

Public Class Form1
    '浏览图像文件
    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        Me.openFileDialog1.Filter = "图像文件(JPeg,Gif,Bmp,etc.)|*.jpg;*.jpeg;*.gif; *.bmp; *.tif; *.tiff; *.png| JPeg 文件 (*.jpg;*.jpeg)|*.jpg;*.jpeg |GIF 文件 (*.gif)|*.gif |BMP 文件 (*.bmp)|*.bmp|Tiff 文件 (*.tif;*.tiff)|*.tif;*.tiff|Png 文件 (*.png)| *.png |所有文件(*.*)|*.*"
        If (Me.openFileDialog1.ShowDialog() = DialogResult.OK) Then
            Me.textBox1.Text = Me.openFileDialog1.FileName
            Me.pictureBox1.Image = Image.FromFile(Me.textBox1.Text)
        End If
    End Sub
    '添加透明文字
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Dim MyImage = Image.FromFile(Me.textBox1.Text)
        Dim g = Graphics.FromImage(MyImage)
        Dim MyText = Me.textBox2.Text
        Dim MyFont = New Font("宋体", 150)
        Dim MyBrush As New SolidBrush(Color.FromArgb(128, 0, 255, 0))
        g.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.GammaCorrected
        g.DrawString(MyText, MyFont, MyBrush, 10, 10)
        Me.pictureBox1.Image = MyImage
    End Sub
End Class

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    VB.Net显示Tree图像的实例
    VB.Net显示Forest图像的实例
    VB.Net创建自绘式按钮的实例
    VB.Net制表的实例
    VB.Net图像文件中装入图像的实例
    VB.Net图像文件旋转变换的实例
    VB.Net图像文件剪切变换的实例
    VB.Net图像文件缩放变换的实例
    VB.Net图像文件平移变换的实例
    VB.Net图像文件单色变换的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]