看樣要重新定義個(gè)Font對(duì)象,在構(gòu)造函數(shù)中定義它的大小,
專業(yè)成都網(wǎng)站建設(shè)公司,做排名好的好網(wǎng)站,排在同行前面,為您帶來(lái)客戶和效益!創(chuàng)新互聯(lián)建站為您提供成都網(wǎng)站建設(shè),五站合一網(wǎng)站設(shè)計(jì)制作,服務(wù)好的網(wǎng)站設(shè)計(jì)公司,成都網(wǎng)站制作、成都做網(wǎng)站負(fù)責(zé)任的成都網(wǎng)站制作公司!
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '參數(shù)都用原來(lái)字體參數(shù),只有大小改成你需要的。
End With
可以利用font 設(shè)置。設(shè)置方法如下:
TextBox1.Font = New System.Drawing.Font("宋體", 10)
也可以通過字體對(duì)話框來(lái)實(shí)現(xiàn) 如:
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
1、首先,我們打開VB軟件,點(diǎn)擊菜單欄中的工具按鈕。
2、然后我們點(diǎn)擊二級(jí)菜單的選項(xiàng)。
3、此時(shí),我們便可以看到選項(xiàng)頁(yè)面。
4、接下來(lái)我們點(diǎn)擊編輯器格式。
5、接下來(lái)我們就可以在這里設(shè)置字體大小。
6、最后,我們點(diǎn)擊確定按鈕即可保存保存更改。
這是因?yàn)槟愕某绦虻膯栴}。你可以仔細(xì)看一下,F(xiàn)ont是一個(gè)Interface,它怎么可以被實(shí)例化呢??另外,個(gè)人認(rèn)為如果在一種方法上實(shí)現(xiàn)不了的話,那就換一種方式,因?yàn)镕ont是一個(gè)Interface,所以在它中間定義了很多的屬性,那就可以把你想誰(shuí)知的屬性一個(gè)個(gè)的點(diǎn)出來(lái)啊,
比如:
excelSheet.Label1.Font.Name="XXX"
excelSheet.Label1.Underline = True
等等,你可以自己嘗試嘛,不要怕報(bào)錯(cuò),只有錯(cuò)了才會(huì)學(xué)到東西,個(gè)人感想。