vb.net动态创建按钮 vb自动点击按钮

VB.NET中如何动态创建控件

Option Explicit

成都创新互联是专业的蓬溪网站建设公司,蓬溪接单;提供成都网站设计、网站建设、外贸网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行蓬溪网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

Private WithEvents NewTextBox As TextBox

'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()

If NewTextBox Is Nothing Then

Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)

NewTextBox.Move 200, 200

NewTextBox.Width = Form1.Width - 450

NewTextBox.Height = Form1.Height - 1400

NewTextBox.Visible = True

End If

End Sub

Private Sub Command2_Click()

If NewTextBox Is Nothing Then

Exit Sub

Else

Controls.Remove NewTextBox

Set NewTextBox = Nothing

End If

End Sub

VB如何用代码创建一个按钮

思路

两种方式:

1、通过动态按钮方式创建,

2:通过控件数组方式创建。

个人倾向于通过控件数组的方式。一般应用都是有规律的创建的,所以用控件数组合适些。

举例

' 先在窗体上添加一个标准按钮

' 在属性窗口中,把它的 Index属性设置成 0

'        名称改为 cmdDynCmd (其它的名称也行,注意后面的说明)

'        Visible 可以设置成 False

Option Explicit

Private lCmdIndex As Long

Private Sub LoadCmdButton()

'这儿就是加载动态按钮的

Dim i

For i = 0 To NNN   '这儿NNN等于你需要的按钮数减1,可以用变量的

'你应该能通过你的“数据库中"a"表中"名称"字段”项目数 来确定值为多少

' *** 注意这儿的 cmdDynCmd 就是设计时确定的按键名称 ***

If (lCmdIndex  0) Then Load cmdDynCmd(i)

cmdDynCmd(i).Visible = True

'这儿的 Caption 属性,你自己用代码跟你的 数据库中"a"表中"名称"字段内容关联

cmdDynCmd(i).Caption = "动态按钮"  i + 1

'这儿的 x 、y 你可以根据 i 的值来进行计算

cmdDynCmd(i).Top = X

cmdDynCmd(i).Left = Y

'直接 cmdDynCmd(i).move x, y也行

next

End Sub

' 这儿就是动态按钮的事件代码

' 根据 Index 判断是哪个按钮触发了事件

' 跟你事先设计好的控件数组完全是相同的用法

' ***** 注意!!!注意这儿的 cmdDynCmd 就是设计时确定的按键名称

Private Sub cmdDynCmd_Click(Index As Integer)

MsgBox "你点击的是第 "  Index + 1  " 个动态按钮。", 64

'具体事件代码只能你自己写

End Sub

vb.net 动态填加按钮,点击按钮时在TextBox1中显示被点击的按钮名如button1

'vb.net2008

Public Class Form1

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

Dim j_MyButton As New ArrayList

For i = 0 To 5

Dim k1 As New Button

k1.SetBounds(20, 22 * i, 100, 20) '设置位置和大小(x y w h)

k1.Visible = True

AddHandler k1.Click, AddressOf my_button '委托点击事件

Me.Controls.Add(k1) '在主窗口内加入控件

j_MyButton.Add(k1)

j_MyButton(i).name = "发现" i "个MM"

j_MyButton(i).text = "My butten " i

Next

End Sub

Private Sub my_button(ByVal sender As System.Object, ByVal e As System.EventArgs)

TextBox1.AppendText(sender.name vbCrLf)

End Sub

End Class

vb.NET 生成按钮

Public Sub GenerateDynamiceButton()

'建立 坐标位置的变数, 方便一会儿安排 自动生产的button 的位置

Dim y As Integer = 15

Dim x As Integer = 0

' 用for loop 来建立 这些button 做 18只button

For ButtonIndex As Integer = 0 To 17

' 建造新的 button

Dim MyButton As New Button

'设定这新的button 的阔度

MyButton.Width = 80

'设定这新的button 的高度

MyButton.Height = 20

'我们暂定每行有4个BUTTON, 当每行有多个4个BUTTON 时重设行距, 令到下一行的和这一行的距离有10 个PIXEL

' 和重设x 坐标` = 0, 令到位置由头开始

If ButtonIndex Mod 4 = 0 Then

'设定 TOP 的 坐标位置令他可以和上一排的有10个PIXEL 的距离

y += MyButton.Height + 10

x = 0

End If

'设定文字 和 位置

' Set the text and set its top and left based on its dimensions and count

MyButton.Text = "My Button" ButtonIndex

'设定 TOP 的 坐标位置

MyButton.Top = y

'下面的CODE 可以令到这个BUTTON 和另一个BUTTON 有5个PIXEL 的距离

MyButton.Left = 26 + (x * (MyButton.Width + 5))

x += 1

'设定 BUTTON CLICK EVENT

AddHandler MyButton.Click, AddressOf MyButton_Click

'把button 加到 form 中

Me.Controls.Add(MyButton)

Next

End Sub

'处理 button click event

Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim btn As Button = sender

'pop up 一个自己button 的字的message

MsgBox(btn.Text)

VB.net 怎么去除动态创建按钮的焦点边框

wpf\winform\web?

wpf 和 winform 无非就是在事件里面修改button的属性。

web 里面的话,前端还是使用javascript对dom元素进行修改。


分享标题:vb.net动态创建按钮 vb自动点击按钮
标题URL:http://pwwzsj.com/article/hpspdi.html