VB如何用代码创建一个按钮
发布网友
发布时间:2022-04-25 04:52
我来回答
共3个回答
热心网友
时间:2023-10-27 07:37
思路
两种方式:
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
热心网友
时间:2023-10-27 07:37
Option Explicit
Dim WithEvents cmdSayHello As CommandButton
Dim WithEvents cmdClose As CommandButton
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdSayHello_Click()
MsgBox "Hello world!", vbInformation, Me.Caption
End Sub
Private Sub Form_Load()
Set cmdSayHello = Me.Controls.Add("VB.CommandButton", "cmdSayHello")
With cmdSayHello
.Left = 4000
.Top = 250
.Width = 1200
.Height = 350
.Caption = "&Say Hello"
.Visible = True
End With
Set cmdClose = Me.Controls.Add("VB.CommandButton", "cmdClose")
With cmdClose
.Left = 4000
.Top = 700
.Width = 1200
.Height = 350
.Caption = "&Close"
.Visible = True
End With
End Sub
参考资料:http://topic.csdn.net/t/20051222/08/4473985.html
热心网友
时间:2023-10-27 07:38
Dim WithEvents Command1 As CommandButton
Private Sub Form_Load()
Set Command1 = Controls.Add("vb.commandbutton", "command1", Form1)
With Command1
.Width = 1800
.Height = 450
.Left = (Me.ScaleWidth - .Width) / 2
.Top = (Form1.ScaleHeight - .Height) / 2
.Caption = "我是打哪来的^o^"
.Visible = True
End With
End Sub
Private Sub Command1_Click()
MsgBox "乱按什么啊^&^!!!!" & Chr(10) & Chr(10) & "不理你了!!!", 48
Me.Controls.Remove Command1
End Sub
VB中如何用代码添加命令按钮
(1)新建一个VB6工程 (2)Form1窗体代码 Option Explicit'定义要动态添加的命令按钮变量(带事件处理)Dim WithEvents cmdX As CommandButton'点击动态添加的按钮,弹出对话框Private Sub cmdX_Click() MsgBox "动态添加的命令按钮!!!"End Sub'鼠标双击窗体,动态添加一个命令按钮Private Sub Fo...
VB6.0里如何加代码
1. 首先,你需要在窗体上绘制一个命令按钮Command1。这可以通过工具栏上的"命令按钮"图标或者通过拖拽鼠标在窗体上绘制完成。2. 接下来,添加一个复选框Check1。同样,通过工具栏或鼠标在Command1旁边放置一个复选框,它会自动关联到Command1。3. 然后,复制这两个控件。在工具栏上找到"复制"按钮,...
VB如何用代码创建一个按钮
1、通过动态按钮方式创建,2:通过控件数组方式创建。个人倾向于通过控件数组的方式。一般应用都是有规律的创建的,所以用控件数组合适些。举例 ' 先在窗体上添加一个标准按钮' 在属性窗口中,把它的 Index属性设置成 0' 名称改为 cmdDynCmd (其它的名称也行,注意后面的说明)' Visible 可以...
vb中想做一个按钮点击一下打开窗口,再点一下关闭窗口!于此循环!如何编辑...
新建两个窗体form1和form2 在两个窗体中各加一个命令按钮commnad1;在form1下的command1中编辑命令 form2.show 在form2下的command1中编辑命令 unload me 或unload form2 运行后:点击form1下的command1,弹出form2窗体;点击form2下的command1,关闭form2窗体;...
VB6.0如何用代码添加控件
在Frame1上画一个按钮 Add 方法(Controls 集合)示例 Private Sub Form_Load()Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1 With Form1!cmdObj1 .Visible = True .Width = 2000 .Caption = "Dynamic Button"End With End Sub 注意 上面的代码例子使用 ! 作为一个语法要素。您...
如何用VB做一个软件键盘?主要是数字键盘就行了!
1、lblResult Label控件 设置lblResult.Caption = 0 2、btnNum(0)~btnNum(9) 按钮控件数组,下标对应齐数字(如:btnNum(0).Caption=0,依次类推)3、添加btnAdd(加法)、btnSub(减法)、btnMul(乘法)、btnDiv(除法)、btnEnter(等于号)、btnReset(清除键)六个按钮。在窗体代码中输入...
VB设置一个按钮让窗体总在最前
Public Const HWND_TOPMOST=-1 '窗体总在最前面 Public Const HWND_NOTOPMOST=-2 '窗体不在最前面 为窗体添加代码如下:Private Sub Command1_Click()Form1.Caption = "现在是普通窗口"SetWindowPos Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flag End Sub Private Sub Command2_Click()Form1...
vb如何单击按钮增加按钮
使用控件数组,把command1的index设置为0 Dim j As Long, lf As Long, tp As Long Private Sub Command1_Click(Index As Integer)j = j + 1 Load Command1(j)lf = 10 tp = tp + 150 Command1(j).Left = lf Command1(j).Top = tp Command1(j).Visible = True End Sub ...
VB怎么添加一个动作,比如按某个按钮后某些文字的变化?
先在窗体上绘制一个CommandBox控件,然后贴代码:Private Sub Command1_Click()Command1.Caption ="文字更改"End Sub
VB如何实现窗体中添加按钮控件
1、打开VB6.0,新建一个工程,在窗体中添加一个命令按钮,caption分别改为“调用函数”,将窗体Form1的caption属性改为“VB6.0自定义函数”。2、双击窗体Form1,进入代码编辑窗口,单击左侧下拉三角形,选择通用。3、在通用段输入代码,并将Form_Load事件删除。4、双击“调用函数”命令按钮,进入代码编辑...