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