按钮控件数组
2007-04-05 11:11
211 查看
Public Class ButtonArray
Inherits System.Collections.CollectionBase
Private ReadOnly HostForm As System.Windows.Forms.Form
'创建类的构造函数。
' Visual Basic
Public Sub New(ByVal host As System.Windows.Forms.Form)
HostForm = host
'Me.AddNewButton()
End Sub
Public Sub AddNewButton() '?AddHandler aButton.Click, AddressOf ClickHandler
' 创建 Button 类的新实例。
Dim aButton As New System.Windows.Forms.Button
' 将按钮添加到集合的内部列表。
Me.List.Add(aButton)
' 将按钮添加到由 HostForm 字段
' 引用的窗体的控件集合中。
HostForm.Controls.Add(aButton)
' 设置按钮对象的初始属性。
aButton.Top = Count * 25
aButton.Left = 100
aButton.Tag = Me.Count
aButton.Text = "按钮 " & Me.Count.ToString
'将事件与事件处理程序相关联
AddHandler aButton.Click, AddressOf ClickHandler
End Sub
'公开控件数组
Default Public ReadOnly Property Item(ByVal Index As Integer) As _
System.Windows.Forms.Button
Get
Return CType(Me.List.Item(Index), System.Windows.Forms.Button)
End Get
End Property
Public Sub Remove()
' 检查以确保存在要删除的按钮。
If Me.Count > 0 Then
' 从宿主窗体控件集合中删除添加到数组
' 的最后一个按钮。请注意在访问数组时
' 默认属性的使用。
HostForm.Controls.Remove(Me(Me.Count - 1))
Me.List.RemoveAt(Me.Count - 1)
End If
End Sub
'创建公共事件处理程序
Public Sub ClickHandler(ByVal sender As Object, ByVal e As _
System.EventArgs)
MessageBox.Show("您已单击按钮 " & CType(CType(sender, _
Button).Tag, String))
End Sub
Inherits System.Collections.CollectionBase
Private ReadOnly HostForm As System.Windows.Forms.Form
'创建类的构造函数。
' Visual Basic
Public Sub New(ByVal host As System.Windows.Forms.Form)
HostForm = host
'Me.AddNewButton()
End Sub
Public Sub AddNewButton() '?AddHandler aButton.Click, AddressOf ClickHandler
' 创建 Button 类的新实例。
Dim aButton As New System.Windows.Forms.Button
' 将按钮添加到集合的内部列表。
Me.List.Add(aButton)
' 将按钮添加到由 HostForm 字段
' 引用的窗体的控件集合中。
HostForm.Controls.Add(aButton)
' 设置按钮对象的初始属性。
aButton.Top = Count * 25
aButton.Left = 100
aButton.Tag = Me.Count
aButton.Text = "按钮 " & Me.Count.ToString
'将事件与事件处理程序相关联
AddHandler aButton.Click, AddressOf ClickHandler
End Sub
'公开控件数组
Default Public ReadOnly Property Item(ByVal Index As Integer) As _
System.Windows.Forms.Button
Get
Return CType(Me.List.Item(Index), System.Windows.Forms.Button)
End Get
End Property
Public Sub Remove()
' 检查以确保存在要删除的按钮。
If Me.Count > 0 Then
' 从宿主窗体控件集合中删除添加到数组
' 的最后一个按钮。请注意在访问数组时
' 默认属性的使用。
HostForm.Controls.Remove(Me(Me.Count - 1))
Me.List.RemoveAt(Me.Count - 1)
End If
End Sub
'创建公共事件处理程序
Public Sub ClickHandler(ByVal sender As Object, ByVal e As _
System.EventArgs)
MessageBox.Show("您已单击按钮 " & CType(CType(sender, _
Button).Tag, String))
End Sub
相关文章推荐
- 数组例子2:二维数组中的行列互换和按钮控件数组实现计算器界面(暂不支持计算功能,仅界面及简单输入)
- vb6.0按钮控件数组怎么设置快捷键(
- 数组与集合的应用之数组操作(按钮控件数组实现计数器界面)
- Java按钮控件数组实现计算器界面
- java按钮控件数组实现计算器界面示例分享
- Java按钮控件数组实现计算器界面
- 在滚动视图上添加的多张图片,清空数组但是还有图片存在界面上,是因为清空的是滚动父控件,子控件并没有销毁,按钮和按钮上的图片还是存在?
- C#按钮控件数组绑定按钮时间和键盘操作事件
- 基于JS分页控件实现简单美观仿淘宝分页按钮效果
- ToggleButton(双模按钮)控件
- 制作login.jsp页面,要求实现提供用户登陆的界面, 用户通过该界面输入用户名(控件名userName)和密码(控件名password), 然后点击“登录”按钮实现登陆操作.
- GridControl 控件添加按钮列
- 【iOS开发-56】案例BUG:按钮的enabled、控件的userInteractionEnabled以及两种提示框UIAlert和UIActionSheet
- 给VS2005的GridView控件自带的删除按钮添加确认
- gridview 控件添加删除按钮(二)
- VC单选按钮控件(Radio Button)用法
- Android控件之ZoomButton缩放按钮
- 用jQuery File Upload做的上传控件demo,支持同页面多个上传按钮
- CTreeCtrl 树状控件显示展开和折叠的按钮“+/-”
- 自绘控件之按钮类