VB Menus

Updated to the latest version and i still cant see the vb menus. I just added the control to the form.

hi,
try this sample:

Private Sub Form_Load()

    Dim ControlFile As CommandBarPopup
    Dim Control As CommandBarControl
   
    Set ControlFile = CommandBars1.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&File")
    With ControlPatient.CommandBar.Controls
        .Add xtpControlButton, FILE_NEW, "New..."
        Set Control = .Add(xtpControlButton, FILE_OPEN, "Open...")
        Set Control = .Add(xtpControlButton, FILE_SAVE, "Save...")
        Set Control = .Add(xtpControlButton, FILE_CLOSE, "Close")
        Set Control = .Add(xtpControlButton, FILE_PRINT, "Print"): Control.BeginGroup = True: Control.Enabled = False
        Set Control = .Add(xtpControlButton, FILE_PRINT_SETUP, "Print Setup"): Control.Enabled = False
        Set Control = .Add(xtpControlButton, FILE_EXIT, "Exit"): Control.BeginGroup = True
    End With
End Sub

Hi shragel,

Are you using the skinframework? I tested the same on some of my progs. and vb menus wont show on prog. that has skin applied. Try to remove skin, they appear.


thanks

Hi,

Hi,

Hi,