1樓：鳶梨的小布丁
vb可使用boolean 資料型別變數通過按鈕的click事件實現這個功能。
boolean 資料型別：
boolean 變數儲存為 16 位（2 個位元組）的數值形式，但只能是 true 或是 false。boolean 變數的值顯示為 true 或 false（在使用 print 的時候），或者
#true# 或 #false#（在使用 write # 的時候）。使用關鍵字 true 與 false 可將
boolean 變數賦值為這兩個狀態中的一個。
實現**：
option explicit
dim fnflag as booleanprivate 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
2樓：匿名使用者
上面的，字雖大了，但不是3倍哦，文字框也顯示不了看我的private sub command1_click()text1.fontsize = text1.fontsize * 3
text1.width=text1.width*3text1.height=text1.height*3end sub
3樓：慢慢變富
新增一個text1
private sub command1_click()text1.fontsize = text1.fontsize + 3
end sub
4樓：匿名使用者
private sub command1_click()
text1.fontsize = text1.fontsize + 3
end sub
vb程式中單擊按鈕，字型變大或變小三個單位
5樓：polaris北斗
option explicit
private sub form_dblclick()endend sub
private sub form_load()command1.caption = "字型變大"
command2.caption = "字型變小"
command3.caption = "加粗"
command4.caption = "標準"
end sub
private sub disp()
clsprint "歡迎使用vb"
end sub
private sub command1_click()fontsize = fontsize + 3call disp
end sub
private sub command2_click()if fontsize > 3 then fontsize = fontsize - 3
call disp
end sub
private sub command3_click()fontbold = true
call disp
end sub
private sub command4_click()fontbold = false
call disp
end sub
6樓：應曼麗湛峻
vb修改字型你可以在按鈕的函式裡面寫響應，把文字框的字型修改lable1.font.size修改一個你想要的值，你可以隨便找本vb的書，看一下具體的，這個以前我做過，挺簡單
7樓：卩灬丨逸er丶
我可以幫你，但你之前那個同樣的問題可以關閉了吧？或者你可以直接在那題上追問，何必新開一題，很不尊重別人勞動成果
程式設計 每單機command1命令按鈕一次文字中字型擴大1.2倍每單機縮小則縮小1.2倍文字內容為vb程式設計
8樓：匿名使用者
private sub command1_click() '放大text1.fontsize = 1.2 * text1.fontsize
end sub
private sub command2_click() '縮小text1.fontsize = text1.fontsize / 1.2
end sub
private sub form_load()text1.text = "vb程式設計"
end sub
vb中怎麼使text1字型變大縮小還原，用三個command按鈕
9樓：陸離
可以設定一個全域性變數a：dim a as integer,把窗體執行時的字型賦給a：private sub form_load() a =（物件名）.
fontsize end sub 然後就可以在放回大縮小之後令fontsize=a使得字號變答成原始字號了。
10樓：聽不清啊
private sub command1_click()text1.fontsize = text1.fontsize + 1
end sub
private sub command2_click()text1.fontsize = text1.fontsize - 1
end sub
private sub command3_click()text1.fontsize = 9
end sub
vb程式設計題:單擊某按鈕後，要求標籤框改字型顏色。
11樓：一念春風十里不如你
'vb中 控制元件文字顏色 大多都是forecolor 。
12樓：匿名使用者
在click事件中用forecolor屬性設定就可以了
vb程式中單擊按鈕，字型變大或變小三個單位怎樣設定？
13樓：卩灬丨逸er丶
vb.net中某些控制元件的字型屬性是隻讀的，所以只可以使用new方法（例子： label1.font = new font("宋體", 9)）
如果是內vb6.0中可以直接使
容用lable1.font.size=lable1.font.size + 3
(這裡使用的例子是lable控制元件，如果你使用的是command控制元件直接改一下就好)
vb中單擊命令按鈕觸發哪些事件，在VB6 0中，怎麼寫一個命令按鈕多次單擊按鈕的不同事件？
1 在vb中單擊命令按鈕觸發單擊事件，即窗體的click事件。2 在vb中單擊命令按鈕觸發失去焦點事件，當焦點不在按鈕上即發生。3 在vb中單擊命令按鈕觸發鍵盤按下事件，任意按下任意的鍵盤即可觸發事件。4 在vb中單擊命令按鈕觸發滑鼠按下事件，當滑鼠按下即可觸發的事件，無論是左鍵還是右鍵。5 在vb...
VB程式設計題
五十分太少，十幾道題，太虧了，不做 蒼鬱 你把題分開，一道題一個帖子，就會有很多人幫你做了，都是些很簡單的題 五十分太多，十幾道題，太賺了，我做 1.在文字框text1中輸入一串字元，統計其中字母 不區分大小寫 數字和其他字元的個數。dim i as integer,a as integer,b a...
VB程式設計題，VB程式設計練習題？
1.新建工程 工程1 2.新建一下combobox控制元件 combo1,並將屬性style改為2 3.新建五個label label1，label2，label3,label4，label5 4.新建兩個text文字框 text1,text2 5.新建一個commandbutton按鈕 comma...