VB中如何设置调整label的字体、大小和颜色？

可以参考下面的代码：

Private Sub Form_Load()

Label1.Font = "楷体" '字体改为楷体

Label1.FontSize = 50 '字体大小

Label1.ForeColor = vbRed '字体颜色改为红色

Label1.AutoSize = True 'label随文字内容自动改变大小

End Sub

扩展资料：

VB参考函数

Date 函数： 返回当前系统日期。

DateAdd 函数： 返回加上了指定的时间间隔的日期。

DateSerial 函数： 返回指定年月日的日期子类型的变体 。

DateValue 函数： 返回日期子类型的变体 。

Day 函数： 返回日期，取值范围为 1 至 31。

Description 属性： 返回或者设置说明某个错误的字符串。

参考资料来源：百度百科-Visual Basic

1、从工具栏中添加一个Label控件。

2、选择添加的Label控件，右键点击选中属性（快捷键F4）。

3、在属性面板中找到ForeColor，更改为您需要的颜色即可改变字体颜色了。

实际的应用中，可以用WM_CTLCOLOR 消息改变mfc中控件的颜色，比如现在就来改变一个static text控件的

字体、字体大小、字体颜色和背景色。

例如对话框的类为CTestDlg.

1. 在对话框的类中添加两个变量.

方法：在classview选项卡中，选择CTestDlg，右键，add member variable.

CBrush m_brush

CFont m_font

在OnInitDialog()函数中添加：

// TODO: ……

m_font.CreatePointFont(150,"华文行楷")//代表15号字体，华文行楷

m_brush.CreateSolidBrush(RGB(0,255,0))//画刷为绿色

2 添加WM_CTLCOLOR 消息响应，添加的方法为：

add windows message handler->WM_CTLCOLOR->add and edit

3 在HBRUSH CTestDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor) 函数中的todo后添加代码，即：

，

HBRUSH CYourDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)

{

HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor)

// TODO: Change any attributes of the DC here

if (pWnd->GetDlgCtrlID() == IDC_STATICText)

{

pDC->SetBkColor(RGB(0,255,0))//背景色为绿色

pDC->SetTextColor(RGB(255, 0, 0))//文字为红色

pDC->SelectObject(&m_font)//文字为15号字体，华文行楷

return m_brush

}

// TODO: Return a different brush if the default is not desired

return hbr

}

这样就可以改变static text的背景色、字体、字体大小和字体颜色了。

---