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

某些场合下,可以通过动态设置DS标签的文本内容来输出不同的显示效果,以下是示例。

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

示例中的素材

DS控件库 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

  

上一篇:Pycharm 常用快捷键-Windows版


下一篇:【转载】pycharm常用快捷键