Codejock Developer Community : Changing .Enabled in design time

Changing .Enabled in design time : Thank you. I got this to work...

Tue, 28 Apr 2009 09:00:20 +0000

Author: Mess
Subject: 14159
Posted: 28 April 2009 at 9:00am

Thank you. I got this to work by setting the status bar to Nothing and then instantiating a new StatusBar after that.

Thanks.

Changing .Enabled in design time : Here's some code that I just...

Tue, 28 Apr 2009 06:48:01 +0000

Author: jpbro
Subject: 14159
Posted: 28 April 2009 at 6:48am

Here's some code that I just test that works. You need a form with a CommandBars control (CommandBars1) and a standard VB6 CommandButton control (Command1):


Option Explicit

Private mo_TestAction As CommandBarAction

Private Sub Command1_Click()
   mo_TestAction.Enabled = Not mo_TestAction.Enabled
End Sub

Private Sub Form_Load()

   With Me.CommandBars1
      Set mo_TestAction = .Actions.Add(100, "Action Test", "This is a test", "Testing Testing", "Test")
      
      .Item(1).Controls.Add xtpControlButton, 100, ""
      .Item(1).Controls.Add xtpControlButton, 101, "Test2"
      .Item(1).Controls.Add xtpControlButton, 102, "Test3"
      
      .EnableActions
   End With
End Sub

The key for me was to define the Action before adding the controls.

Changing .Enabled in design time : Hi, I'm trying to set...

Mon, 27 Apr 2009 14:14:15 +0000

Author: Mess
Subject: 14159
Posted: 27 April 2009 at 2:14pm

Hi,

I'm trying to set the visibility and to enable and disable controls at run-time. I'm using Actions as described and have also read the sample code, but I don't seem to get it to work.

I created the action before everything else is created, and add this simple code when clicking a button:

Dim Action As CommandBarAction
Set Action = CommandBars.Actions(ID_HTML_EDIT)

When I change the Action.Enabled the properties changes as they should, but the button doesn't gray out of disappear as I want visually. What seems to be the problem here?

Thank you,

Bjarne