当前位置:编程学习 > VB >>

关于label的字体大小自动调整.

程序需要用到自动加载LABEL,加载的LABEL有大有小.里面的字体一般只是按设定的大小.这样程序就很不美观. 

有什么方法可以让程序的LABEL宽度和高度发生变化里自动调整LABEl里面字体的大小呢.有做过的提提思路也可 --------------------编程问答-------------------- 换一个思路不知可否?改变字体的大小来改变Label的大小。

'创建一个工程,再添加一个Label控件:lblP;添加一个按钮控件数组(含有三个按钮):btnFontSize

Option Explicit
'更改字体的大小
Private Sub btnFontSize_Click(Index As Integer)
    Select Case Index
        Case 0  '设置字体大小为:30
            lblP.Font.Size = 30
        Case 1  '设置字体大小为:20
            lblP.Font.Size = 20
        Case 2  '设置字体大小为:10
            lblP.Font.Size = 10
    End Select
End Sub

Private Sub Form_Load()
    lblP.Caption = "中华人民共和国"
    lblP.AutoSize = True
    lblP.Appearance = 0
    lblP.BorderStyle = 1
End Sub

--------------------编程问答--------------------  不错啊 --------------------编程问答-------------------- 不是要求的
引用 1 楼 veron_04 的回复:
换一个思路不知可否?改变字体的大小来改变Label的大小。

VB code

'创建一个工程,再添加一个Label控件:lblP;添加一个按钮控件数组(含有三个按钮):btnFontSize

Option Explicit
'更改字体的大小
Private Sub btnFontSize_Click(Index As Integer)
    Select Case Inde……
--------------------编程问答-------------------- 你这个要求不易实现,首先Label没有这个事件。
可以考虑使用其他控件实现 --------------------编程问答-------------------- 继续跟踪。。。等待。。。。 --------------------编程问答--------------------
引用 4 楼 veron_04 的回复:
你这个要求不易实现,首先Label没有这个事件。
可以考虑使用其他控件实现


为什么要有事件,加载的时候直接根据大小调整就是了 --------------------编程问答-------------------- TextWidth 方法
      

用以返回按 Form,PictureBox 或 Printer 的当前字体被打印的文本字符串的宽度。不支持命名参数。

语法

object.TextWidth(string)

TextWidth 方法的语法包含下列部分:

部分 描述 
object 可选的。一个对象表达式,其值为“应用于”列表中的一个对象。如果省略 object,则带有焦点的 Form 对象缺省为 object。 
String 必需的。一个字符串表达式,它用以计算确定其宽度的字符串。必须用括号包括该字符串表达式。 


说明

字符串宽度是以对 object 有效的 ScaleMode 属性设置或通过 Scale 方法的坐标系统来表示的。使用 TextWidth 可以确定文本显示需要的水平空间宽度。如果 string 含有嵌入的回车返回符,TextWidth 将返回最长行的宽度。

TextHeight 方法
      

用以返回按 Form、PictureBox 或 Printer 的当前字体将被打印的文本字符串的高度。不支持命名参数。

语法

object.TextHeight(string)

TextHeight 方法的语法包含下列部分:

部分 描述 
object 可选的。一个对象表达式,其值为“应用于”列表中的一个对象。如果省略 object,则带有焦点的 Form 对象缺省为 object。 
String 必需的。一个字符串表达式,它用以计算确定其高度的字符串。必须用括号包括该字符串表达式。 


说明

字符串高度是以对 object 有效的 ScaleMode 属性设置或通过 Scale 方法的坐标系统来表示的。使用 TextHeight 可以确定文本显示需要的垂直空间高度。返回的高度包括文本上下的正常前导空间,因此,可以使用该高度来计算和定位 object 内的多行文本。

如果 string 含有嵌入的回车返回符,TextHeight 将返回各行的累加高度,包括每行上下的前导空间。
--------------------编程问答-------------------- 7楼的解释应该够详细的 --------------------编程问答-------------------- 能否详细点 --------------------编程问答-------------------- 楼上大神

学习了 --------------------编程问答-------------------- 不太明白。求详细解释 --------------------编程问答--------------------
引用 11 楼 ootiancai 的回复:
不太明白。求详细解释
+1
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,