1樓：匿名使用者
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中決定標籤框文字顏色的屬性是什麼
2樓：匿名使用者
label1.forecolor = &hffffff
設定標籤文字的顏色為黑色
vb程式設計中，改標籤框中的字型時只能一個一個改嗎？有沒有簡便方法
3樓：匿名使用者
你可以先改好一個，然後複製這個標籤，然後再貼上到 表單上，這樣 這個標籤的樣式也自動複製過來了 ，當然他會提示你是否建立這個標籤的陣列，你可以確定也可以不用陣列
4樓：歐聯科技
字型可以一起改啊，你可以按住ctrl 鍵 ，把所有需要修改字型的標籤控制元件全部選擇好，然後在右邊的屬性框裡修改font屬性就可以了
5樓：匿名使用者
樓上的也行，我的方法是：標籤框如果是陣列的話你用迴圈語句以及label1(i).fontname=""來做
vb在窗體中繪製一個標籤，修改標籤的初始屬性，單擊標籤時，使標籤的字放大
6樓：匿名使用者
設定好標籤的初始屬性，然後編寫下面**可以讓標籤上的字變為50，具體變多大由你自己設定
private sub label1_click()label1.fontsize = 50
end sub
7樓：匿名使用者
el_speed
private sub form_load()
label1.left = 0
label_speed = 50 '移動速度
label1.fontsize = 20 '字型大小
label1.fontname = "宋體"
label1.autosize = true
lefttoright = true
end sub
private sub timer1_timer()
if lefttoright = true then
label1.backcolor = vbwhite
label1.forecolor = vbred
label1.caption = "從左向右移動的字幕"
if label1.left < form1.scalewidth - label1.width then
label1.left = label1.left + label_speed
else
lefttoright = false
end if
else
label1.backcolor = vbblue
label1.forecolor = vbred
label1.caption = "從右向左移動的字幕"
if label1.left > 0 and lefttoright = false then
label1.left = label1.left - label_speed
else
lefttoright = true
end if
end if
end sub
8樓：匿名使用者
private sub label1_click()
label1.font.size = label1.font.size + 1
end sub
vb中要使得標籤自動擴充以滿足字型大小可對其什麼屬性進行設定
9樓：網海1書生
把autosize屬性設為true即可
10樓：匿名使用者
.a) click
b) dblclick
c) gotfocus
d) change
答案 d
11樓：匿名使用者
label1.font.size
在vb程式設計中如何改變標籤label的字型大小的源程式（大小資料自定）
12樓：匿名使用者
vb程式設計可通過對標籤控制元件的fontsize 屬性設定改變顯示文字所用字型的大小。
fontsize 屬性，返回或設定在控制元件中或在執行時畫圖或列印操作中，顯示文字所用的字型的大小。
語法object.fontsize [= points]fontsize 屬性語法包含下面部分：
部分 描述
object
物件表示式，其值是「應用於」列表中的一個物件。
points
數值表示式，用磅為單位指定所用字型的大小。
**示例：
option explicit
dim flag as boolean
private sub form_click()if flag then
label1.fontsize = 24
else
label1.fontsize = 8
end if
flag = not flag
end sub
private sub form_load()flag = true
end sub
13樓：匿名使用者
label1.font.size=16設定為16號字型
vb組合框如何設定簡單組合框 需要設定什麼屬性 除了style=1還需要什麼
14樓：匿名使用者
excel在日常使用中，經常使用特定的幾個條件或選擇項就可以實現跳轉到特定的下一步操作或實現其它用途，下面用vb組合框設定簡單組合框：
1、選單欄選依次選擇檢視->工具欄->控制元件工具箱。
2、在控制元件工具箱裡拖出組合框。
3、雙擊控制元件進入vb編輯器，並錄入圖中語句。
4、按執行子程序在綠色三角鍵並建立巨集名稱。
5、返回**介面檢視結果。設定簡單組合框成功。
注意事項：在visual basic 6.0中，採用物件導向程式設計方法（object-oriented programming），把程式和資料封裝起來作為一個物件，每個物件都是可視的。
15樓：匿名使用者
、組合框的三種形式
組合框是用來顯示一個文字框及一個下拉選單的控制元件，你可能認為只有一種組合框，但其實有三種，可以通過設定組合框的style屬性來選擇其一，下面是設定組合框的style屬性時用的值：
vb***bodropdown --0 ：包括一個下拉選單和一個文字框，可以選擇也可輸入文字；
vb***bo****** --1 ：簡單組合框，包括一個文字框和一個不會下拉的列表；
vb***bodropdownlist --2 ：只選組合框。
2、在組合框中新增圖象
這需要使用image組合框image***bo和imagelist，我們先在「新增元件」中選中「ms ***mon control 6.0」然後新增image***bo和imagelist，並在imagelist中新增**，然後可以用以下語句為下拉框新增**。
image***bo1.***boitems.add 1,"key1","item1",1
image***bo1.***boitems.add 2,"key2","item2",2
16樓：
左側出生日期為lable, 右側方框為***bo，style屬性設定為1 ,要顯示下方的1987，1988等資料，需設定list屬性
用vb語言，單機按鈕，在窗體介面上使用標籤顯示「歡迎來到vb學習課堂」，字型要求，楷體gb2312
17樓：匿名使用者
private sub ***mand1_click()label1.fontname = "楷體_gb2312"
label1.fontbold = truelabel1.fontsize = 24
label1.caption = "歡迎來到vb學習課堂"
end sub
vb設計一個程式，能夠通過命令按鈕改變標籤框中文字的顏色和字型，**等，急！！！
18樓：匿名使用者
假設標籤框的名字為labmain。
改顏色：me.labmain.forecolor = 【打上顏色，如vbred】
改字型：me.labmain.fontname = 【輸入字型名稱，如「宋體」】
改字型大小：me.labmain.fontsize = 【輸入大小，如20】
改為粗體：me.labmain.fontbold = 【true or false】
還有幾個，就不一一列出來了。
19樓：匿名使用者
label1.fontname="宋體"
label1.forecolor=vbred
如何及時更新mfc組合框內的資料
updatedata true 從控制元件獲得資料bai複製到控du件物件中 zhiupdatedata false 將控制元件物件中的資料送到控制元件中dao 如果在 中修改 版資料,想在控權件中用,則呼叫updatedata false 如果想獲得控制元件中資料然後做相應處理,則先呼叫updat...
vb組合框問題，如何取符號
private sub mand1 click select case bo1.text case text3.text val text1.text val text2.text case text3.text val text1.text val text2.text case text3.te...
vb中怎麼實現遮蔽Alt Tap的組合鍵
這個是系統的熱鍵,你要用hook鉤子才行,比較有難度 c 中怎麼遮蔽組合鍵 這樣就可以遮蔽了.modifiers keys.handled true,keyeventargs e if e.f4 e.keycode keys.alt eprivate void register keydown ob...