Visual_Basic 板


LINE

既然是在讲2005..所以我就把标题换成 .NET 了~ ※ 引述《finch319 (Finch)》之铭言: : 我有一个很类似的问题 : 只是我的环境是Visual Basic 2005的 : 我的程式是有9x9共81个Button : 名称是Button00、Button01...Button88 : : vb6本来就可以把控制项开成阵列~ : : 你只要把 Name 设成一样, 他就会问你要不要建立阵列~ : : 然後你就可以用 For 来跑这些 Lables : : (vb6会自己帮你设Index,你也可以在属性修改) : : ' 用起来会像这样, 这是一个 Label1 的阵列 : : For i = 0 To Label1.Count - 1 : : Label1(i).Caption = 1 : : Next i 要达到这个目的方法有很多.. 看你自己适合用哪一个.. 比较简单(但比较没效率的法) Me.Controls("Button00") 这样就可以把 Button00 取出来了. 老话一句, 注意取出来的东西是 Control, 如果你只要操作他 Control 部份的特性 (像Text,Height,Top等等) 那就不用转型了, 如果是要操作Button特有的方法属性等等, 那要用CType转型 (依情况你还会需要判断是不是 Nothing, 因为Button??可能不存在) 这个方法衍生出来的另一个问题是, 怎麽用for-loop造出 "Botton00" 这个字串, 因为 "Button" & 0 是变成 "Button0" 这个可以用 String.Format("Button{0:00}", i) 来让i不足两位时补0 : 请问上面这个功能在2005有办法用吗 : 我把Button的名字设成一样 : 会出现"无效的属性值。"对话框 到从2002开始就不能直接从Designer把控制项设成同名来自动建立成阵列了.. 比较容易的作法就是上面讲的方法, 如果你熟悉 Array或List的话, 我会建议你用自己手动动态产生Button阵列自己手动放到 Form 上面 如果你的 Button的个数是静态的(不会或不常新增移除) 那建议你用 Array, 反之建议用 List 先宣告一个类别成员 Dim Buttons(81-1) as Buttons ' 用这个arrary存放你的buttons ' 在Form_Load或你想要的地方初始这81个 button ' 这段程式会在form上整齐放上81个button for i = 0 to Buttons.Length - 1 Buttons(i) = new Button() With Buttons(i) .Height = 20 ' 高 .Width = 20 ' 宽 .Top = (i mod 9) * 20 ' 上y .Left = (i \ 9) * 0 ' 左x .Text = i End With Me.Controls(Buttons(i)) ' 把这个Button放到你的 Form 上 Nexi 之後你要处理这81个button时, 就用像上面loop的方式处理他们 如果你要用List的方式作, 请自行参考如果使用 ArrayList 如果都觉得太麻烦, 也可以直接把 Form 上的 Controls全部弄出来, 再自行判断是不是你要的Button 看你要用 for i = 0 to Controls.Length-1 'Controls(i) ???? Next 还是 foreach c as Control in Controls ' c?? Next 然後你可以用 typeof c is Button 来判断c这个control是不是button 或用 c.Name 是不是 Button?? 再把他CType成Button去处理 : 我是希望能够透过阵列来更改这些Button的Image属性 : 不知道有没有办法做到? : 谢谢 --



※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.138.216.17
1F:推 finch319:感谢您的说明,我会再试试看的 06/22 23:41
2F:推 fumizuki:foreach 应该是 For Each 有空格才对? 06/24 10:16







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:Tech_Job站内搜寻

TOP