Question

vb6.0动态增加按钮

怎么在vb6.0中动态循环增加按钮，并且按钮的caption等于数据库中“a"表中"名称"字段对应的字符串，并且新增的按钮按每行9个排列，还要响应动态增加按钮的单击事件，
是不是太复杂啦，那个高人来帮我呀，先给回答者十分，满意了分全部送

Answer 1

其实也不是很难，给你一个框架，作为参考吧。

具体的也只有你自己进行完善。

' 先在窗体上添加一个标准按钮
' 在属性窗口中，把它的 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

Answer 2

使用控件数组。