以下代码添加到你需要触发的事件里:
创新互联建站主要从事网站制作、做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务新吴,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务: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种方法。更准确一些。
比如你的窗体是个没有标题栏的,用第一种方法返回值就 不 准确了。