十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Public Class ControlValue
成都创新互联公司专业为企业提供临渭区网站建设、临渭区做网站、临渭区网站设计、临渭区网站制作等企业网站建设、网页设计与制作、临渭区企业网站模板建站服务,10年临渭区做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
Inherits Control
''' summary
''' 获取或设置控件的值。
''' /summary
System.ComponentModel.Browsable(True)
System.ComponentModel.Category("布局")
System.ComponentModel.Description("获取或设置控件的值。")
Public Property Value As String
End Class
tag是一个标记。
你想用来做什么标记都行,比使用自定义变量要清晰、易读一些。
比如,你可以在text控件中,用tag属性保存当前光标所在位置,当text重新获得焦点时,读出这个位置信息,就可以把光标定位到离开时的所在的位置。
如果你有多个text,用tag属性就可以比较清晰的标记出,哪个text的光标位置存在哪个tag属性中。
你也可以用自定义的变量来保存,但是不如使用tag属性易读。
也可以用来作为其他标志,就看你的需要了。
如控件自身无法设置滚动条,那就在父容器控件中(如FORM)使用滚动条解决问题。另外,也可将日期控件放在弹出窗口中,
i=1、2、3、4......
i=a
dim g as groupbox
g=me.controls.find("GroupBox" i)
if not g is nothing then
g.visible=true
end if
布局方面,建议你用FlowLayoutPanel,不用手工控制控件位置了。假设有一个FlowLayoutPanel1。
先在窗体类中建一个控件的集合:
Dim
TextBoxes
As
New
List(Of
TextBox)
在button1的
Click事件
中写:
For
i
=
1
To
5
'5是每次加入的数量
Dim
newTextBox
As
New
TextBox()
'newTextBox.Size
=
New
Size(100,20)
'
TextBoxes.Add(newTextBox)
'加入我们的集合中
FlowLayoutPanel1.Controls.Add(newTextBox)
'加到窗体的FlowLayoutPanel中去
Next
i
然后button2的Click事件中:
For
Each
itemTextBox
As
TextBox
In
TextBoxes
'这里的itemTextBox.Text就代表每个TextBox里的文本
'如果你需要清空,调用TextBoxes.Clear()和FlowLayoutPanel.Controls.Clear()即可
Next