关于按钮的控件数组问题

guxiaoyu2002 2005-07-10 08:31:33

按钮的控件数组怎么用啊？

...全文

100 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

fishmans 2005-07-11

打赏
举报

回复

加载一个按钮，复制它，粘贴它，提示是否使用控件数组，是，然后双击它：

private sub command1_click(index as integer)
select case index
case 0
msgbox "clicked comand1(0)"
case 1
msgbox "clicked comand1(1)"
........'可粘贴更多
end select
end sub

guxiaoyu2002 2005-07-11

打赏
举报

回复

谢谢fishmans(金脚指)大哥啊，呵呵！！！

upsuper 2005-07-10

打赏
举报

回复

这个~就和其他的控件数组一样咯~就是Command1(Index).属性

使用QTfor语句创建控件数组（button[i]），方便大量控件调用，本程序以Qpushbutton为例，语言简洁

VB使用控件数组划直线，画矩形，画圆等，VB源码实现，代码简单，有参考性，对入门者友好。

VB 控件数组画图，每次输出新图形，前面的清除，可以画直线、矩形、圆。具体的代码操作，请看如下：　　Private Sub Form_Load() 　　 Picture1.Scale (0, 0)-(10, 10) '设置坐标系　　End Sub 　　Private Sub Command1_Click(Index As Integer) '控件数组的单击事件　　Picture1.Cls '每次输出新图形，前面的清除　　Picture1.FillStyle = 6 '填充十字线形　　Select Case Index 'index代表控件数组的索引号，用此分支结构判断用户单击了哪个按钮　　 Case 0 '用户单击控件数组里第一个命令按钮　　 Picture1.Print "画直线" 　　 Picture1.Line (2, 2)-(7, 7) '在图片框上画直线　　 Case 1 '用户单击控件数组里第二个命令按钮　　 Picture1.Print "画矩形" 　　 Picture1.Line (2, 2)-(7, 7), , BF '在图片框上画矩形　　 Case 2 '用户单击控件数组里第三个命令按钮　　 Picture1.Print "画圆" '在图片框上画圆　　 Picture1.Circle (4.5, 4.5), 3.5, , , , 1 　　 Case Else '用户单击控件数组里第一个命令按钮　　 End 　　 End Select 　　End Sub

VB使用控件数组的演示，控件数组能大大减化VB6.0的工作量，因此是我们有必要掌握的一个VB技巧。运行窗口后，点击按钮，即可生成控件数组，并按照设置自动循环相应内容。若要参考控件数组的核心文件，请下载源码后解压，参见hardway.Frm文件。

VB编程应用,利用按钮数组来控件简化的编程方法

1,451

社区成员

41,355

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章