1樓：匿名使用者
label1.fontsize = 33
大一程式設計vb題:設計程式，介面如圖所示，要求標籤控制項及標題在窗體上水平居中，字型為黑體，字型大小2
2樓：匿名使用者
private sub form_load()label1.fontname = "黑體"
label1.fontsize = 24
label1.fontbold = truelabel1.alignment = 2
label1.caption = ""
end sub
private sub option1_click(index as integer)
dim kk as integer
kk = index
label1.caption = "我是：" & option1(kk).caption
end sub
3樓：難得糊塗
private sub option1_click(index as integer)
label1.caption = "我是" & option1(index).caption
end sub
在vb程式設計中如何改變標籤label的字型大小的源程式（大小資料自定）
4樓：匿名使用者
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
5樓：匿名使用者
label1.font.size=16設定為16號字型
怎麼更改vb中label標籤文字的大小
6樓：四捨**入
更改vb中label標籤文字的字型、大小、以及顏色可以參考下面的**：
privatesubform_load()label1.font="楷體"'字體內改為楷體label1.fontsize=50'字型大小label1.
forecolor=vbred'字型顏色改為紅色容label1.autosize=true'label隨文字內容自動改變大小
endsub
7樓：草堂春日遲遲
label1.font.size = ...
8樓：匿名使用者
label1.font = new font("字型名稱", 大小, fontstyle.字形 )
vb程式設計題:單擊某按鈕後，要求標籤框改字型顏色。
9樓：一念春風十里不如你
'vb中 控制項文字顏色 大多都是forecolor 。
10樓：匿名使用者
在click事件中用forecolor屬性設定就可以了
vb設計乙個程式，能夠通過命令按鈕改變標籤框中文字的顏色和字型，**等，急！！！
11樓：匿名使用者
假設標籤框的名字為labmain。
改顏色：me.labmain.forecolor = 【打上顏色，如vbred】
改字型：me.labmain.fontname = 【輸入字型名稱，如「宋體」】
改字型大小：me.labmain.fontsize = 【輸入大小，如20】
改為粗體：me.labmain.fontbold = 【true or false】
還有幾個，就不一一列出來了。
12樓：匿名使用者
label1.fontname="宋體"
label1.forecolor=vbred
跪求vb設計乙個變換文字框文字的字型、字型、字型大小及顏色的程式。
13樓：風的離散
在**中編譯
font=""
fontname=""
fontcolor=""
.............
vb程式設計，在窗體上建立一文字框，通過選擇，我們可以改變文字框的字型以及字型顏色和背景顏色，執行結果
14樓：我們的夢
private sub option1_click(index as integer)
''字型、字色、背景都用控制項陣列
text1.fontname = option1(index).caption '字型
end sub
private sub option2_click(index as integer)
if option2(index).caption = "紅色" then '背景色
text1.backcolor = vbred
elseif option2(index).caption = "綠色" then
text1.backcolor = vbgreen '色值，vb裡有定義的
else
text1.backcolor = &hff0000 '藍色16進製制值。這樣寫也行
end if
end sub
private sub option3_click(index as integer)
if option3(index).caption = "紅色" then '字色
text1.forecolor = vbred
elseif option3(index).caption = "綠色" then
text1.forecolor = vbgreen '色值，vb裡有定義的
else
text1.forecolor = &hff0000 '這是藍色值。這樣寫也行
end if
end sub
建立vb工程，執行時可將文字框中的文字縮小以及還原。程式**怎麼寫？？？
15樓：匿名使用者
我計算過了 一磅約等於20緹 也就是窗體控制項的座標點 約等於20點
經過計算 字型大小為30的乙個字 正好是600緹 也就是30榜
public a as single
private sub form_load()text1.fontsize=30
a=30
end sub
private sub command1_click()a=a/2
text1.fontsize=a '我試驗過了 當fontszie賦值為7.5和3.25的時候都不會報錯 並且fontszie為15的時候 長寬正好為原來的一半 300緹 ……
end sub
private sub command2_click()a=2*a
text1.fontsize=a '單擊按鈕2的時候擴大一倍end sub
16樓：匿名使用者
private sub form_load()text1.fontsize = 30
end sub
private sub 縮小_click()text1.fontsize = val(text1.fontsize) \ 2
end sub
private sub 增大_click()text1.fontsize = val(text1.fontsize) * 2
end sub
private sub 還原_click()text1.fontsize = 30
end sub
這道題應該是不允許使用變數的吧！
17樓：匿名使用者
'複製貼上就可以。我以為出錯的原因主要是15除2會出現7.5那是一定出錯的了
private sub form_load()text1.fontsize = 30
end sub
private sub command1_click()if text1.fontsize>2 thenif text1.fontsize mod 2=0 thentext1.
fontsize = text1.fontsize/2else
text1.fontsize=text1.fontsize-1text1.fontsize = text1.fontsize/2end if
end if
end sub
private sub command2_click()text1.fontsize = 30
end sub
18樓：匿名使用者
如果你要用**修改控制項屬性，那麼你首先要知道這個屬性需要的繼承類
vb6.0我印象不是很清楚了，現在都用.net，不過意思都是一樣的
如果vb6.0中確實可以使用fontsize賦值改變大小的話，也應該是浮點模式，你可以試試single，或者公式用30.0 / 2.0
不過還是把這個的方法給你（msdn的原話）
給繼承者的說明 在派生類中重寫 font 屬性時，請使用基類的 font 屬性來擴充套件基實現。否則，您必須提供所有實現。不需要同時重寫 font 屬性的 get 和 set 訪問器；如果需要，可以只重寫其中乙個訪問器。
意思就是如果你要改控制項的font屬性，需要賦值乙個font基類
即object.font = font( ... )
當然6.0中，你給出的**很有可能可以執行，不過按你所說的字型縮小一半，30縮小一半到15可能還能顯示，但是15再縮小一半7.5估計就沒法顯示了
參考
（位址需要全靠，包括後面一直到aspx）
' visual basic 6.0
' set font properties directly on the control.
label1.fontbold = true
' create a stdfont object.
dim f as new stdfont
' set the stdfont object to the arial font.
f.name = "arial"
' assign the stdfont to the control's font property.
set label1.font = f
' you can still change properties at run time.
label1.fontbold = true
label1.fontitalic = true
19樓：柔幹顓孫紫安
放大private
subcommand1_click()
dimxx=
int((5
*rnd)+1)
text1.fontsize=x
*30endsub
縮小private
subcommand2_click()
dimxx=
text1.fontsizex=
x-int((x
*rnd)+1)
text1.fontsize
=iif(x=0,
30,x)
endsub
VB程式程式設計題
實現 如下。dim a 1 to 10 private sub command1 click 產生10個1 99的隨機數。dim strg as string,i for i 1 to 10 a i int 99 rnd 1 strg strg a i next i strg 隨機數顯示到text ...
VB程式設計填空題
我親自試了來的，不行找我，程式 是 privatesubform load labl1.caption 歡迎 timer1.enabled false timer1.interval 500 endsub private subtimer1 timer labl1.visible false end...
100分！幾道VB程式設計題！急用
1 編寫過程計算1 1 2 1 3 1 100定義函式 s u 1 u 設定迴圈 for n 1 to 50 step 1結果 r r s n next n 輸出結果 r 這是關鍵步驟，怎麼寫看你 要麼用極限算，這是高3的數學方法！第2個直接用記事本 打出來正三角形，然後在前面加列印函式！試題二 這...