新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在VB中添加TextBox控件到窗体可:
创新互联建站专注于沧州网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供沧州营销型网站建设,沧州网站制作、沧州网页设计、沧州网站官网定制、小程序定制开发服务,打造沧州网络公司原创品牌,更为您提供沧州网站排名全网营销落地服务。
用工具箱绘制控件
1.单击要绘制的控件的工具—此时是“文本框”。
2.将指针移到窗体上。该指针变成十字线,如图 2.3 所示。
3.将十字线放在控件的左上角所在处。
4.拖动十字线画出适合您要的控件大小的方框。(拖动的意思是按住鼠标左键用鼠标指针移动对象。)
5.释放鼠标按钮。控件出现在窗体上。
在窗体上添加控件的另一个简单方法是双击工具箱中的控件按钮。这样会在窗体中央创建一个尺寸为缺省值的控件;然后再将该控件移到窗体中的其它位置。
调整大小、移动和锁定控件
注意出现在控件四周的小矩形框称作尺寸句柄;下一步可用这些尺寸句柄调节控件尺寸。也可用鼠标、键盘和菜单命令移动控件、锁定和解锁控件位置以及调节控件位置。
调整控件的尺寸,请按照以下步骤执行:
1.用鼠标单击要调整尺寸的控件。
选定的控件上出现尺寸句柄。
2.将鼠标指针定位到尺寸柄上,拖动该尺寸柄直到控件达到所希望的大小为止。
角上的尺寸柄可以调整控件水平和垂直方向的大小,而边上的尺寸柄调整控件一个方向的大小。
3.释放鼠标按钮。
- 或 -
用 SHIFT 键加上和箭头键调整选定控件的尺寸。
要移动控件,请
用鼠标把窗体上的控件拖动到一新位置。
- 或 -
用“属性”窗口改变 Top 和 Left 属性。
选定控件后,可用 CTRL
键加箭头键每次移动控件一个网格单元。如果该网格关闭,控件每次移动一个像素。
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
以下代码添加到你需要触发的事件里:
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)
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文本框被放大的同时,字体也被放大相同的倍数。
点击按钮前:
点击按钮后: