Visual Basic 2005 - 如何将色彩字符串转换成 Color 结构

之前有 读 者 询问 ，如何 将 字符串 转换 成色彩， 当时 我 们 建 议 可以利用 ColorDialog 来让 用 户选 取 颜 色。不 过这样 做的缺点，就是 难 以限制用 户 只能 选 取特定的色彩。其 实 ，要 将 代表色彩的字符串 转换 成 Color 结构 ，只需使用 Color.FromName 方法即可。

上 图 是我 们 所撰 写 的程序， 它会 利用用 户从 ComboBox 中所 选 取的色彩字符串 来绘 制文字。重点就在于使用 Color.FromName 方法 将 色彩字符串 转换 成 Color 结构 。 兹将 程序代 码 完整列示如下：  

 

Option Strict On
Imports System.Drawing.Drawing2D

Public Class Form1
  Private Sub Form1_Load( ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase .Load
    Me .ComboBox1.Items.Add( "Red" )
    Me .ComboBox1.Items.Add( "Black" )
    Me .ComboBox1.Items.Add( "Yellow" )
    Me .ComboBox1.Items.Add( "Tomato" )
    Me .ComboBox1.Items.Add( "SandyBrown" )
    Me .ComboBox1.Items.Add( "PowderBlue" )
  End Sub

  Private Sub btnBrushText_Click( ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnBrushText.Click

    Dim textSize As SizeF
    Dim g As Graphics
    Dim myBrush As Brush
    Dim myFont As New Font( "Times New Roman" , 50, FontStyle.Regular)

    ' 根据 PictureBox 控件建立一 个 Graphics 对 象 并清 除其 内 容。
    g = PictureBox1.CreateGraphics()
    g.Clear(Color.White)

    ' 取得用 来绘 制文字的所需大小。
    textSize = g.MeasureString(TextBox1.Text, myFont)

    ' 将 用 户 所 选 取之色彩字符串 转换 成 Color 结构 。
     Dim myBrushColor As Color = _
        Color.FromName( Me .ComboBox1.SelectedItem.ToString)

    myBrush = New SolidBrush(myBrushColor)

    ' 绘 制文字。
    g.DrawString(TextBox1.Text, myFont, myBrush, _
            (PictureBox1.Width - textSize.Width) / 2, _
            (PictureBox1.Height - textSize.Height) / 2)
  End Sub
End Class

 

 

章立民 研 究室敬上

期待更多精彩，敬 请关 注：

[url]http://www.china-pub.com/static/jsj_zlm_060824.html[/url]

 

本文出自 “章立民” 博客，转载请与作者联系！