以下代碼添加到你需要觸發的事件里:
創新互聯建站主要從事網站制作、做網站、網頁設計、企業做網站、公司建網站等業務。立足成都服務新吳,十載網站建設經驗,價格優惠、服務專業,歡迎來電咨詢建站服務:18980820575
1,把你的textbox的Multiline改成True(如果此處不修改你后面修改大小的時候只能修改width,而不能修改height),如果希望自動修改height,你的字體也要修改
2,添加這句代碼(假設你要修改大小的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)
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
可能是你改了窗體或是文本框里字體的大小,這個會影響到文本框的大小。
創建一個timer1
創建窗體事件Sub Form1_shown () Handles Me.Shown
其中寫timer1.interval=10:timer1.start
雙擊timer1創建事件,其中寫if me.height555 then me.height+=1 else timer1.stop
百度100字限制唉!
有兩種方法:
1.?Windows.Forms.SystemInformation.CaptionHeight
這個方法取的是系統參數,它表示的標題欄的?藍條條部分的高度(不包括邊框)
2.?Me.ClientSize.Height?-?Me.Height
這種方法?獲得的是當前窗體的標題欄加上它的邊框的高度。
通常建議使用第2種方法。更準確一些。
比如你的窗體是個沒有標題欄的,用第一種方法返回值就?不?準確了。
分享題目:vb.net文本框高度 vb文本框的寬度設置
鏈接地址:http://m.kartarina.com/article44/dodedhe.html
成都網站建設公司_創新互聯,為您提供App設計、定制開發、網站內鏈、服務器托管、網站設計公司、App開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯