以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何设定标签控件 显示的字符宽度等于当前窗体宽度？不管字体内容多少 都全部铺满显示 自动扩展字符间距  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176752)
--  作者：cnsjroom
--  发布时间：2022/4/25 17:13:00
--  如何设定标签控件 显示的字符宽度等于当前窗体宽度？不管字体内容多少 都全部铺满显示 自动扩展字符间距

    Dim lbl As WinForm.Label = e.Form.Controls("Label1")
    lbl.text=vars("会议主题")
    If e.Form.Width > lbl.Width OrElse e.Form.Height > lbl.Height Then
        lbl.Left = (e.Form.Width - lbl.Width ) / 2
        \'lbl.Top = (e.Form.Height - lbl.Height ) / 2
    End If

 

 

上述代码可以实现文本显示的内容  在当前窗体中居中显示

 

怎么实现文本显示的内容 在当前窗体中铺满显示呢？不管字体内容多少  都全部铺满显示  自动扩展字符间距
--  作者：有点蓝
--  发布时间：2022/4/25 17:21:00
--  
无法自动扩展字符间距