Private WithEvents ctlObject As CommandButton在对象ctlObject的click里写程序就可以了
load 你的控件数组 your_checkbox_Click(Index As Integer) Select Case Index Case 0’表示第一个控件checkbox(0) '写你的代码 case 1 end Select End Sub
感谢您使用微软产品。您可以参考以下一篇文章:Q190670 - HOWTO: Dynamically Add Controls to a Form with Visual Basic 6.0 http://support.microsoft.com/support/kb/articles/q190/6/70.asp - 微软全球技术中心 VB技术支持立即参加微软认证的“最有价值专家”评选,赢取价值万元以上的丰富奖品!详情参见(http://www.csdn.net/expert/Topic/456/456919.shtm)本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
Select Case Index
Case 0’表示第一个控件checkbox(0)
'写你的代码
case 1
end Select
End Sub
http://support.microsoft.com/support/kb/articles/q190/6/70.asp - 微软全球技术中心 VB技术支持立即参加微软认证的“最有价值专家”评选,赢取价值万元以上的丰富奖品!详情参见(http://www.csdn.net/expert/Topic/456/456919.shtm)本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
声明控件变量时用 WithEvents