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