以文本方式查看主题 -  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 --   只能整个标签的字体一起设置，无法设置其中几个文字。考虑分开为几个标签使用