增大文本框vb.net vb文本框里文字放大代码

在VB中，怎么设置文本框的大小和位置？

在VB中添加TextBox控件到窗体可：

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

用工具箱绘制控件

1.单击要绘制的控件的工具—此时是“文本框”。

2.将指针移到窗体上。该指针变成十字线，如图 2.3 所示。

3.将十字线放在控件的左上角所在处。

4.拖动十字线画出适合您要的控件大小的方框。（拖动的意思是按住鼠标左键用鼠标指针移动对象。）

5.释放鼠标按钮。控件出现在窗体上。

在窗体上添加控件的另一个简单方法是双击工具箱中的控件按钮。这样会在窗体中央创建一个尺寸为缺省值的控件；然后再将该控件移到窗体中的其它位置。

调整大小、移动和锁定控件

注意出现在控件四周的小矩形框称作尺寸句柄；下一步可用这些尺寸句柄调节控件尺寸。也可用鼠标、键盘和菜单命令移动控件、锁定和解锁控件位置以及调节控件位置。

调整控件的尺寸，请按照以下步骤执行：

1.用鼠标单击要调整尺寸的控件。

选定的控件上出现尺寸句柄。

2.将鼠标指针定位到尺寸柄上，拖动该尺寸柄直到控件达到所希望的大小为止。

角上的尺寸柄可以调整控件水平和垂直方向的大小，而边上的尺寸柄调整控件一个方向的大小。

3.释放鼠标按钮。

- 或 -

用 SHIFT 键加上和箭头键调整选定控件的尺寸。

要移动控件，请

用鼠标把窗体上的控件拖动到一新位置。

- 或 -

用“属性”窗口改变 Top 和 Left 属性。

选定控件后，可用 CTRL

键加箭头键每次移动控件一个网格单元。如果该网格关闭，控件每次移动一个像素。

VB.net中如何在代码中设置文本框字体的大小

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

在vb.net怎样利用代码修改文本框的大小

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

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）

vb里怎么让单击后文本框扩大,同时文本框内的文字按照规定要求扩大N倍

1、打开Visual

Basic

6.0软件，新建一个标准exe工程，在窗体上添加一个Text控件和一个Command控件,Text1的文本在窗体创建时内容为"Visual

Basic"，Command的Caption属性值为"放大3倍";

2、双击窗体和双击Command进入代码编辑窗口，编写代码如下：

Private Sub Command1_Click()

Text1.Width = 3 * Text1.Width

Text1.Height = 3 * Text1.Height

Text1.Font.Size = 3 * Text1.Font.Size

End Sub

Private Sub Form_Load()

Text1.Text = "Visual Basic"

End Sub

3、点击运行或者按下F5按键，运行工程，点击"放大3倍"按钮，可以看到text1文本框被放大的同时，字体也被放大相同的倍数。

点击按钮前:

点击按钮后: