求一关于判断激活窗口的代码，以控制工具栏按钮

pingju　发表于：2008-03-21 11:09:28 　

我在工具栏添加自定义按钮，希望点击这个按钮时实现如下功能：当窗口1处于激活状态时，该按钮为灰色，即不可用，而其他窗口处于激活状态时，该按钮可用，点击后可关闭激活窗口。请教代码怎样编写。谢谢！

请查看 10 个与本帖内容相关的技术文章或帖子列表，确认对您的问题的解答是否会是列表中的其中一个解答。

YY2008 发表于：2008-03-21 13:18:02

Private Sub 查询选择_AfterUpdate()

If [查询选择] = 1 Then [姓名].Enabled = False Else [姓名].Enabled = True

End Sub

pingju 发表于：2008-03-21 15:32:13

问不对题啊，未解决，等待中...

钱玉炜发表于：2008-03-21 15:36:59

工具栏添加的自定义按钮这个比较难控制，我也不会

竹笛发表于：2008-03-21 16:16:02

具体解释一下什么叫“窗口1处于激活状态”？

pingju 发表于：2008-03-21 17:13:41

“窗口1处于激活状态”即处于可编辑状态的窗体（主窗体），如果我打开一个查询或其它窗体，那么窗体1被激活的其他窗口所覆盖，处于非激活状态（在其他窗体或查询的下层）。

我在工具栏添加自定义关闭按钮，希望点击这个按钮时实现如下功能：当窗口1处于激活状态时，该按钮为灰色，即不可用（不为灰色也可，只要不起作用就行），当其他窗口处于激活状态时，点击该关闭按钮时关闭激活窗口。

代码很简单： DoCmd.Close , ""

只是这个代码会一个窗口不留的全能关闭，需要留下主窗口，是窗体1不关闭。

竹笛发表于：2008-03-21 19:57:04

1、换种思路，不同的窗体用不同的工具栏。

2、假定myToolBar是你的自定义工具栏，则下面的代码让工具栏第一个按钮失效

CommandBars("myToolbar").Controls(1).Enabled = False'说明True为有效

pingju 发表于：2008-03-22 17:12:02

我删了该功能，直接用了窗体的关闭。bamboo的第二种方法可实现部分功能，但无法实现严密的控制。不知道5楼的思路，还能否实现。

在此感谢回复的朋友！

总记录：7篇页次：1/1 9 1 :

Access交流中心