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

[huxinsheng]

我在from里面放了command1(命令按钮1)设置其caption(标题)属性设置为"确定"
名称属性设置未"ok".command2(命令按钮2)设置其caption(标题)属性设置为"退出"
名称属性设置未"cancel".然后我把退出的Enabled的属性设为False.
我想我用鼠标点击确定按钮的时候,退出按钮由灰色被激活可以被点击呀.
请教各位我该怎么编写代码......一个出血VB者的者"真情告白".

[nik_Amis]

up

[自由之眼]

在ok的点击事件中添加
cancel.enable=ture
就行了。

[MoQi_123]

private sub OK_CLick()
Cancel.Enabled=ture
end sub

[huxinsheng]

大家说的都对呀,我找到原因啦.原来是我放啦一个command1然后又复制了一个,问题就出在复制上啦.所以我就给大家5分啦给啦ikey10分呀

[huxinsheng]

我是这么做的呀但是不行呀
退出按钮还是灰色的呀
所以我才问大家的呀是不是其他地方有问题呀

[huxinsheng]

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
这是我编写的代码呀退出按钮就是不能从灰色被激活呀大家快来看看呀

[阿晨0]

原因：你的Cancel按钮好像是放多了，成了数组！
"cancel_Click(Index As Integer)"
解决方法：删除你的取消按钮，然后重新放一个上去，再编写代码，
注意不要又使用数组，应该就可以了。

[onebody]

private sub OK_CLick()
Cancel.Enabled=ture
end sub

[_西瓜皮_]

cancel(你的按钮的index值).enabled=ture

[qingming81]

如果按钮已经是灰掉了的，你在其_Click中加cancel.Enabled = True也没有用。你只能在其它地方加这句代码：就是你想退的任何地方或任何时候。如在Form_click中加cancel.Enabled = True，则表示点击窗体时你想退出，这样才会使用cancel按钮可用。如果想立即退出，如下加代码：

cancel.Enabled = True
call cancel_click

[zhangxiushu]

名字cancel没问题么?
建议取个其它名称!

[TimLee✿]

把OK和Cancel改名~~要养成一个良好的编程习惯~~Cancel有可能是VB的保留字段~~


改成这样的名字就没问题了~ cmdOK cmdCancel

[ecivilian]

我试过了，可以的啊。你看看程序中那个第二个按钮的名字对不对？可以把窗体里控件的名字打出来看一看。
Dim obj As Control
For Each obj In Me.Controls
Debug.Print obj.Name
Next

[shmilu]

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

[ikey]

huxinsheng()您的下面的代码
Private Sub cancel_Click(Index As Integer)
Unload Me
End Sub
明显表明是个控件数组.

cancel(index值).enabled=ture就可以了.