none
vb.net2005文本生成图片问题(图片高度、背景透明) RRS feed

  • 问题

  • 这几天在编写一个小软件,把文本生成图片,现在有几个问题需要大家帮忙看一下:

    一、文本框输入的文字有多有少,可能有汉字有英文,宽度固定的情况下,已选定了字体和大小,如何计算出生成的图片的高度应该是多少呢?

    二、如果设置保存的格式是gif或png,如何使图片背景透明?

      Public Function CreateImage(ByVal Name As String, ByVal width As Integer, ByVal filePath As String)
        CreateImage = Nothing
    
        Dim high As Integer
        high = 300
    
        Dim font As Font
        font = New Font(cob_fontname.SelectedItem.ToString, 11, FontStyle.Italic And FontStyle.Bold And FontStyle.Underline)
        '//绘笔颜色
    
        Dim brush As SolidBrush
        brush = New SolidBrush(Color.Black)
    
        Dim image As Bitmap
        image = New Bitmap(width, high)
        Dim g As Graphics
        g = Graphics.FromImage(image)
        g.Clear(ColorTranslator.FromHtml("#f0f0f0"))
        Dim rect As RectangleF
        rect = New RectangleF(5, 5, width, high)
    
    
        '//绘制图片
        g.DrawString(Name, font, brush, rect)
    
        '//保存图片
        image.Save(filePath, ImageFormat.Gif)
    
        '//释放对象
        g.Dispose()
        image.Dispose()
    
      End Function
    
    


    下面是主要的生成图片的代码,还请大家帮忙,网上找了好多资料都没有合适的。

    另外还请大家帮看一下,怎么这句没有文字效果呢?是哪儿没有写对:font = New Font(cob_fontname.SelectedItem.ToString, 11, FontStyle.Italic And FontStyle.Bold And FontStyle.Underline)

    感谢大家的帮助。

    2011年6月30日 13:23

答案

全部回复