| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 627 人关注过本帖
标题:VB如何用实现自动50个按钮
只看楼主 加入收藏
vbyou126
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-27
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:9 
VB如何用实现自动50个按钮
VB用代何如何实现自动生产50个按钮,
搜索更多相关主题的帖子: 如何 
2015-06-10 09:29
vbyou126
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-27
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
2015-06-10 09:30
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:20 
回复 2楼 vbyou126
程序代码:
Option Explicit
Private WithEvents cmdobject As CommandButton
Private Sub form_load()
  Dim i As Integer
  Dim a As String
  For i = 1 To 5
    a = "command" & i
    Set cmdobject = Controls.Add("", a)
    cmdobject.Visible = True
    cmdobject.Caption = i
    cmdobject.Left = i * cmdobject.Width + 10
  Next
End Sub
简单写了一个示例,看看.

大开眼界
2015-06-10 10:16
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:0 
简单点。控件数组应该能实现吧

能编个毛线衣吗?
2015-06-10 10:43
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 4楼 wmf2014
解决方法是很简单,确实用到了控件数组,但具体如何做比较偏.我给他的例子,他如果试了,能发现问题.让他一步一步来

大开眼界
2015-06-10 10:54
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
看了三楼的代码,我总在想,如果需要 响应这个按钮的事件,该怎么写代码。
Private WithEvents cmdobject As CommandButton 这句只能响应最后一个按钮吧。
感觉还是定义为 控件数组 为好。

授人于鱼,不如授人于渔
早已停用QQ了
2015-06-10 12:57
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 6楼 风吹过b
本来这个问题想让他自己发现的。
楼主的要求主要体现在"自动"上

[ 本帖最后由 lianyicq 于 2015-6-10 13:08 编辑 ]

大开眼界
2015-06-10 13:02
vbyou126
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-27
收藏
得分:0 
看到头痛,放弃了不看
2015-06-10 17:20
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 8楼 vbyou126
本来不复杂,自己放弃了,就帮不上忙了

大开眼界
2015-06-10 17:22
落魄帝王
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2016-2-23
收藏
得分:0 
Option Explicit
Private WithEvents cmdobject As CommandButton
Private Sub form_load()
  Dim i As Integer
  Dim a As String
  For i = 1 To 50
    a = "command" & i
    Set cmdobject = Controls.Add(", a)
    cmdobject.Visible = True
    cmdobject.Caption = i
    cmdobject.Left = i * cmdobject.Width + 10
    If Width >= 3000 Then
    Set cmdobject.Left = 0
    cmdobject.Top = i * cmdobject.Height + 10
  Next
End Sub
没怎么学过VB的纯新来看看,我完全不知道怎么写,就这么写着看看,结果试了下,通不过,求教大神怎么搞?
2016-02-23 13:50
快速回复:VB如何用实现自动50个按钮
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041574 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved