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