w 疑问：谁能帮我缩短这些代码@@ - 电脑语言编程讨论区 JBTALKS.CC -->
Facebook Sharer
选择您要替换的背景颜色：
【农历新年】背景图片：
个性化设定
 注册  找回密码

JBTALKS.CC


-->
返回列表 发新帖
查看: 1363|回复: 7
打印 上一主题 下一主题

疑问：谁能帮我缩短这些代码@@

[复制链接]
死神之神

5

主题

0

好友

405

积分

翡翠长老

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6
跳转到指定楼层
1#
发表于 2009-8-2 06:03 PM |只看该作者 |倒序浏览
While dr.Read
                If Button22.Text = dr("place_id").ToString Then
                    Button22.Enabled = False
                End If
                If Button21.Text = dr("place_id").ToString Then
                    Button21.Enabled = False
                End If
                If Button20.Text = dr("place_id").ToString Then
                    Button20.Enabled = False
                End If
                If Button19.Text = dr("place_id").ToString Then
                    Button19.Enabled = False
                End If
                If Button18.Text = dr("place_id").ToString Then
                    Button18.Enabled = False
                End If
                If Button17.Text = dr("place_id").ToString Then
                    Button17.Enabled = False
                End If
                If Button16.Text = dr("place_id").ToString Then
                    Button16.Enabled = False
                End If
                If Button15.Text = dr("place_id").ToString Then
                    Button15.Enabled = False
                End If
                If Button14.Text = dr("place_id").ToString Then
                    Button14.Enabled = False
                End If
                If Button13.Text = dr("place_id").ToString Then
                    Button13.Enabled = False
                End If
                If Button12.Text = dr("place_id").ToString Then
                    Button12.Enabled = False
                End If
                If Button11.Text = dr("place_id").ToString Then
                    Button11.Enabled = False
                End If
                If Button10.Text = dr("place_id").ToString Then
                    Button10.Enabled = False
                End If
                If Button9.Text = dr("place_id").ToString Then
                    Button9.Enabled = False
                End If
                If Button8.Text = dr("place_id").ToString Then
                    Button8.Enabled = False
                End If
                If Button7.Text = dr("place_id").ToString Then
                    Button7.Enabled = False
                End If
                If Button6.Text = dr("place_id").ToString Then
                    Button6.Enabled = False
                End If
                If Button5.Text = dr("place_id").ToString Then
                    Button5.Enabled = False
                End If
                If Button4.Text = dr("place_id").ToString Then
                    Button4.Enabled = False
                End If
                If Button3.Text = dr("place_id").ToString Then
                    Button3.Enabled = False
                End If
                If Button2.Text = dr("place_id").ToString Then
                    Button2.Enabled = False
                End If
                If Button1.Text = dr("place_id").ToString Then
                    Button1.Enabled = False
                End If




代码 , 疑问
收藏收藏0

相关帖子
回复

使用道具 举报

Super-Tomato

7

主题

1

好友

5108

积分

一流名嘴

Rank: 12Rank: 12Rank: 12
2#
发表于 2009-8-2 06:40 PM |只看该作者
原帖由 死神之神 于 2009-8-2 06:03 PM 发表
While dr.Read
                If Button22.Text = dr("place_id").ToString Then
                    Button22.Enabled = False
                End If
                If Button21.Text = dr("place_ ...



使用 Array 的方式循環就可以縮減判斷, 如  Button(i).Text
回复

使用道具 举报

死神之神

5

主题

0

好友

405

积分

翡翠长老

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6
3#
发表于 2009-8-2 07:23 PM |只看该作者
那该怎么做
我试过用array了可是不成功
回复

使用道具 举报

zechs

13

主题

0

好友

6850

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13
4#
发表于 2009-8-2 08:18 PM |只看该作者
原帖由 死神之神 于 2009-8-2 07:23 PM 发表
那该怎么做
我试过用array了可是不成功


可不可以放code看看，还是你试试看用while loop来做。
回复

使用道具 举报

叛逆志文

87

主题

2

好友

3301

积分

版主

不驕方能師人之長者

Rank: 70Rank: 70Rank: 70Rank: 70Rank: 70Rank: 70Rank: 70

Hyuna 泫雅

5#
发表于 2009-8-11 11:18 PM |只看该作者
If Button <23.Text = dr("place_id").ToString Then
                    Button <23.Enabled = False
                End If

可不可以这样子？
我不懂的，用猜的..


回复

使用道具 举报

宅男-兜着走

46

主题

6

好友

6456

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13
6#
发表于 2009-8-11 11:48 PM |只看该作者

回复 #3 死神之神 的帖子

22 个btn 用for loop 来循环应该是可以的。
回复

使用道具 举报

宅男-兜着走

46

主题

6

好友

6456

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13
7#
发表于 2009-8-11 11:51 PM |只看该作者

回复 #5 叛逆志文 的帖子

你觉得呢？当然不可以
回复

使用道具 举报

goodday

13

主题

0

好友

2113

积分

白金长老

Rank: 10
8#
发表于 2009-8-12 10:31 PM |只看该作者
我懒哦
4 行搞定


               For i As Integer = 1 To 22
            Dim bt As String = "Button" + i.ToString()
            If CType(Panel1.FindControl(bt, True), Button) = dr("place_id").ToString() Then
           dim btnow as new button = CType(Panel1.FindControl(bt, True), Button)
btnow.enable = true;
end if
        Next

善用 FindControl
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2025-9-19 07:21 PM , Processed in 0.110511 second(s), 27 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services
本论坛言论纯属发表者个人意见，与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved
合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部