在VB中讓文本框文字居中需要設置TextAlign屬性,下面用Visual Studio 2019給大家演示一下:
為順河等地區(qū)用戶提供了全套網(wǎng)頁設計制作服務,及順河網(wǎng)站建設行業(yè)解決方案。主營業(yè)務為做網(wǎng)站、網(wǎng)站制作、順河網(wǎng)站設計,以傳統(tǒng)方式定制建設網(wǎng)站,并提供域名空間備案等一條龍服務,秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求,就會得到認可,從而選擇與我們長期合作。這樣,我們也可以走得更遠!
1、打開Visual Studio,模板選擇Visual Basic的窗體應用程序,如下圖所示
2、在窗體中放一個文本框,右鍵文本框選擇屬性,如下圖所示
3、找到外觀里面的TextAlign,下拉列表中選擇Center,如下圖所示
4、運行程序后,在文本框中輸入文字就居中了,如下圖所示
Label 控件不可以水平,上下居中
不過可以用 PictureBox 控件做到
拖動一個 PictureBox 控件到工程,并命名為 picTextShow,把 AutoDraw 設為 True,加上以下代碼就可以實現(xiàn):
Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要顯示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要顯示的文本"))
picTextShow.Print "要顯示的文本" End Sub
這樣文本就可以在圖片框中間顯示了。
Form窗體有一個屬性是StartPosition,把它設置為CenterScreen就是居中。
代碼為 Me.StartPosition = FormStartPosition.CenterScreen。
如果是非要計算分辨率的話:
My.Computer.Screen.Bounds.Width 是分辨率中的寬度
My.Computer.Screen.Bounds.Height 是分辨率中的高度
那么
Me.Top = (My.Computer.Screen.Bounds.Height - Me.Height) / 2
Me.Left = (My.Computer.Screen.Bounds.Width - Me.Width) / 2
就是讓窗體居中啦~