Dim MyGraphics As Graphics = Me.CreateGraphics

創(chuàng)新互聯(lián)建站專注于清河網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供清河營(yíng)銷型網(wǎng)站建設(shè),清河網(wǎng)站制作、清河網(wǎng)頁(yè)設(shè)計(jì)、清河網(wǎng)站官網(wǎng)定制、微信小程序服務(wù),打造清河網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供清河網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
'定義使用的字體
Dim Myfont As New Font("宋體", 9)
'獲取文本的大小。
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'顯示寬和高
MsgBox(Mystring_Size1.Width ":" Mystring_Size1.Height)
以下代碼添加到你需要觸發(fā)的事件里:
1,把你的textbox的Multiline改成True(如果此處不修改你后面修改大小的時(shí)候只能修改width,而不能修改height),如果希望自動(dòng)修改height,你的字體也要修改
2,添加這句代碼(假設(shè)你要修改大小的textbox就是textbox1):
TextBox1.Location = New System.Drawing.Point(5, 20) '5, 20是你定義的針對(duì)窗體左上角點(diǎn)的X和Y位置
textbox1.size= New System.Drawing.Size(500, 600)‘500, 600是你自己定義的寬(width)和高(height)
3,或者直接寫(xiě)成:
TextBox1.Multiline = True’允許修改多行文本框
TextBox1.Location = New Point(5, 20) '5, 20是你定義的針對(duì)窗體左上角點(diǎn)的水平X和垂直Y位置
TextBox1.Size = New System.Drawing.Size(500, 600)‘500, 600是你自己定義的寬(width)和高(height)
如果.net的標(biāo)準(zhǔn)文本框都不夠長(zhǎng),那基本上不能用普通控件來(lái)解決了。因?yàn)闃?biāo)準(zhǔn)文本框內(nèi)容的長(zhǎng)度只受限于 String 的長(zhǎng)度,大約是2GB左右。如果它不行,那 RichTxetBox、Label 等都不行。
解決的方案:一個(gè)是讀文件時(shí)就判斷長(zhǎng)度,超長(zhǎng)的直接彈錯(cuò)即可。再一個(gè)是提示用戶將截?cái)唷T倬褪亲约簩?xiě)代碼,只讀取部分內(nèi)容供用戶查看和修改,當(dāng)用戶移動(dòng)滾動(dòng)條時(shí)再動(dòng)態(tài)的讀取相應(yīng)部分。最后這個(gè)當(dāng)然好,但難度也最大。
可能是你改了窗體或是文本框里字體的大小,這個(gè)會(huì)影響到文本框的大小。
將textbox 的Multiline屬性改成True .這樣 Textbox的size屬性就可以賦值了。
不清楚的歡迎繼續(xù)追問(wèn)!
當(dāng)前標(biāo)題:vb.net文本框?qū)挾?vb文本框高度
當(dāng)前URL:http://chinadenli.net/article35/dseccsi.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信公眾號(hào)、自適應(yīng)網(wǎng)站、品牌網(wǎng)站制作、營(yíng)銷型網(wǎng)站建設(shè)、Google、搜索引擎優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)