1樓：du瓶邪
在vb中如text和label控制項是沒有垂直居中功能的，但是可以變通就是給文字加空行。
'加乙個 text1 乙個 ***mand1 ：636f707962616964757a686964616f31333337396235
dim aa as string, i as integer, jj as integer, maxline as integer, line**t as long
private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
const em_getlinecount = &hba
private sub form_load()
'窗體與***mand1居中
me.move (screen.width - me.width) \ 2, (screen.height - me.height) \ 2
***mand1.move (me.width - ***mand1.width) \ 2, text1.height + text1.top + 200
***mand1.caption = "居中顯示"
text1.alignment = 2 'textbox 水平居中顯示
aa = "attn:樓主"
aa = aa & chr(13) & chr(10)
aa = aa & "呵呵你的問題都好奇怪,但也讓我學了不少!"
aa = aa & chr(13) & chr(10)
aa = aa & "我也想不出其它的好方法"
aa = aa & chr(13) & chr(10)
aa = aa & "你認為這樣行嗎？"
text1.text = aa
end sub
private sub ***mand1_click()
line**t = textboxline**t(text1)
'每增加一行加上180,當然是以預設的字型大小而言
maxline = text1.height \ 180 '計算textbox能裝下幾行
jj = (maxline - line**t) \ 2 '垂直居中,(textbox總行數-text1的總行數)整除2
for i = 1 to jj '裝上幾行空白
text1.text = chr(13) & chr(10) & text1.text
next i
msgbox "總共有" & cstr(line**t) & "行文字,看看垂直居中了嗎？"
end sub
public function textboxline**t(ctl as textbox) as long '計算總行數的函式
textboxline**t = sendmessage(ctl.hwnd, em_getlinecount, 0, 0)
end function
2樓：匿名使用者
label空件的alignment屬性選擇bai2-center抱歉沒看清是垂
du直label空件zhi不能直接設
置垂直居dao中，只能調節字型大小版
或調節高權度
如果是為了介面美觀，需要背景（顏色）可以用shape控制項與文字框組合起來實現
3樓：匿名使用者
除了水平具有居中功能外並不具備垂直居中功能。
不過要實現垂直居中功能只能同時調整label的控制項大小和字型大小了：
label1.width
label1.height
label1.fontsize
在VB中，控制項的Stretch屬性設定為時，影象框可自動改變大小以適應其中的圖形
題目錯了吧？應該是 stretch屬性設定為true時，圖形可自動改變大小以適應影象框控制項 而 框 注意不是影象框 的autosize屬性設為true時，框可自動改變大小以適應其中的 那個最佳答案啊，你想一想，題目沒錯！影象框image的stretch屬性預設為false 在vb中，控制項的str...
求VB動態填加刪除控制項原始碼，vb中如何動態新增刪除控制項
窗體上新增乙個picture控制項，name屬性設為pic，index屬性設為0 初始化picture private sub form load pic 0 left pic 0 width addpic movepic 1,0 end sub 新增按鈕 private sub command1 ...
VB中ListIndex的作用,vb中ListIndex屬性如何利用
表示式 list list1.listindex 返回當前選擇專案的字串。列表中的第一項是 listindex 0,listcount 始終比最大的 listindex 值大 1。對於可內以做多重選擇容的控制項,該屬性的行為取決於所選擇專案的個數。如果只選擇了乙個專案,listindex 返回該項目...