黑黑蟹 黑黑蟹
关注数: 3 粉丝数: 156 发帖数: 4,187 关注贴吧数: 16
（help）彩笔求教！ 我有7个command 有6个初始可用，一个不可用。前六个运行后自动调为不可用，想使当前6个全部运行后即全部不可用后，第七个才可用，怎么办。 我的办法是在前六个的最后加上了一个IF语句。 “If Command1.Enabled = False And Command2.Enabled = False And Command3.Enabled = False And Command4.Enabled = False And comman5.Enabled = False And Command6.Enabled = False Then Command7.Enabled = True End If” 但是条件到达后，第七个还是不可用，为何啊？ 以下是我的程序。 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer ---------------------------------------------- Private Sub Command1_Click() Randomize a = Int(Rnd() * 9) + 1Text1.Text = Str(a) Command1.Enabled = False If Command1.Enabled = False And Command2.Enabled = False And Command3.Enabled = False And Command4.Enabled = False And comman5.Enabled = False And Command6.Enabled = False Then Command7.Enabled = True End If End Sub ---------------------------------------------- Private Sub Command2_Click() Randomize b = Int(Rnd() * 9) + 1Text2.Text = Str(b) Command2.Enabled = False If Command1.Enabled = False And Command2.Enabled = False And Command3.Enabled = False And Command4.Enabled = False And comman5.Enabled = False And Command6.Enabled = False ThenCommand7.Enabled = TrueEnd If End Sub ---------------------------------------------- Private Sub Command3_Click() Randomize c = Int(Rnd() * 9) + 1Text3.Text = Str(c) Command3.Enabled = False If Command1.Enabled = False And Command2.Enabled = False And Command3.Enabled = False And Command4.Enabled = False And comman5.Enabled = False And Command6.Enabled = False ThenCommand7.Enabled = TrueEnd If End Sub ---------------------------------------------- Private Sub Command4_Click() Randomize d = Int(Rnd() * 9) + 1Text4.Text = Str(d) Command4.Enabled = False If Command1.Enabled = False And Command2.Enabled = False And Command3.Enabled = False And Command4.Enabled = False And comman5.Enabled = False And Command6.Enabled = False Then Command7.Enabled = True End If End Sub ---------------------------------------------- Private Sub Command5_Click() Randomize e = Int(Rnd() * 9) + 1Text5.Text = Str(e) Command5.Enabled = False If Command1.Enabled = False And Command2.Enabled = False And Command3.Enabled = False And Command4.Enabled = False And comman5.Enabled = False And Command6.Enabled = False ThenCommand7.Enabled = True End If End Sub ---------------------------------------------- Private Sub Command6_Click() Randomize f = Int(Rnd() * 9) + 1Text6.Text = Str(f) Command6.Enabled = False If Command1.Enabled = False And Command2.Enabled = False And Command3.Enabled = False And Command4.Enabled = False And comman5.Enabled = False And Command6.Enabled = False Then Command7.Enabled = True End If End Sub ---------------------------------------------- Private Sub Command7_Click() Randomize g = Int(Rnd() * 9) + 1 Text7.Text = Str(g) Command7.Enabled = False Text8.Text = Str(a) + Str(b) + Str(c) + Str(d) + Str(e) + Str(f) + "+" + Str(g) End Sub ---------------------------------------------- Private Sub Command8_Click() End End Sub ---------------------------------------------- Private Sub Command9_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = "" Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = Fals End Sub ---------------------------------------------- Private Sub Form_Load() End Sub
本人随机选手，面对熊鹿，DH。咋么破 RT
本人有150，怎么用？ RT 喜玩八人军争
同学们知道那个疯狂的www.fuckqq.com吗？ 网址所有屌丝腾讯微博http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ft.qq.com%2Fxuxianbiao34&urlrefer=433851630815207452fdbd08848b0f9d
这年头为毛没ORG VS 吹风玩兽族法师流呢？？ 求解，看当年Replay感觉瓜比用的好牛啊
我就是来黑校讯通的。 校讯通这种渣渣赶快取消吧，进出门才几台？？学校几千人，刷的过来吗？ 想想学生中有几个会在门口翻包找卡？再让傻不拉鸡的电子音叫出来，一直想掐死那个声音。 如果说不是思考不到位（最好不是，否则智商关系），就是为了黑学生家长的票票（最好不是，否则原则关系）。 综上所述，把那几只门口的绿色铁皮盒拆了吧。
3号床的刚刚你老婆来短信说她有了。问你要不要 RT
铁甲依然在 嗯.rt
新生报到求笼罩，二高有没有电竞玩家啊（galgame也行额..） RT。 嗯，主要指魔兽争霸的solo和星际1、2. 有爱的盆友，不要忘记留名
铁甲依然在 轻轻试水，坐等回复。
从向前行驶的车上跳下，为了不摔跤应该往哪跳 RT向前还是向后，为什么？ 求解
离子无法共存的猜想 在复分解反应中发生条件是气体 沉淀 水 而碳酸则是特殊的存在。反应物中凡是有碳酸生成的就分解为水和二氧化碳，试猜想当某条件下碳酸可以稳定存在，那么产生碳酸而没有气体 沉淀 水 生成的反应是否无法发生，如果发生是否与复分解反应条件相悖。 同样是否可以说当NaOH与CaCl在饱和澄清石灰水中是否可以反应。
人族面对不死暴龙鹰流弊否？ RT
趁乱插一腿，日本真小人啊。 趁中国忙腾不出，就来插一腿，佩服
建议：愿意让座的朋友坐在照顾专座上。 现在公交车上的照顾座位总是被青年坐着，而越坐着这些位置的人越是不愿让座，建议愿意让座的朋友坐在照顾专座上。
到哪买化学药剂啊 RT
饿了，去买泡面，你们说买什么的好呢？ RT
会员名字又改了..... @灭世福音 @生存与尊严 @羽扇vs银枪
求各位道友求助，贫道在泰山之巅被西域秃驴封印，就要被炼化了求！ 再说一遍我在泰山之巅，封印正在发出阵阵的紫光！道友们快来救贫道啊！！！
来看看一个初三学生眼中的的学校吧！（连载） 一楼送给老师。我不是什么黑，希望大家能理性地看，我不表达什么观点。首先说明一下我不是非主流，和NC，LZ很阳光。觉得不错或看在LZ苦劳的上,赞下. 不喜勿喷，右上角你懂得。
来看看一个初三学生眼中的的学校吧！ 一楼送给老师。
我看的是神马片子？？？？？？？？？？？？？？？？！！！！！
2个题目 在水中，有一架天平，左右各有一个相同的瓶子（装满水），左瓶无盖，右瓶有盖，问天平的状态。 0 1 2 3 5 8 7 9 （）+（）=（）（） （）-（）=（）
毛主席的一篇文章 中国社会各阶级的分析 （1926年3月） 谁是我们的敌人？谁是我们的朋友？.................................................................
本吧最大的反动派是谁？？？？ rt
每年的两个情人节总是那么寂寞.... 光棍族要拆散天下有情人啊!!!! 希望晚上在路上遇到一对情人，男的被一辆救护车撞倒，然后我上把那男的搬上车，然后目送他们离去，之后对女孩说，放心他一定会没事的！！！ Last.
英雄无敌6 的正版光盘的价格大概在多少左右啊？ 决定去买了 不过太贵就算了
求bt图——————亵渎 啊啊啊啊啊~~~~~
穿蒙骗人的帖子呢？ 在哪啊？ 有人拜我为师 为了教导学生 找资料
问题啊 我玩暗黑，是不是的卡一下，有时眺出“we get a big error here :( ”有时蓝屏然后是什么nv4 什么原因啊。 求教啊。有补丁吗？ 跪谢~~~~
2008年六零四的加下 同学阿........779042680
刷帖 十五字十五字十五字十五字十五字
电脑 怎么打左上方的数字啊 rt
初二学生求教 从理论上讲，一切物质都可以组合吗
h3中为何无法选元素啊 求救
初二求教 关于化合价.原子质量间的换算是怎么一会事
新手求教 为什么我选不了元素啊
为什么删我帖子 http://tieba.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=11504766469&z=1018430723
首页 1 2 下一页