[分享]彩色Label绘制类
2011年3月份做的，最近因为工作需要，又进行了扩展，支持图片（16*16）。

效果图：


示例代码：

先引用该DLL

VB.NET code

Private DSL As New DSCoolLabel.DSCoolLabel   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        With DSL            '先清空旧的图标集            .ImgList.Clear()            '一个个添加图标到图标集，在后面的字串中的<IMG>将按出现的次序从该图标集读取，如第一个出现的<IMG>将使用ImgList(0)，依此类推，需用户按顺序添加，以免在最终输出效果时出现图标次序错误。            .ImgList.Add(My.Resources.D__8_)            .ImgList.Add(My.Resources.share_icons)            .ImgList.Add(My.Resources.C__29_)            .ImgList.Add(My.Resources.D__8_)            .ImgList.Add(My.Resources.share_icons)            .ImgList.Add(My.Resources.C__43_)            .ImgList.Add(My.Resources.B__6_)            .ImgList.Add(My.Resources.B__40_)            .ImgList.Add(My.Resources.B__9_)            .ImgList.Add(My.Resources.B__39_)            .ImgList.Add(My.Resources.C__20_)            '绘制文字描边，默认黑色            .DrawTextOutLine = True            '行间距            .CharLine = 8            '字符间距            .CharWidth = 0            '文字投影            .DrawShadow = True            '提供给绘制程序最大的绘制区域（如窗体大小）            .TextRect = New Rectangle(0, 0, 373, 400)            '文字描边色            .TextOutLineColor = Color.Black            '包含颜色代码的字串            .Text = "<255,000,000,b><IMG>[上传]<000,255,000,b>某某人<255,255,255>上传了:<255,255,000><IMG>极点五笔7.1.rar  <255,255,255>文件大小:6.3MB <255,000,000,u><IMG>扫描到威胁" & vbCrLf & "<255,000,000,b><IMG>[上传]<000,255,000,b>某某人2<255,255,255>上传了:<255,255,000><IMG>QQ2011 Beta3.exe  <255,255,255>文件大小:<128,128,128>23MB<128,128,128><128,128,128>(2011年11月7日 9：13)"            .Text &= vbCrLf & "<255,000,000,b><IMG>[公告]：<000,255,000,b,u>吴总<000,255,255>:本公司各部门严防秋寒，注意保暖。请勿与他人交换毛巾、牙刷等日常生活用品。本公司服务器将在今日下午3点更新维护更新，维护时间：30分钟。希各大公司领导传达！<128,128,128> (2011年11月7日 9：21)"            .Text &= vbCrLf & "<255,000,000,b><IMG>[发言]<000,255,000,b>成员名称1<255,255,255>说:<255,255,255><IMG>请问谁有杀毒软件，麻烦传一个谢谢。<128,128,128> <128,128,128>(2011年11月7日 10：13)"            .Text &= vbCrLf & "<255,000,000,b><IMG>[发言]<000,255,000,b>成员名称2<255,255,255>说:我有的，<255,255,255><IMG>我现在就上传到我的文件夹，当我上传完毕后可以在这个界面上看到提示。 <128,128,128>(2011年11月7日 10:36)"            .Text &= vbCrLf & "<255,000,000,b><IMG>[索取文件]<000,255,000,b>成员名称3<255,255,255>请求提供文件:<255,255,000,b>卡巴斯基KIS2012安装部队套装<128,128,128> <128,128,128>(2011年11月7日 11:02)"        End With        'OutBitmap获取绘制完成的效果图        Me.Backgroundimage=DSL.OutBitmap        '注：颜色代码必须是RGB每个3位数，即使是0也要是000，如<255,000,000>表示红色        '扩展：        '<255,000,000,b>红色粗体文字        '<255,000,000,u>红色下划线        '<255,000,000,b,u>红色粗体下划线，字母大小写无所谓     End Sub