正在看, 但是它貌似不能实现 “每点击一次按钮,就生成一个文本框/按钮"这样的功能, 批量删除倒是看到了.net很容易做到,VB6还是用控件数组比较好,每次创建的时候指定Index属性 然后创建的click事件参数不一样 Private Sub Command1_Click() Private Sub Command1_Click(Index As Integer)
正在看, 但是它貌似不能实现 “每点击一次按钮,就生成一个文本框/按钮"这样的功能, 批量删除倒是看到了.net很容易做到,VB6还是用控件数组比较好,每次创建的时候指定Index属性 然后创建的click事件参数不一样 Private Sub Command1_Click() Private Sub Command1_Click(Index As Integer)嗯,给动态生成的按钮设置事件让其又生成一个按钮实现了,另外一个再用控件数组试试
先贴个完成的功能1, 【点command1-bt1和bt2】-【点bt1-bt3】
直接 Load Command1(i)
第二个功能也实现了,网上某个大神的,代码真是简短Private Sub Command1_Click(Index As Integer) Static i i = i + 1 'increase from 1 Load Command1(i) Command1(i).Visible = True ‘Command1(i).Left = Command1(i).Left + Command1(i).Width * i Command1(i).Top = Command1(i).Top + Command1(i).Height * i * 1.5 '设置位置 End Sub
AddHandler 新Button.Click, AddressOf 设计时添加的Button_Click
正在看, 但是它貌似不能实现
“每点击一次按钮,就生成一个文本框/按钮"这样的功能, 批量删除倒是看到了.net很容易做到,VB6还是用控件数组比较好,每次创建的时候指定Index属性
然后创建的click事件参数不一样
Private Sub Command1_Click()
Private Sub Command1_Click(Index As Integer)
正在看, 但是它貌似不能实现
“每点击一次按钮,就生成一个文本框/按钮"这样的功能, 批量删除倒是看到了.net很容易做到,VB6还是用控件数组比较好,每次创建的时候指定Index属性
然后创建的click事件参数不一样
Private Sub Command1_Click()
Private Sub Command1_Click(Index As Integer)嗯,给动态生成的按钮设置事件让其又生成一个按钮实现了,另外一个再用控件数组试试
【点command1-bt1和bt2】-【点bt1-bt3】
直接 Load Command1(i)
Static i
i = i + 1 'increase from 1
Load Command1(i)
Command1(i).Visible = True
‘Command1(i).Left = Command1(i).Left + Command1(i).Width * i
Command1(i).Top = Command1(i).Top + Command1(i).Height * i * 1.5 '设置位置
End Sub