Sección de controles Ocx para Visual basic , Dll , Activex

216 - Menú con Scroll

Control para usar menú con Scroll

Este es un proyecto en Visual basic para usar un menú de opciones con scroll y también con Skins, similar a un TabStrip cuando tiene la propiedad Style en TabButtons.

Descargar

Capturas de pantalla del menú

Notas

El control no está completamente depurado y seguramente contiene errores y hay partes del código fuente que se puede optimizar mucho, como por ejemplo la rutina para redimensionar los controles.

También le faltan varias opciones ( algunas básicas)

No se puede alinear el menú en la parte izquierda y derecha, solo en la parte superior e inferior del la ventana de formulario
No se puede alinear el texto de cada botón ( siempre queda centrado)
No se puede incluir imágenes ni íconos

Descripción para usar el menú

Agregar botones

Para agregar botones se hace con el método Add del objeto Buttons , pasándole como parámetro el texto, una clave que es opcional para poder acceder luego al botón ( No debe ser un valor numérico ) , y el texto del ToolTiptext

Esto agrega 10 botones

    With ucMenu1
        Dim i As Integer
        ' Agregar 10 botones
        For i = 1 To 10
            .Buttons.Add "Botón " & i
        Next
    End With

O también

    With ucMenu1
        ' variable para el botón
        Dim xBtn As cButton
        Dim i As Integer
        ' Agregar
        For i = 1 To 5
            Set xBtn = .Buttons.Add("texto " & i)
            xBtn.Selected = True ' seleccionarlo
        Next
    End With

Eliminar

Para eliminar un botón se puede indicar el índice o por la clave ( si es que se especifico una )

    ' eliminar el botón con índice 3
    ucMenu1.Buttons.Remove (3)

Eliminar el que está seleccionado actualmente

    With ucMenu1
        ' Comprobar que hay un Item seleccionado para que no de error
        If Not .SelectedItem Is Nothing Then
            ' eliminarlo
            .Buttons.Remove .SelectedItem.Index
        End If
    End With

Eliminar todos

    With ucMenu1
        If .Buttons.Count > 0 Then
            ' eliminar todos
            .Buttons.Clear
        Else
            MsgBox "No hay ningún botón", vbExclamation
        End If
    End With

Recorrer los botones del menú

Nota : debe comenzar en el índice 1

    With ucMenu1
        Dim i As Integer
        If .Buttons.Count > 0 Then
            For i = 1 To .Buttons.Count
                Debug.Print .Buttons(i).Caption
                Debug.Print .Buttons(i).Selected
                Debug.Print .Buttons(i).Key
            Next
        End If
            
    End With

Modificar

Cambiar el texto del primer botón

    With ucMenu1
        If .Buttons.Count > 0 Then
           .Buttons(1).Caption = "Valor"
        End If
    End With

Deshabilitar y habilitar el que está en la posición 2

    With ucMenu1
        If .Buttons.Count > 0 Then
            ' Activar y desactivar
           .Buttons(2).Enabled = Not .Buttons(2).Enabled
        End If
    End With

Alinear el menú en el formulario

    With ucMenu1
        ' Sin alinear
        .Align = 0
        
        ' Alinear arriba
        .Align = 1
        
        ' Alinear abajo
        .Align = 2
        
    End With

Colores de fuente

Para cambiar el color de fuente que se quiera, previamente hay que colocar la propiedad UseCustomForeColor en True

    With ucMenu1
        ' Habilitar
        .UseCustomForeColor = True
        
        .Redraw = False
        ' Colores
        .ForeColorCheck = vbBlue
        .ForeColorDisabled = vbBlack
        .ForeColorNormal = vbWhite
        .ForeColorDown = vbBlue
        .ForeColorUp = vbGreen
        
        .Redraw = True
    End With

Otras

Propiedades

SmallChangeScroll : Para cambiar el valor de desplazamiento del Scroll
BackColorSkinDefault : Color del Skin actual que se puede usar para asignarlo como color de fondo de otros controles del formulario
BorderColorSkinDefault : Color del borde del Skin actual que se puede usar por ejemplo para los controles shape y line
CaptionMargin : Margen del texto del botón. ( Nota. La alineación del texto no está implementada. El texto queda siempre centrado
MarginButton : Valor de separación para cada botón
EnabledDragMenu : Para poder arrastrar el menú cuando no está alineado al formulario

Métodos

FindButton : buscar un botón por el índice o clave, y poder ubicarlo en el primer lugar del menú.
MoveScroll : Para desplazar el Scroll al principio o al final.
SelectedByIndex y SelectedByKey : Para seleccionar un botón por el índice o por la clave. Se pueden usar estas funciones si no se quiere lanzar el evento ButtonClick, ya que si se selecciona desde Buttons(indice).selected, siempre se lanza el evento.

Relacionados

Buscar en Recursos vb con Google