作者:乔山办公网日期:
返回目录:excel表格制作
可以对文来本框源3,进行单独设百置,比如:度
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox3.Text) <> 3 Then
TextBox3.Text = Application.Rept("0", 3 - Len(TextBox3.Text)) & TextBox3.Text
End If
End Sub
窗体控件中的下拉框(列表框)不能更改字体与字号,您可以选择“控件工具箱”中的列表框,在它的右键菜单“属性”中可以通过font属性设置字体与字号大小。
视图--工具栏--控件工具箱
修改控件知的font属性即可 ,代码可以这样写(道以按钮为例):
CommandButton1.Font.Size = 20
CommandButton1.Font.Name = "宋体"
--------------------------------------
我这里也可以啊,加我百内度HI来说吧或者QQ也可以我容的QQ在我百度空间里有
CheckBox1.Font.Size = 20
OptionButton1.Font.Size = 20