vb.net控件组合 vb 控件组

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

如何轻松调整VB.NET控件

Anchor属性可以被设定为Top Bottom Left和Right的任何组合默认设置是Top Left 这可以保持控件的top left角与视窗边框具有相同的相对位置设置Anchor属性为Top and Bottom可以垂直地调整控件保证从视窗底部到控件底部距离相同

Me TextBox Anchor = （System Windows Forms AnchorStyles Top Or System Windows Forms AnchorStyles Left）

Dock属性

这个属性可以被设置为Top Bottom Left Right或Fill 将其设置为Top Bottom Left或Right可以使控件紧挨指定的视窗边缘或者紧挨已放置到相应视窗边缘的其他控件设置Dock属性为Fill可以使控件调整为充满视窗的整个客户区

Me Panel Dock = System Windows Forms DockStyle Bottom

你还可以使用DockPadding对象来设置填充视窗边框和已放置好的控件间的区域它有对应每个视窗边框的属性如果想要边框对每个边都一致也可以通过设置All属性实现

Me DockPadding All = lishixinzhi/Article/program/net/201311/14503

相关问答

Q1: vb.net入门之分组控件：GroupBox控件

我们对控件进行分组的原因不外乎三个

为了获得清晰的用户界面而将相关的窗体元素进行可视化分组

编程分组如对单选按钮进行分组

为了在设计时将多个控件作为一个单元来移动

在中有GroupBox Panel TabControl这三个控件可以实现上面所提到的三个分组目的所以我们称它们为分组控件

这三个控件在功用上十分的相似特别是GroupBox和Panel控件只存在一点细微的差别而已（这个差别是只有GroupBox控件可以显示标题而只有Panel控件可以有滚动条）这里我们就先来了解GroupBox控件的使用

GroupBox（控件组）控件一般是作为其他控件的组的容器的形式存在的这样有利于用户识别使界面变得更加友好（GroupBox控件相当于Visual Basic以前版本的Frame控件）使用控件组控件可以将一个窗体中的各种功能进一步进行分类例如将各种选项按钮控件分隔开

当移动单个GroupBox控件时它所包含的所有控件也将一起移动

在大多数情况下对控件组控件没有实际的操作我们用它对控件进行分组通常没有必要响应它的事件不过它的Name Text和Font等属性可能会经常被修改以适应应用程序在不同阶段的要求

GroupBox控件在工具箱中的图标如图所示

一 GroupBox控件的常用属性

Anchor和Dock 这两个属性是所有有用户界面的控件都有的定位属性这里就不啰嗦了

Name属性标识控件的对象名称

Text属性显示在GroupBox控件右上方的标题文字可以用来标识该控件组的描述

Font和ForeColor属性用于改变GroupBox控件的文字大小以及文字的颜色需要注意的时候它不单改变GroupBox控件的Text属性的文字外观同时也改变其内部控件的显示的Text属性的文字外观

二创建一组控件

在窗体上放置GroupBox控件从工具箱中拖放一个GroupBox控件到窗体上的合适位置调整大小

在属性窗口中改变GroupBox控件的Text属性作为它的标题

在GroupBox控件内拖放其它需要的控件例如RadioButton控件

设置示例如图一所示

图一用控件组控件对单选按钮分组

我们在拖动单个GroupBox控件的时候它内部的控件也会随着移动以保持和GroupBox的相对位置不变同理删除GroupBox控件时它所包含的所有控件也会被删除掉

当我们调整GroupBox控件所包含的控件的Anchor和Dock属性的时候其参照物将不是Form窗体而是GroupBox控件了

三编程添加GroupBox控件以及它所包含的控件

虽然GroupBox控件是在设计时用视图设计布局效果最好但是无可避免地很多特殊情况下也是需要在运行做添加控件到控件组中的这里我们就用代码来完成上图一界面的绘制

动态添加控件一般需要经过下面三个步骤

创建要添加的控件实例

设置新控件的属性

将控件添加到父控件的 Controls 集合

在Form 代码的任意位置增加初始化控件的过程InitializeControl（）代码如下所示

Sub InitializeControl（）

首先添加Label和TextBox控件

Dim Label As New System Windows Forms Label

Dim TextBox As New System Windows Forms TextBox

Label

Label Location = New System Drawing Point（）

Label Name = Label

Label Size = New System Drawing Size（）

Label TabIndex =

Label Text = 户主姓名

TextBox

TextBox Location = New System Drawing Point（）

TextBox Name = TextBox

TextBox Size = New System Drawing Size（）

TextBox TabIndex =

TextBox Text =

把它们添加到父控件Form 的Controls集合中

Me Controls Add（TextBox ）

Me Controls Add（Label ）

添加三个GroupBox控件

Dim GroupBox As New System Windows Forms GroupBox

GroupBox

GroupBox BackColor = System Drawing SystemColors Control

GroupBox Location = New System Drawing Point（）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 性别

GroupBox

GroupBox Location = New System Drawing Point（）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 单元

GroupBox

GroupBox Location = New System Drawing Point（）

GroupBox Name = GroupBox

GroupBox Size = New System Drawing Size（）

GroupBox TabIndex =

GroupBox TabStop = False

GroupBox Text = 楼层

把它们添加到父控件Form 的Controls集合中

Me Controls Add（GroupBox ）

添加RadioButton控件并分别绘制在GroupBox控件内

Dim RadioButton As New System Windows Forms RadioButton

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 男性

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 女性

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 二单元

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 三单元

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 一单元

RadioButton

RadioButton BackColor = System Drawing SystemColors Control

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 四单元

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 二楼

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 三楼

RadioButton

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 一楼

RadioButton

RadioButton BackColor = System Drawing SystemColors Control

RadioButton Location = New System Drawing Point（）

RadioButton Name = RadioButton

RadioButton Size = New System Drawing Size（）

RadioButton TabIndex =

RadioButton Text = 四楼

分别把它们添加到父控件GroupBox的Controls集合中

GroupBox Controls Add（RadioButton ）

End Sub

把上一页的代码复制添加后把控件初始化过程InitializeControl（）过程添加到Form 的New构造函数中如下图二所示

图二在New构造函数中添加过程InitializeControl（）

现在按F 运行 Form 的窗体控件布局（如下图三所示）是不是和我们手工布局的图一的布局是一样的呢？

lishixinzhi/Article/program/ASP/201311/21749

Q2: vb.net 控件集合

Private Sub b_click(sender As Object, e As EventArgs)

MsgBox(sender.name)

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim b() As Button = {Button1, Button2, Button3}

For Each i In b

AddHandler i.Click, AddressOf b_click

End Sub

Q3: vb.net 排列组合代码

第一题:

不需要任何控件,代码如下:

Private Sub Form_Click()

Dim A() As Integer, N As Integer

Dim St As String, I As Integer, J As Integer

Randomize

St = InputBox("数字vb.net控件组合的个数", "输入", Int(Rnd * 100))

If St = "" Then

MsgBox "请输入数字!"

Else

N = Int(Val(St))

If N 1 Then

MsgBox "请输入大于0的数字!"

Else

Exit Do

End If

Loop

ReDim A(N)

For I = 1 To N

St = InputBox("第" + Str(I) + "个数字", "输入", Int(Rnd * 100))

If St = "" Then

MsgBox "请输入数字!"

Else

A(I) = Int(Val(St))

Exit Do

End If

Loop

For I = 1 To N - 1

For J = I + 1 To N

If A(I) A(J) Then

A(0) = A(I)

A(I) = A(J)

A(J) = A(0)

End If

For I = 1 To N

Open App.Path "\" Trim(Str(I)) ".txt" For Output As #1

Print #1, A(I)

Close #1

Print "已经把"; N; "个数写入到"; App.Path; "\1.txt 到 "; N; ".txt中.请查看."

End Sub

'已经运行过.

第二题:

DIM 是变量声明语句,它的格式为:

dim 变量名[as 格式] [,变量名[as 格式][,变量名[as 格式]......]

其中:

变量名:以字母或汉字开始的字串,代表一个变量

格式有以下几种:

属于数字的有五种:

(1)字节型:byte可取值0-255

(2)整形:integer可取值-32768至32767

(3)长整形:long(可取值范围很大的正负整数)

(4)单精度型:single(可取值小数)

(5)双精度型:double(可取值范围更大,小数位数更多的小数)

字符串型:string(可代表由字母\数字或汉字组成的字符集合)

布尔型:boolean(取值为ture\false)

日期型:date(可表示形如2009-5-26 02:36这样的组合)

如果要用姓名\住址\单位名称...等用字符串型(string)

eg:dim name as string(用name变量表示名字时,声明成字符串变量)

如果是用数字需要做计算,如工资\合计\人数....等要用数字型,但有一个原则,优先选用范围小的(按照字节型(byte)\整形(integer)\长整形(long)\单精度型(single)\双精度型(double)的顺序选择),够用就可以vb.net控件组合了,这样可以占用内存少,运算速度快.

eg:dim count as integer(用integer表示员工人数时,可声明成整形变量)

eg:dim sum as single(用sum表示工资时,可声明成单精度型变量)

不知是否说得清楚了.

vb.net控件组合的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb 控件组、vb.net控件组合的信息别忘了在本站进行查找喔。