1樓：匿名使用者
//主要是這個
private sub ***bo1_click()text1.font = ***bo1.list(***bo1.listindex)
end sub
//這段可以不用
private sub form_load()***bo1.clear
***bo1.additem "宋體"
***bo1.additem "黑體"
***bo1.additem "隸書"
end sub
vb練習題：設定一組合框，其中有四種字型型別，選擇其中一種，文字框中的字型就隨之改變
2樓：時若谷海丁
//主要是這個
private
sub***bo1_click()
text1.font
=***bo1.list(***bo1.listindex)endsub
//這段可以不用
private
subform_load()
***bo1.clear
***bo1.additem
"宋體"
***bo1.additem
"黑體"
***bo1.additem
"隸書"
endsub
vb中用組合框進行字型和字號變換的**怎麼寫
3樓：匿名使用者
private sub ***bo1_click()
text1.fontname = ***bo1.text
end sub
private sub ***bo2_click() ***bo2代表列表框，click是「單擊事件」
text1.fontsize = ***bo2.text
end sub
private sub ***mand2_click()
unload me
end sub
private sub form_load()
***bo1.additem "黑體" 常用方法：
***bo1.additem "宋體" additem // 物件名.additem item [index] //
***bo1.additem "隸書" 物件名,是列表框的名稱
***bo1.additem "華文中宋" item ， 是一個字元表示式
***bo1.additem "方正舒體" index ，表示新增加的列表項在列表中的位置，
***bo1.text = ***bo1.list(0) 如果不寫，則新增到列表框的的末尾處 。
***bo2.additem 10
***bo2.additem 12
***bo2.additem 14
***bo2.additem 16
***bo2.additem 18
***bo2.text = ***bo2.list(0)
end sub
急！！！vb程式設計:編寫利用組合框對文字的字型和大小進行設定的程式
4樓：匿名使用者
private sub ***bo1_click()text1.fontname = ***bo1.textend sub
private sub ***bo2_click()text1.fontsize = val(***bo2.text)end sub
private sub form_load()***bo1.additem "宋體"
***bo1.additem "黑體"
***bo1.additem "楷體_gb2312"
***bo1.text = "宋體"
for i = 12 to 72 step 2***bo2.additem str(i)next i
***bo2.text = "12"
end sub
vb通過組合框內容改變標籤字型，注意是標籤請用標籤的屬性方法
5樓：匿名使用者
private sub ***bo1_click()label1.fontname = ***bo1.textend sub
private sub form_load()me.autoredraw = true
***bo1.additem "宋體
"***bo1.additem "黑體"
***bo1.additem "隸書"
***bo1.additem "微軟雅黑"
***bo1.additem "幼圓"
***bo1.additem "新宋體"
***bo1.additem "楷體_gb2312"
***bo1.additem "方正姚體"
***bo1.additem "方正舒體"
end sub
vb 提問 建立一個窗體，通過文字框輸入文字資訊，利用組合框中的專案確定字型和大小，列表框確定字形。
6樓：匿名使用者
你得現在窗體上新增microsoft ***mon dialog 控制元件。
然後***bo1.font=***mondialog1.fontname
text1.font=***bo1.font
7樓：匿名使用者
private sub check下劃線_click()text1.fontunderline = check下劃線.value
end sub
比照修改一下就成
本人以前的回答
誰有vb中用列表框改變字型和組合框改變字號的**？
8樓：匿名使用者
private sub ***mand1_click()me.list1.font = "黑體"
me.list1.fontsize = 22me.***bo1.font = "宋體"
me.***bo1.fontsize = 32end sub
VB第七章陣列課後習題，vb陣列練習題 陣列程式設計
private sub command1 click dim c as single al lbound a ae ubound a bl lbound b be ubound b bl redim c ae al 1 be cl 0 doif al ae then c cl b bl cl cl ...
解方程練習題，初一解方程練習題及答案50道
都在這裡，很豐富！0.5 x x 9.8 2 2 x x 0.5 9.8 25000 x 6x 3200 450 5x x x 0.8x 6 12x 8x 4.8 7.5 2x 15 1.2x 81.6 x 5.6 9.4 x 0.7x 3.6 91 x 1.3 x 8.3 10.7 15x 3 3...
一般現在時態練習題，英語一般現在時練習題（含答案）
當主語是第三人稱單數時 肯定句 主語 動詞的單數第三人稱 其他 否定句主語 doesn t 動詞原形 其他一般疑問句does 主語 動詞原形 其他 肯定回答 yes，主語 does 否定回答 no，主語 doesn t 特殊疑問句 特殊疑問詞 一般疑問句 一般現在時 當主語不是第三人稱單數時 肯定句...