看樣要重新定義個(gè)Font對象,在構(gòu)造函數(shù)中定義它的大小,

“只有客戶發(fā)展了,才有我們的生存與發(fā)展!”這是成都創(chuàng)新互聯(lián)公司的服務(wù)宗旨!把網(wǎng)站當(dāng)作互聯(lián)網(wǎng)產(chǎn)品,產(chǎn)品思維更注重全局思維、需求分析和迭代思維,在網(wǎng)站建設(shè)中就是為了建設(shè)一個(gè)不僅審美在線,而且實(shí)用性極高的網(wǎng)站。創(chuàng)新互聯(lián)對網(wǎng)站設(shè)計(jì)制作、網(wǎng)站制作、網(wǎng)站制作、網(wǎng)站開發(fā)、網(wǎng)頁設(shè)計(jì)、網(wǎng)站優(yōu)化、網(wǎng)絡(luò)推廣、探索永無止境。
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '參數(shù)都用原來字體參數(shù),只有大小改成你需要的。
End With
vb單擊按鈕文字變大右移的實(shí)現(xiàn)代碼如下:
Option Explicit
Dim fnFlag As Boolean
Private Sub Command1_Click()
If fnFlag Then
Text1.FontSize = 12
Else
Text1.FontSize = 15
End If
fnFlag = Not fnFlag
End Sub
Private Sub Form_Load()
Text1.FontSize = 12
End Sub
Boolean 變量存儲為 16 位(2 個(gè)字節(jié))的數(shù)值形式,但只能是 True 或是 False。Boolean 變量的值顯示為 True 或 False(在使用 Print 的候),或者#TRUE# 或 #FALSE#(在使用 Write # 的時(shí)候)。使用關(guān)鍵字 True 與 False 可將 Boolean 變量賦值為這兩個(gè)狀態(tài)中的一個(gè)。
修改VB代碼的字體、大小、以及顏色可以參考下面的代碼:
PrivateSubForm_Load
Label1。字體="常規(guī)";將字體改為常規(guī)字體
Label1。字形大小=50”字形大小
改變字體顏色DAO為紅色為前樓=vbRed'
Label1。標(biāo)簽自動(dòng)改變大小與文本內(nèi)容
EndSub
擴(kuò)展資料:
vb參考函數(shù)
Do...Loop語句:當(dāng)條件為True或者當(dāng)條件變?yōu)門rue時(shí),重復(fù)一語句塊。
Empty:表示未初始化的變量的值。
Eqv運(yùn)算符: 使兩個(gè)表達(dá)式相等。
Erase語句:重新初始化固定數(shù)組的元素,并為動(dòng)態(tài)數(shù)組重新分配存儲空間。
Err對象:包含有關(guān)運(yùn)行時(shí)錯(cuò)誤的信息。
網(wǎng)站標(biāo)題:vb.net字體變大代碼 vb程序設(shè)計(jì)改變字體字號大小
網(wǎng)頁網(wǎng)址:http://chinadenli.net/article46/hipghg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供Google、外貿(mào)網(wǎng)站建設(shè)、商城網(wǎng)站、企業(yè)網(wǎng)站制作、外貿(mào)建站、域名注冊
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)