vb2010设置label字体大小的代码

[wuguiwu]

你好，我使用的是vs2010中的Visual Basic，（项目：windows窗体应用程序）我想通过代码，改变label1字体的大小
该如何写呢？

[bcrun]

看看属性列表中吧，label控件有个Font属性，你在IDE中展开他就能看到那些属性了，个人建议一般情况下设置Pixel型尺寸

[东方之珠]

可以的。不过VB.net真麻烦，Label1.Font.Name和Label1.Font.Size只能取得属性值，不能设置，仅读属性，还是VB6好用。 VB.net要通过实例化对象才能实现，真麻烦：

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.AutoSize = vbTrue
        Dim MyFont As System.Drawing.Font
        Dim MyFontName As String

        MyFontName = "黑体"
        Dim MyFontStyle As FontStyle

        Dim sngSize = 48
        Dim intStyle = True
        Dim bolUnder = True
        Dim bolStrike = True

        Dim intColorR = 20
        Dim intColorG = 20
        Dim intColorB = 20
        If bolUnder Then
            myFontStyle = myFontStyle Or FontStyle.Underline
        End If
        If bolStrike Then
            myFontStyle = myFontStyle Or FontStyle.Strikeout
        End If
        If intStyle Then
            myFontStyle = myFontStyle Or FontStyle.Bold Or FontStyle.Italic
        End If
        Dim myColor As Color
        myColor = Color.FromArgb(RGB(intColorR, intColorG, intColorB))
        'myColor = RGB(intColorR, intColorG, intColorB) 
        Dim myFontFamily As System.Drawing.FontFamily
        myFontFamily = New FontFamily(MyFontName)
        myFont = New System.Drawing.Font(myFontFamily, sngSize, myFontStyle, System.Drawing.GraphicsUnit.Point)
        Label1.Font = myFont
        Label1.ForeColor = myColor

    End Sub
End Class

[bcrun]

同意楼上，我初接触.net时，最感到意外的是，经常把以前要用一两句话能做到改成要用一堆东西实现的，从这个角度看对其普及不表乐观

[c_cyd2008]

引用 2 楼 chenjl1031 的回复:

可以的。不过VB.net真麻烦，Label1.Font.Name和Label1.Font.Size只能取得属性值，不能设置，仅读属性，还是VB6好用。 VB.net要通过实例化对象才能实现，真麻烦： Visual Basic code ? 123456789101112131415161718192021222324252627282930313233343536373……

其实没必要每个参数都重新指定，用原来字体的就行了，这里只改变大小Size + 10

        With Label1.Font
            Label1.Font = New System.Drawing.Font(.FontFamily, .Size + 10, .Style, .Unit)
        End With

[wuguiwu]

谢谢，问题解决了