以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  按钮可用与不可用如何切换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177995)

--  作者：min-fox --  发布时间：2022/6/14 12:29:00 --  按钮可用与不可用如何切换 蓝老师：在窗体中，我想实现通过Label的变化实现Button1的可用与不可用切换，下面的代码实现不了。 Dim lab As WinForm.Label = e.Form.Controls("Label1") If lab.Text = "★" Then     e.Form.Controls("Button1").Enabled = False Else     e.Form.Controls("Button1").Enabled = True  End If

--  作者：有点蓝 --  发布时间：2022/6/14 13:34:00 --   Label怎么发生变化的？

--  作者：min-fox --  发布时间：2022/6/14 13:41:00 --   Label显示★或者空 If lab.Text = "★" 或者是空 [此贴子已经被作者于2022/6/14 13:42:11编辑过]

--  作者：有点蓝 --  发布时间：2022/6/14 13:44:00 --   什么时候显示★？什么时候显示空？代码放在哪里的？

--  作者：min-fox --  发布时间：2022/6/14 13:51:00 --   Label绑定一个列，列中有的用★标记，有的没有

--  作者：有点蓝 --  发布时间：2022/6/14 13:54:00 --   代码放在哪里的？！！ Dim lab As WinForm.Label = e.Form.Controls("Label1") msgbox(lab.Text)

--  作者：min-fox --  发布时间：2022/6/14 13:59:00 --   代码放在窗口的AfterLoad中，切换Button1可用与不可用，下面的不执行 Dim lab As WinForm.Label = e.Form.Controls("Label1") If lab.Text = "★" Then     e.Form.Controls("Button1").Enabled = False Else     e.Form.Controls("Button1").Enabled = True  End If [此贴子已经被作者于2022/6/14 14:00:42编辑过]

--  作者：有点蓝 --  发布时间：2022/6/14 14:16:00 --   放到aftershow事件