DS控件库 DS标签的另类用法之折叠展开

某些场合下，能够经过动态设置DS标签的文本内容来输出不一样的显示效果，如下是示例。

 

示例中的素材

 

 

示例资源文本

String1="<linkimg=E1><b><link=1>是否能够将 Windows 副本安装到多台电脑上？</link></b>
不能将 Windows 安装到超过 Microsoft 软件许可条款所容许数量的电脑上。一般需遵循如下规则：一台电脑上只能安装一个 Windows 副本。有关在多台电脑上许可 Windows 的详细信息，请转到 <link=2>Microsoft 批量许可</link>网站。

若是个人电脑运行的是非正版 Windows，是否仍能接收关键安全更新？"

String2="<linkimg=E0><b><link=1>是否能够将 Windows 副本安装到多台电脑上？</link></b>"

String3="<linkimg=E1><b><link=1>什么是验证？</link></b>
验证是一个联机过程，用于验证你的 Windows 副本是否为正版，以及关键的 Windows 许可文件是否已损坏、删除或移除。验证只需不多时间，Microsoft 在此过程当中在电脑的硬件配置文件与 25 个字符的产品密钥或数字受权之间建立匹配。
 
可能须要先对你的 Windows 副本进行验证，而后才能从 Microsoft 获取下载和某些更新，这些内容专为运行正版 Windows 的电脑保留。若是未正确完成激活，则 Windows 可能也会提示你运行正版验证过程。
 
若是你的 Windows 副本未经过验证，验证结果页将详细介绍 Windows 不是正版的缘由，并提供有关如何解决该问题的信息。"

String4="<linkimg=E0><b><link=1>什么是验证？</link></b>"

　　

  Private Sub DS标签1_点击连接(Lk As DSControls.图形图像.彩色文字图像.连接) Handles DS标签1.点击连接
        If DS标签1.Text.Contains("正版") Then
            DS标签1.Text = My.Resources.String2
        Else
            DS标签1.Text = My.Resources.String1
        End If
    End Sub

    Private Sub DS标签1_点击图像连接(Lk As DSControls.图形图像.彩色文字图像.图像连接) Handles DS标签1.点击图像连接, DS标签2.点击图像连接
        If DS标签1.Text.Contains("正版") Then
            DS标签1.Text = My.Resources.String2
        Else
            DS标签1.Text = My.Resources.String1
        End If
    End Sub

    Private Sub DS标签1_请求图像(ImgCode As String, ByRef 返回图像 As Bitmap) Handles DS标签1.请求图像, DS标签2.请求图像
        返回图像 = CType(My.Resources.ResourceManager.GetObject(ImgCode), Bitmap).Clone
    End Sub

    Private Sub DS标签2_点击连接(Lk As DSControls.图形图像.彩色文字图像.连接) Handles DS标签2.点击连接
        If DS标签2.Text.Contains("副本") Then
            DS标签2.Text = My.Resources.String4
        Else
            DS标签2.Text = My.Resources.String3
        End If
    End Sub