VB 窗口中label text等控件的字体改变大小

VB 窗口中label text等控件的字体改变大小,第1张

使用for each 遍历窗体所有控件,如果是label 或 text 控件则改变其字体,或颜色。以下代码vs2008下通过测试。eg'---------------------------------------------------'窗体:Form1'2个label : label1,label2'2个Textbox: textbox1,textbox2'1个button : button1'-----------------------------------------------------------Public Class Form1'按钮单击时间 Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click
Dim ob As Control
Dim obtype As String
For Each ob In MeControls
obtype = obGetType()ToString()
If obtype = "SystemWindowsFormsTextBox" Or obtype = "SystemWindowsFormsLabel" Then
obForeColor = ColorBlue ‘字体颜色
obFont = New SystemDrawingFont("宋体", 205F, FontStyleUnderline) ’字体
End If
Next
End Sub
End Class

我觉得你是不是想让多出来的文字也隐藏啊?那样的话,需要设置AUTOSIZE为FALSE,这样才能达到无论多少字,都能变成原来的大小的一半。如果要适合字长度的话,那么,改变为TRUE,但是,那样的话,无论你怎么写,都不会变成原来的一半的

VB程序设计可通过对标签控件的FontSize 属性设置改变显示文本所用字体的大小。

FontSize 属性,返回或设置在控件中或在运行时画图或打印 *** 作中,显示文本所用的字体的大小。

语法

objectFontSize [= points]

FontSize 属性语法包含下面部分:

部分        描述  

object    
对象表达式,其值是“应用于”列表中的一个对象。  

points    
数值表达式,用磅为单位指定所用字体的大小。  

代码示例:

Option Explicit
    Dim flag As Boolean
Private Sub Form_Click()
    If flag Then
        Label1FontSize = 24
    Else
        Label1FontSize = 8
    End If
    flag = Not flag
End Sub
Private Sub Form_Load()
    flag = True
End Sub


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/13357678.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-07-21
下一篇 2023-07-21

发表评论

登录后才能评论

评论列表(0条)

保存