先把Lbale控件的AutoSize属性改成False,然后你就可以随便调整大小了
创新互联主要从事成都网站设计、网站制作、外贸营销网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务朝阳县,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
看样要重新定义个Font对象,在构造函数中定义它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数,只有大小改成你需要的。
End With
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DataGridView1.Rows(0).Height = 50 '设置第一行的高度是50
Me.DataGridView1.Columns(0).Width = 100 '设置第一列的宽度是100像素
End Sub
使用for each 遍历窗体所有控件,如果是label 或 text 控件则改变其字体,或颜色。以下代码vs2008下通过测试。e.g.'---------------------------------------------------'窗体:Form1'2个label : label1,label2'2个Textbox: textbox1,textbox2'1个button : button1'-----------------------------------------------------------Public Class Form1'按钮单击时间 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ob As Control
Dim obtype As String
For Each ob In Me.Controls
obtype = ob.GetType().ToString()
If obtype = "System.Windows.Forms.TextBox" Or obtype = "System.Windows.Forms.Label" Then
ob.ForeColor = Color.Blue ‘字体颜色
ob.Font = New System.Drawing.Font("宋体", 20.5F, FontStyle.Underline) ’字体
End If
Next
End Sub
End Class
以下代码添加到你需要触发的事件里:
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)