Foxtable(狐表)用户栏目专家坐堂 → 文字局部变小


  共有5254人关注过本帖树形打印复制链接

主题:文字局部变小

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
文字局部变小  发帖心情 Post By: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大小的字体

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/9 21:31:00 [只看该作者]

只能整个标签的字体一起设置,无法设置其中几个文字。考虑分开为几个标签使用

 回到顶部