在VB中添加TextBox控件到窗體可:
創(chuàng)新互聯(lián)建站專注于滄州網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供滄州營銷型網(wǎng)站建設(shè),滄州網(wǎng)站制作、滄州網(wǎng)頁設(shè)計、滄州網(wǎng)站官網(wǎng)定制、小程序定制開發(fā)服務(wù),打造滄州網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供滄州網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
用工具箱繪制控件
1.單擊要繪制的控件的工具—此時是“文本框”。
2.將指針移到窗體上。該指針變成十字線,如圖 2.3 所示。
3.將十字線放在控件的左上角所在處。
4.拖動十字線畫出適合您要的控件大小的方框。(拖動的意思是按住鼠標左鍵用鼠標指針移動對象。)
5.釋放鼠標按鈕??丶霈F(xiàn)在窗體上。
在窗體上添加控件的另一個簡單方法是雙擊工具箱中的控件按鈕。這樣會在窗體中央創(chuàng)建一個尺寸為缺省值的控件;然后再將該控件移到窗體中的其它位置。
調(diào)整大小、移動和鎖定控件
注意出現(xiàn)在控件四周的小矩形框稱作尺寸句柄;下一步可用這些尺寸句柄調(diào)節(jié)控件尺寸。也可用鼠標、鍵盤和菜單命令移動控件、鎖定和解鎖控件位置以及調(diào)節(jié)控件位置。
調(diào)整控件的尺寸,請按照以下步驟執(zhí)行:
1.用鼠標單擊要調(diào)整尺寸的控件。
選定的控件上出現(xiàn)尺寸句柄。
2.將鼠標指針定位到尺寸柄上,拖動該尺寸柄直到控件達到所希望的大小為止。
角上的尺寸柄可以調(diào)整控件水平和垂直方向的大小,而邊上的尺寸柄調(diào)整控件一個方向的大小。
3.釋放鼠標按鈕。
- 或 -
用 SHIFT 鍵加上和箭頭鍵調(diào)整選定控件的尺寸。
要移動控件,請
用鼠標把窗體上的控件拖動到一新位置。
- 或 -
用“屬性”窗口改變 Top 和 Left 屬性。
選定控件后,可用 CTRL
鍵加箭頭鍵每次移動控件一個網(wǎng)格單元。如果該網(wǎng)格關(guān)閉,控件每次移動一個像素。
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Dim a As FontStyle
a = Me.TextBox1.Font.Size
Dim b As Single = a * 10
Me.TextBox1.Width = Me.TextBox1.Width * 10
Me.TextBox1.Font = New System.Drawing.Font("PMingLiU ", b, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) '放大10倍,若僅10號字體,則將b改為10
End Sub
以下代碼添加到你需要觸發(fā)的事件里:
1,把你的textbox的Multiline改成True(如果此處不修改你后面修改大小的時候只能修改width,而不能修改height),如果希望自動修改height,你的字體也要修改
2,添加這句代碼(假設(shè)你要修改大小的textbox就是textbox1):
TextBox1.Location = New System.Drawing.Point(5, 20) '5, 20是你定義的針對窗體左上角點的X和Y位置
textbox1.size= New System.Drawing.Size(500, 600)‘500, 600是你自己定義的寬(width)和高(height)
3,或者直接寫成:
TextBox1.Multiline = True’允許修改多行文本框
TextBox1.Location = New Point(5, 20) '5, 20是你定義的針對窗體左上角點的水平X和垂直Y位置
TextBox1.Size = New System.Drawing.Size(500, 600)‘500, 600是你自己定義的寬(width)和高(height)
1、打開Visual
Basic
6.0軟件,新建一個標準exe工程,在窗體上添加一個Text控件和一個Command控件,Text1的文本在窗體創(chuàng)建時內(nèi)容為"Visual
Basic",Command的Caption屬性值為"放大3倍";
2、雙擊窗體和雙擊Command進入代碼編輯窗口,編寫代碼如下:
Private Sub Command1_Click()
Text1.Width = 3 * Text1.Width
Text1.Height = 3 * Text1.Height
Text1.Font.Size = 3 * Text1.Font.Size
End Sub
Private Sub Form_Load()
Text1.Text = "Visual Basic"
End Sub
3、點擊運行或者按下F5按鍵,運行工程,點擊"放大3倍"按鈕,可以看到text1文本框被放大的同時,字體也被放大相同的倍數(shù)。
點擊按鈕前:
點擊按鈕后: