Componentes que vi pero no se cuales son, AYUDA!!!!!!!!!!!!! - VB-MUNDO

SistemasMartin · #1 (**permalink**) 10-10-2007, 18:30:51

He visto en ejecucion estos componentes que adjunto pero que no puedo encontrar, si alguien los conose y me quiere ayudar gracias

malm82 · #2 (**permalink**) 10-10-2007, 18:49:00

Invesitga sobre los codejock y para los menus existe un ocx llamado smartMenu.ocx

SistemasMartin · #3 (**permalink**) 10-10-2007, 19:06:20

Cita:

Empezado por malm82

Invesitga sobre los codejock y para los menus existe un ocx llamado smartMenu.ocx

Encontre el componente pero no se usarlo me podrias mandar un codigo? yo te adjunto lo que tengo y tu dices si es lo correcto

malm82 · #4 (**permalink**) 10-10-2007, 19:38:38

Código:

'para crear los menus
With SMenuXP.MenuItems
        
        ' Root > Archivo...
        .Add 0, "mnuArchivo", , "Arc&hivo"
        .Add "mnuArchivo", "KeyCalc", , "&Calculadora de Windows", LsIco.ListImages("Calc").Picture
        .Add "mnuArchivo", , smiSeparator
        .Add "mnuArchivo", "KeyCerrar", , "C&errar Sesión", LsIco.ListImages("CUsu").Picture
        .Add "mnuArchivo", "KeySalir", , "&Salir del Sistema", LsIco.ListImages("Sal").Picture
    End With
    
    SMenuXP.Font.Name = "Tahoma" '"Ms Sans Serif"
    SMenuXP.Font.Size = 9

'para el evento click
With SMenuXP.MenuItems
        Select Case .Key(Id)
            '<<Menu Archivo>>
            Case "KeyCalc"
                sRuta = GetSetting(NOMAPLI, "OPCIONES", "CALC", "c:\windows\system32\calc.exe")
                If Len(sRuta) Then
                    If VBShellExecute(sRuta, , , , , frmMaestro.hwnd) <= 32 Then
                        sRuta = InputBox("¿Dame la ruta correcta de la calculadora de windows?", "Ruta de la calculadora", "c:\windows\calc.exe")
                        If Len(sRuta) Then
                            Call SaveSetting(NOMAPLI, "OPCIONES", "CALC", sRuta)
                            
                        End If
                    End If
                End If
            Case "KeyCerrar"
                'Call RecGarbarge
                'frmLogin.Show
            Case "KeySalir"
                Me.Enabled = False
                Unload Me

    End Select
        
    End With

NOTA: LsIco.ListImages("Calc").Picture es un control ImageList