彩色Label(新)

dylike 2011-11-24 02:36:09

2011年3月份做的，最近因为工作需要，又进行了扩展，支持图片（16*16）。

效果图：

示例代码：

先引用该DLL

Private DSL As New DSCoolLabel.DSCoolLabel



'定义一个图像列表

Dim ImgList As New List(Of Bitmap)



   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