简单问题求救要分的快来呀(吐血求救)

huxinsheng 2003-05-15 09:41:36
我在from里面放了command1(命令按钮1)设置其caption(标题)属性设置为"确定"
名称属性设置未"ok".command2(命令按钮2)设置其caption(标题)属性设置为"退出"
名称属性设置未"cancel".然后我把退出的Enabled的属性设为False.
我想我用鼠标点击确定按钮的时候,退出按钮由灰色被激活可以被点击呀.
请教各位我该怎么编写代码......一个出血VB者的者"真情告白".
...全文
10 点赞 收藏 15
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ikey 2003-05-15
huxinsheng()您的下面的代码
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
回复
ecivilian 2003-05-15
我试过了,可以的啊。你看看程序中那个第二个按钮的名字对不对?可以把窗体里控件的名字打出来看一看。
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
回复
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
回复
_西瓜皮_ 2003-05-15
cancel(你的按钮的index值).enabled=ture
回复
onebody 2003-05-15
private sub OK_CLick()
Cancel.Enabled=ture
end sub
回复
阿晨0 2003-05-15
原因:你的Cancel按钮好像是放多了,成了数组!
"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
这是我编写的代码呀退出按钮就是不能从灰色被激活呀大家快来看看呀
回复
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
回复
自由之眼 2003-05-15
在ok的点击事件中添加
cancel.enable=ture
就行了。
回复
nik_Amis 2003-05-15
up
回复
相关推荐
综教楼后的那个坑用双向链表实现 描述   在 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 行上分别有两个整数,分别表示平面的宽度和高度。 输出   输出每个平面被水覆盖的时间。
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-15 09:41
社区公告
暂无公告