189 8069 5689
可以利用font 设置。设置方法如下：
创新互联主要从事成都网站设计、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务临夏州,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
TextBox1.Font = New System.Drawing.Font("宋体", 10)
也可以通过字体对话框来实现 如：
Private Sub myButton_Click(sender As Object, e As EventArgs)
Dim myFontDialog As FontDialog
myFontDialog = New FontDialog()
If myFontDialog.ShowDialog() = DialogResult.OK Then
' Set the control's font.
myDateTimePicker.Font = myFontDialog.Font
End If
End Sub
您好。修改FORM的Font属性就可以修改窗体和其中所有控件的字体。
Me.Font = New System.Drawing.Font("宋体", 10)
另外，FORM标题栏的TEXT字体和颜色是操作系统决定的，要想改变，只能调用系统的api函数，截获操作系统的消息来改变。
下面的网址有C#版本的重绘标题栏范例
软糖的回答满意吗，请及时采纳，谢谢。
能
我们写exe程序时，默认字体是宋体，比较难看，指定了其他字体，但是其他用户上没有你指定的这个字体的话，也会变成默认的宋体。解决的办法有这么几个：
1，叫用户安装相应字体，这个基本不可能实现，因为没有几个人会进行这样的操作；
2，给用户安装相应字体，这个办法可行，在制作安装包时将字体打包进去，然后用户安装程序的时候连字体也一并安装上去，一劳永逸；
3，把字体导入到程序资源中，让程序直接调用字体资源，缺点是导致程序体积巨大；
4，将字体文件放到程序目录里，在程序里单独调用。
个人觉得第4种办法比较方便，所以决定采用这种方法，把代码写出来给需要的同学。
引用：
Imports System.Drawing.Text
public sub Setfont()
dim AppPath as string = Application.StartupPath
try
dim font1 as PrivateFontCollection = new PrivateFontCollection()
font1.AddFontFile(AppPath + "\font\msyh.ttf") '字体的路径及名字
dim myFont as Font = new Font(font.Families[0].Name, 9,FontStyle.Regular,GraphicsUnit.Point, 134)
'设置窗体控件字体，哪些控件要更改都写到下面
label1.Font = myFont
label2.Font = myFont
label3.Font = myFont
button1.Font = myFont
button2.Font = myFont
button3.Font = myFont
button4.Font = myFont
button5.Font = myFont
catch e as exception
MessageBox.Show("字体不存在或加载失败\n程序将以默认字体显示", "警告",
MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
end try
然后在public sub Form1()
InitializeComponent()
Setfont() '启动字体设置函数
end sub
看样要重新定义个Font对象，在构造函数中定义它的大小，
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。
End With
可以使用GetItemText
方法：返回指定项的文本表示形式。使用形式如下：
GetItemText(item)
该参数枚举值，采用位运算，那么可以用Or把两者连接起来即可；
New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)