重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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属性就可以赋值了。
不清楚的欢迎继续追问!