DSAPI多功能组件编程应用-图形图像篇(上)

[DSAPI.DLL下载地址]

  自本节开始,将重点介绍DSAPI里强大的图形图像功能,该DLL中几乎所有的代码都是本人亲自完成,所有集成的图形图像处理功能均为本人编写,均通过无数次试验,非网上复制来的代码.

彩色文字对象

基于一些特殊需求,本人开发了彩色文字对象,该功能通过类似html代码的方式指示文本,并输出图像.

我们还是先来看一张图像.

这货不是文本,是通过指定文本代码输出的图像.我们来看一下实现代码.

 Dim DSL As New DSAPI.图形图像.彩色文字图像        With DSL            .画布尺寸 = Me.Size '告诉彩色文字引擎最宽能画到多少            .绘制描边 = True            .绘制阴影 = True            .描边颜色 = Color.Black            .文字清晰度 = Drawing.Text.TextRenderingHint.AntiAliasGridFit            .文字颜色 = Color.Yellow            .阴影大小 = 5            .阴影浓度 = 30            .阴影偏移量 = New Point(0, 0)            .字符行距 = 3            .字符间距 = 1            .链接下划线颜色 = Color.Red            .字体 = New Font("宋体", 9)            Dim S As String = "你好,我是<color=255,0,255>彩</color><color=0,255,255>色</color><color=0,255,0>文</color><color=0,0,255>字</color>"            S &= vbCrLf & "<color=255,255,255>这是<b>粗体</b>,这是<i>斜体</i>,还有<u>下划线</u>"            S &= vbCrLf & "还能插入<font=微软雅黑>其他字体</font></color>"            S &= vbCrLf & "如果你愿意,还能加入<color=0,255,0><link=http://www.baidu.com>链接</link></color>"            .代码文本 = S            Me.BackgroundImage = .输出图像

是不是让你想到了游戏里的字幕呢?是的,只要效果实现了,你想用在哪里都可以.但同时你也注意到了,里面有链接代码.既然只是图片,这个链接有什么用呢?当然了,图片肯定是要设置给某个控件的,不然哪里显示图片呢?链接是带有坐标信息的,当你的代码中使用到了链接,那么你可以在控件的MouseMove或者MouseDown事件里检测鼠标位置是否是链接,并且是什么链接.

一切属性的设置,都将在获取输出图像时应用.所以,如果你需要获取显示的文本,也就是去除了代码的文本内容,那么你需要先获取输出图像后再输出显示文本.

Me.BackGroundImage=DSL.输出图像Console.WriteLine(DSL.显示文本)

输出结果:

你好,我是彩色文字
这是粗体,这是斜体,还有下划线
还能插入其他字体
如果你愿意,还能加入链接

 Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown        Dim 链接 As DSAPI.图形图像.彩色文字图像.链接 = DSL.获取指定坐标的链接(e.Location)        If 链接 IsNot Nothing Then            '如果鼠标指针位置有链接,则显示链接信息            MsgBox(链接.LinkTarget)        End If    End Sub    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove        Dim 链接 As DSAPI.图形图像.彩色文字图像.链接 = DSL.获取指定坐标的链接(e.Location)        If 链接 IsNot Nothing Then            '如果鼠标指针位置有链接,则为手型            Me.Cursor = Cursors.Hand        Else            '反之为箭头            Me.Cursor = Cursors.Default        End If    End Sub