vb.net文本框宽度,vb文本框高度

如何实现VB.NET文字宽度计算

Dim MyGraphics As Graphics = Me.CreateGraphics

创新互联建站专注于清河网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供清河营销型网站建设，清河网站制作、清河网页设计、清河网站官网定制、微信小程序服务，打造清河网络公司原创品牌,更为您提供清河网站排名全网营销落地服务。

'定义使用的字体

Dim Myfont As New Font("宋体", 9)

'获取文本的大小。

Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)

'显示宽和高

MsgBox(Mystring_Size1.Width "：" Mystring_Size1.Height)

以下代码添加到你需要触发的事件里：

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）

如果.net的标准文本框都不够长，那基本上不能用普通控件来解决了。因为标准文本框内容的长度只受限于 String 的长度，大约是2GB左右。如果它不行，那 RichTxetBox、Label 等都不行。

解决的方案：一个是读文件时就判断长度，超长的直接弹错即可。再一个是提示用户将截断。再就是自己写代码，只读取部分内容供用户查看和修改，当用户移动滚动条时再动态的读取相应部分。最后这个当然好，但难度也最大。

可能是你改了窗体或是文本框里字体的大小，这个会影响到文本框的大小。

将textbox 的Multiline属性改成True .这样 Textbox的size属性就可以赋值了。

不清楚的欢迎继续追问！

网页标题：vb.net文本框宽度,vb文本框高度
网页路径：http://scyanting.com/article/dseccsi.html