以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文字局部变小  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184849)

--  作者:yifan3429
--  发布时间:2023/1/9 21:28:00
--  文字局部变小
Forms("主窗_顶窗").StopRedraw() \'准备开始绘制界面控件    
    Forms("主窗_顶窗").panel.parent.parent.Height = 72 \'设定窗口高度.
    Dim Label As WinForm.Label \'设定第一个标签
    Label = Forms("主窗_顶窗").CreateControl("窗口标题", ControlTypeEnum.Label) \'作为主标题显示
    
    Label.Left = 10 \'设定左边边距
    Label.Top = 25 \'设定顶部边距
    Label.Width = 245 \'设定控件的宽度
    Label.Height = 30 \'设定控件的高度
    Label.Text = "全案定制家居运营管理系统" \'设定显示的字符
    Label.Font = New Font("黑体", 18, FontStyle.Bold) \' 设定字体的颜色,字号,加粗等特性
    Label.ForeColor = Color.Indigo
    If Label.Text.Contains("管理系统") Then
        Label.Font = New Font("黑体", 12, FontStyle.Bold) \' 设定字体的颜色,字号,加粗等特性
        Label.ForeColor = Color.Indigo
    End If

希望管理系统这几个字变成12大小的字体

--  作者:有点蓝
--  发布时间:2023/1/9 21:31:00
--  
只能整个标签的字体一起设置,无法设置其中几个文字。考虑分开为几个标签使用