請問在VB裡面怎麼讓字元放大一倍

時間 2021-10-14 21:23:07

1樓:匿名使用者

以label1控制元件為例:

字型放大

label1.fontsize = label1.fontsize * 2

標籤水平居中:

label1.alignment = 2

2樓:匿名使用者

fontsize=字元大小不就行了 你非要雙倍就 先定義個整形dim a as integer a=5 fontsize=a*2

vb裡怎麼讓單擊後文字框擴大,同時文字框內的文字按照規定要求擴大n倍

3樓:匿名使用者

private sub text1_click()n = inputbox("你要擴大幾倍?", , 2)text1.width = text1.

width * ntext1.height = text1.height * ntext1.

font.size = text1.font.

size * n

end sub

請參閱我部落格中專門為回答你這個問題寫的部落格:http://hi.

其中的n可以等於0.5喲!

4樓:匿名使用者

private sub command1_click()dim n as integer, font as long, h as long, w as long

n = 2

with text1

font = .font.size * nme.

font.size = font * nh = me.textheight(.

text)w = me.textwidth(.text).

font.size = font

.height = h / 2

.width = w / 2

end with

end sub

5樓:素錦初薰

話說。其實我不知道。嗯。記得給幫主人的賞分哦~你個傻子~

vb裡面怎麼運用,vb裡面怎麼運用cmd

在 裡直接用shell命令呼叫cmd private sub command1 click shell cmd c ipconfig net user arp a pause vbnormalfocus end sub 上面這個就是在按鈕裡面的例項,共執行了3個命令ipconfig net user...

請問vb裡面 包含 是怎麼表示的

查第一次出現n的 text2中顯示的是首次出現n的位置 option explicit dim i as byte dim mypos as byte private sub command1 click mypos instr 1,text1,n 1 text2 mypos end sub pri...

vb裡面的步長值應該怎麼算,VB裡的步長是什麼意思

聽不清啊 這樣的話當i 1,4,7,10,13時執行迴圈體,即滿足條件時進入迴圈,然後加一個步長值,再判斷 for i 1 to 15 step 3 迴圈內語句 next 迴圈的原理 第一部分,迴圈必備條件 1 迴圈變數 i 2 迴圈變數的取值範圍 1 to 15 3 步長 3 省略則預設為1 4 ...