7490
社区成员
- 全部
简单问题求救要分的快来呀(吐血求救)
我在from里面放了command1(命令按钮1)设置其caption(标题)属性设置为"确定"
名称属性设置未"ok".command2(命令按钮2)设置其caption(标题)属性设置为"退出"
名称属性设置未"cancel".然后我把退出的Enabled的属性设为False.
我想我用鼠标点击确定按钮的时候,退出按钮由灰色被激活可以被点击呀.
请教各位我该怎么编写代码......一个出血VB者的者"真情告白".
名称属性设置未"ok".command2(命令按钮2)设置其caption(标题)属性设置为"退出"
名称属性设置未"cancel".然后我把退出的Enabled的属性设为False.
我想我用鼠标点击确定按钮的时候,退出按钮由灰色被激活可以被点击呀.
请教各位我该怎么编写代码......一个出血VB者的者"真情告白".
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
ikey 2003-05-15
huxinsheng()您的下面的代码
Private Sub cancel_Click(Index As Integer)
Unload Me
End Sub
明显表明是个控件数组.
cancel(index值).enabled=ture就可以了.
Private Sub cancel_Click(Index As Integer)
Unload Me
End Sub
明显表明是个控件数组.
cancel(index值).enabled=ture就可以了.
shmilu 2003-05-15
Private Sub cancel_Click(Index As Integer)
Unload Me
End Sub
Private Sub Form_Load()
Dim password As String
password = InputBox("输入密码", "密码框")
Do While password <> "12345"
password = InputBox("输入密码", "密码框")
Loop
End Sub
Private Sub ok_Click()
labll.Caption = "你好，世界"
Cancel(0).Enabled = ture
End Sub
Unload Me
End Sub
Private Sub Form_Load()
Dim password As String
password = InputBox("输入密码", "密码框")
Do While password <> "12345"
password = InputBox("输入密码", "密码框")
Loop
End Sub
Private Sub ok_Click()
labll.Caption = "你好，世界"
Cancel(0).Enabled = ture
End Sub
ecivilian 2003-05-15
我试过了，可以的啊。你看看程序中那个第二个按钮的名字对不对？可以把窗体里控件的名字打出来看一看。
Dim obj As Control
For Each obj In Me.Controls
Debug.Print obj.Name
Next
Dim obj As Control
For Each obj In Me.Controls
Debug.Print obj.Name
Next
TimLee✿ 2003-05-15
把OK和Cancel改名~~要养成一个良好的编程习惯~~Cancel有可能是VB的保留字段~~
改成这样的名字就没问题了~ cmdOK cmdCancel
改成这样的名字就没问题了~ cmdOK cmdCancel
zhangxiushu 2003-05-15
名字cancel没问题么?
建议取个其它名称!
建议取个其它名称!
qingming81 2003-05-15
如果按钮已经是灰掉了的，你在其_Click中加cancel.Enabled = True也没有用。你只能在其它地方加这句代码：就是你想退的任何地方或任何时候。如在Form_click中加cancel.Enabled = True，则表示点击窗体时你想退出，这样才会使用cancel按钮可用。如果想立即退出，如下加代码：
cancel.Enabled = True
call cancel_click
cancel.Enabled = True
call cancel_click
_西瓜皮_ 2003-05-15
cancel(你的按钮的index值).enabled=ture
onebody 2003-05-15
private sub OK_CLick()
Cancel.Enabled=ture
end sub
Cancel.Enabled=ture
end sub
阿晨0 2003-05-15
原因：你的Cancel按钮好像是放多了，成了数组！
"cancel_Click(Index As Integer)"
解决方法：删除你的取消按钮，然后重新放一个上去，再编写代码，
注意不要又使用数组，应该就可以了。
"cancel_Click(Index As Integer)"
解决方法：删除你的取消按钮，然后重新放一个上去，再编写代码，
注意不要又使用数组，应该就可以了。
huxinsheng 2003-05-15
Private Sub cancel_Click(Index As Integer)
Unload Me
End Sub
Private Sub Form_Load()
Dim password As String
password = InputBox("输入密码", "密码框")
Do While password <> "12345"
password = InputBox("输入密码", "密码框")
Loop
End Sub
Private Sub ok_Click()
labll.Caption = "你好，世界"
Cancel.Enabled = ture
End Sub
这是我编写的代码呀退出按钮就是不能从灰色被激活呀大家快来看看呀
Unload Me
End Sub
Private Sub Form_Load()
Dim password As String
password = InputBox("输入密码", "密码框")
Do While password <> "12345"
password = InputBox("输入密码", "密码框")
Loop
End Sub
Private Sub ok_Click()
labll.Caption = "你好，世界"
Cancel.Enabled = ture
End Sub
这是我编写的代码呀退出按钮就是不能从灰色被激活呀大家快来看看呀
huxinsheng 2003-05-15
我是这么做的呀但是不行呀
退出按钮还是灰色的呀
所以我才问大家的呀是不是其他地方有问题呀
退出按钮还是灰色的呀
所以我才问大家的呀是不是其他地方有问题呀
huxinsheng 2003-05-15
大家说的都对呀,我找到原因啦.原来是我放啦一个command1然后又复制了一个,问题就出在复制上啦.所以我就给大家5分啦给啦ikey10分呀
MoQi_123 2003-05-15
private sub OK_CLick()
Cancel.Enabled=ture
end sub
Cancel.Enabled=ture
end sub
自由之眼 2003-05-15
在ok的点击事件中添加
cancel.enable=ture
就行了。
cancel.enable=ture
就行了。
nik_Amis 2003-05-15
up
吐血求救了！请问怎样重新加载Linux的内核Kernel软件包，恢复grub从/dev/hda5的第一个超级块扇区的启动？ 但那只能做Linux启动软盘吧，可我的启动软盘很好呀，可以从软盘启动登进去呀，就是不能从硬盘登进去，就是想怎样恢复从Windows菜单选择恢复登到Linux系统，我要的可是Linux启动不是从MBR启动啊。现在用安装光盘总也...
吐血啦！api 高手请进，这可怎么用呀？高手能指点我吗？ 我是用 sdk 来编程的，做一个专家系统，用了多文档界面，可是不会用这个 api 函数： EnumChildWindows(hWndParent,lpEnumFunc,lParam)? 能向高手求救吗？最好使用个例子，再加上解释！！！并希望和 api 高手共同讨论...
WEB开发文档2 总结 http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载...显示数据下载中文名文件时保存文件名乱码问题关于用ASP.net绘图的问题...
我在CSDN参与的3000个帖子 今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐...
互动媒体技术——十二个“一”的文艺创作（拓展）：《将孤就异罪》 小说索引目录： Chapter1 .降生——缺陷 Chapter2. 孩童——阴影 Chapter3. 寻爱——激化 Chapter4. next one，it’s your turn 结语：本次创作的感想与目的 主要人物简介： （人物形象均为板绘...人物...
在我心目中的霸气海贼王——路飞 不一样的路飞 路飞看起来说话做事脑子不转弯。但他是个大智若愚的人。很清楚自己应该干什么。有着天生做王者的魄力与霸气。虽然路飞有时说话不经过大大脑，让人想生气都提不起劲。但没几个人敢真正说路飞不聪明。...
《伤心秦汉》2、从胯下崛起的将军——大汉淮阴侯韩信 【档案】 姓名：韩信 外号：兵仙 性别：男 籍贯：淮阴(今江苏省淮阴西南) 学历：无文凭，自学成才 秦始皇焚书坑儒是在公元前213年，所以，楚汉群雄其实少时都曾读过书，韩信肯定也是读过的，而且学的应该是...
转--《煮酒探西游》吴闲云 (3)殷小姐为什么要绣球招亲 (4)唐僧的亲爹究竟是谁 (5)小姐为什么要弃婴江中 (6)唐僧复仇 (7)观音菩萨的黑帐 (8)唐僧的相貌之谜 (9)唐僧为什么要取经 (10)唐太宗地府还魂 (11)真经究竟有什么作用 (12)取经...
盘点2017年的非技术阅读 一年已尽，突然想简单理一下那些刚刚过去的一年翻的那些个杂七杂八的书。也算是对那些个挤地铁的时间和零碎时间有个交待。 1、《激荡三十年：中国企业1978-2008》 1978年~2008年的中国，却是最不可能重复的。在一个...
[大话IT]爆笑电脑维修(转载) 一客户：“键盘M键不灵，你带个来换！”带键盘，到客户家。M键很灵“M键很灵嘛！”“真的不灵，按几下就按不起了。”他打开《抢滩登陆》给我演示，果不然！在游戏中M键是导弹，一版只有几发！无语…… -------------...
一个不知名前辈的创业史（血泪） 2005年我的第一次软件行业创业，烧掉30万、2年时间打水漂的惨痛教训 ... 我是2000年从黑龙江大学计算机软件专业毕业后到浙江宁波工作的，在大学当了一年网络中心的老师后，感觉自己还是疯狂喜欢软件行业，不太...
放松心情，慢慢看~ 又是提问时间，主持人的问题是:历史上活得最久的皇帝是谁。选了一个我们班的奇葩，那货悠悠的对着话筒答到:“玉皇大帝……”，前面三排的领导憋到内伤，我们班主任的脸瞬间布满黑线。 2、我一朋友，高考结束...
笨兔兔的故事（下） (87) 间歇 只见Totem身后闪出一人，正是GNOME Mplayer。一看这名字您就知道了，这是G帮的人。SMplayer一看见他，顿时也是心里犯嘀咕。为什么呢？您众位大概有所不知，这GNOME Mplayer和SMplayer其实都不过是...
博弈论集锦 《新约马太福音》中有这样一个故事，一个国王远行前，交给三个仆人每人一锭银子，吩咐他们：“你们去做生意，等我回来时，再来见我。”国王回来时，第一个仆人说：“主人，你交给我们的一锭银子，我已赚了10锭。”...
雅典娜暴利烹饪系列（上） 刨冰事件 田中大人曾经问过：和平是无聊的的代名词吗？答：不是。 今天的圣域在纱织的领导下，依然过着比战时更加热闹的日子。 早晨出门时，修罗觉得自己是这个世界上最为幸福的人。为了庆祝他拿到特级厨师证书，...
易中天∑品读汉代风云人物 《易中天品读汉代风云人物》 ------------冤死的晁错(上)（1）------------ 电视连续剧《汉武大帝》中，晁错是第一个出场的重要人物，也是第一个被冤杀的功臣。当时就有人认为他死得很冤。 晁错是西汉初期的政治...
十大感动爱情 上海知青刘行军和他东北妻子的爱情故事 ... 这是一篇非常感人的报道。历经辛酸坎坷，终于同18年前的爱人生活到了一起，黑龙江省五大连池市女子王亚文和知青刘行军之间的动人爱情故事，演绎了生活版的“小芳的故事”。...
（转）Oracle数据库资料收藏 收藏此资料供参考 1、UNIX基本培训 - [fjlin]2、AIX入门与提高（1）－中文 - [richard_he]3、PL/SQL上课记录 - [jxdco]4、[分享]2005年IBM原厂的AIX培训资料 - [fsm]5、Oracle入门 让学习更轻松 - [migr...
三國演義與三國志兩部文本的導讀概要2019年5月11日 ◆广州市社科联、广州市作家协会、扶光书店、“我们”读书小组◆联合于2019年5月11日下午十五点到十七点在扶光书店，邀请“中山大学社会学系与社会工作系主任、博士生导师、中国社会学会消费社会学专业委员会理事长...
Oracle数据库资料收藏 Oracle数据库资料收藏 1、UNIX基本培训 - [fjlin]2、AIX入门与提高（1）－中文 - [richard_he]3、PL/SQL上课记录 - [jxdco]4、[分享]2005年IBM原厂的AIX培训资料 - [fsm]5、Oracle入门 让学习更轻松 - [migrator]6...
包子和馒头的恩怨完全版 包子和面条大打出手，但是包子因为太肉脚， 被面条打的落花流水， 于是在离去时，对面条撂下一句:‘好胆别走，我去叫伙伴来教训你’ 包子就去约了煎包、馒头、面包等，准备去找面条理论理论， 就在路上遇到了泡面， ...
大唐惊变 function change_bodyground(){ tech_body.className=body3;}var colorrnd2=new Array("#6699cc","#669999","#CC66CC","#FF66FF")function changecolor2(){ f2.style.color=colorrnd2[Math.
排班表生成工具std 工作中经常需要排班,值班,专门制作了一个工具程序,用于一组人排夜间轮流值班表,排班中自动避开设定的假日,按照设定的规则和时间范围进行排班,也可以方便地按小时排班.并据要求在排班时避让特殊类别人员(例如夜班避开女生),如果节假日也要值班的话,就把所要值班的节假日删除掉即可.
自己动手从0到1写嵌入式操作系统 这不是rtos源码分析的课程，而是为初级的同学设计，从基础原理讲师，一步步不断迭代设计rtos的课程！
用不到【2000行代码，汇编代码仅18行】（不含注释）实现一个精巧的可以运行在ARM Cortex-M内核芯片上的RTOS！
该RTOS功能与ucos类似，具体实现不同。学习之后，再去学习ucos之类的系统将没有什么问题。 1、系统地掌握RTOS的工作原理及其应用；
2、用更短的时间、更少的精力，学习RTOS相关知识；
3、设计出一个具备自己特色的RTOS。将其用作毕业设计、找工作的敲门砖；
4、提升技术水平，为升职加薪跳槽提供资本。
综教楼后的那个坑用双向链表实现 描述
在 LIT 综教楼后有一个深坑，关于这个坑的来历，有很多种不同的说法。其中一种说法是，在很多年以前，这个坑就已经在那里了。这种说法也被大多数人认可，这是因为该坑有一种特别的结构，想要人工建造是有相当困难的。
从横截面图来看，坑底成阶梯状，由从左至右的 1..N 个的平面构成（其中 1 ≤ N ≤ 100,000），如图：
＊ ＊ :
＊ ＊ :
＊ ＊ 8
＊ ＊＊ ＊ 7
＊ ＊＊ ＊ 6
＊ ＊＊ ＊ 5
＊ ＊＊＊＊＊＊＊＊＊ 4 <- 高度
＊ ＊＊＊＊＊＊＊＊＊ 3
＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 2
＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 1
平面 ｜ 1 ｜2｜ 3 ｜
每个平面 i 可以用两个数字来描述，即它的宽度 Wi 和高度 Hi，其中 1 ≤ Wi ≤ 1,000、1 ≤ Hi ≤ 1,000,000，而这个坑最特别的地方在于坑底每个平面的高度都是不同的。每到夏天，雨水会把坑填满，而在其它的季节，则需要通过人工灌水的方式把坑填满。灌水点设在坑底位置最低的那个平面，每分钟灌水量为一个单位（即高度和宽度均为 1）。随着水位的增长，水自然会向其它平面扩散，当水将某平面覆盖且水高达到一个单位时，就认为该平面被水覆盖了。
请你计算每个平面被水覆盖的时间。
灌水 水满后自动扩散
| |
* | * * | * * *
* V * * V * * *
* * * .... * *~~~~~~~~~~~~*
* ** * *~~~~** : * *~~~~**~~~~~~*
* ** * *~~~~** : * *~~~~**~~~~~~*
* ** * *~~~~**~~~~~~* *~~~~**~~~~~~*
* ********* *~~~~********* *~~~~*********
*~~~~********* *~~~~********* *~~~~*********
************** ************** **************
************** ************** **************
4 分钟后 26 分钟后 50 分钟后
平面 1 被水覆盖 平面 3 被水覆盖 平面 2 被水覆盖输入
输入的第一行是一个整数 N，表示平面的数量。从第二行开始的 N 行上分别有两个整数，分别表示平面的宽度和高度。
输出
输出每个平面被水覆盖的时间。
