Cómo para mostrar adicionales botones en Personalizar barra de herramientas diálogo

Seleccione idioma Seleccione idioma
Id. de artículo: 174087 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

En esta página

Resumen

Los usuarios puede personalizar el control de barra de herramientas que se proporciona con controles comunes de Microsoft Windows (Comctl32.ocx). La barra de herramientas Personalizar método aparece si:
  • la propiedad AllowCustomize se establece en True y el usuario doble-clics en la barra de herramientas

    -o bien -
  • se invoca el método personalizar de la barra de herramientas.
De forma predeterminada, este cuadro de diálogo enumera todos los botones de la barra de herramientas en las listas de "Botones de barra de herramientas", pero muestra sólo un separador en la lista "Botones disponibles". Este artículo describe cómo puede mostrar botones adicionales en la lista "Botones disponibles".

Más información

Todos los botones de la colección de botones de un control de barra de herramientas aparecen en el cuadro de diálogo Personalizar barra de herramientas. En la lista "Botones de barra de herramientas" aparecen botones que se muestran actualmente en la barra de herramientas y botones que se han quitado de la barra de herramientas mediante la personalización aparecen en la lista "Botones disponibles". Para agregar botones adicionales a la lista "Botones disponibles", crear la barra de herramientas predeterminada, utilice el método SaveToolbar guardar esta configuración, agregar botones adicionales en tiempo de ejecución y, a continuación, utilizar métodos RestoreToolbar para restaurar la configuración "predeterminado" de la barra de herramientas.

Ejemplo paso a paso

  1. Inicie un nuevo proyecto.
  2. Hacer referencia a los controles comunes de Microsoft Windows (Comctl32.ocx).
  3. Agregar una barra de herramientas y una ImageList a Form1.
  4. Agregar seis imágenes a ImageList1 con las siguientes propiedades:
       Index          Key          Picture
       -----          ---          -------
    
       1              Bold        ..\VB\Graphics\Bitmaps\Tlbr_w95\Bld.bmp
       2              Italic      ..\VB\Graphics\Bitmaps\Tlbr_w95\Itl.bmp
       3              Underline   ..\VB\Graphics\Bitmaps\Tlbr_w95\Undrln.bmp
       4              Copy        ..\VB\Graphics\Bitmaps\Tlbr_w95\Copy.bmp
       5              Paste       ..\VB\Graphics\Bitmaps\Tlbr_w95\Paste.bmp
       6              Cut         ..\VB\Graphics\Bitmaps\Tlbr_w95\Cut.bmp
    
    					
  5. Establezca la propiedad ImageList del Toolbar1 a "ImageList1."
  6. Agregue tres botones a Toolbar1 con las siguientes propiedades:
       Index        Key            Image
       -----        ---            -----
    
       1            Bold           Bold
       2            Italic         Italic
       3            Underline      Underline
    
    					
    Nota: la barra de herramientas contiene sólo estos tres botones porque se trata el diseño de la barra de herramientas "predeterminado". Se agregará los botones Copiar, pegar y Cortar en tiempo de ejecución para que aparezcan en la lista "Botones adicionales".

  7. Agregue el código siguiente a Form1:
          Private Declare Function RegOpenKey Lib "advapi32.dll" Alias _
            "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
            phkResult As Long) As Long
    
          Const HKEY_CURRENT_USER = &H80000001
    
          Private Sub Form_Load()
    
             Me.Show
    
             'Check to see if the registry keys for the toolbar exists
             'If not, then save the initial toolbar settings
             Success = RegOpenKey(HKEY_CURRENT_USER, "MyApp", hKey)
             If Success <> 0 Then Toolbar1.SaveToolbar "Test", "MyApp", _
                "Toolbar1"
    
             'Add the toolbars you wish to see in the "Available Buttons" list
             Toolbar1.Buttons.Add , "Copy", , , "Copy"
             Toolbar1.Buttons.Add , "Paste", , , "Paste"
             Toolbar1.Buttons.Add , "Cut", , , "Cut"
    
             'Restore the toolbar settings
             DoEvents
             Toolbar1.RestoreToolbar "Test", "MyApp", "Toolbar1"
             DoEvents
    
          End Sub
    
          Private Sub Form_Unload(Cancel As Integer)
    
             'When the form unloads, save the toolbar settings
             'to HKEY_CURRENT_USER\MyApp
             Toolbar1.SaveToolbar "Test", "MyApp", "Toolbar1"
    
          End Sub
    
    					
    Nota: si está utilizando Visual Basic versión 6.0, cambie la línea siguiente en el evento Form_GotFocus:
       Success = RegOpenKey(HKEY_CURRENT_USER, "MyApp", hKey)
    					
    a:
       Success = RegOpenKey(HKEY_CURRENT_USER, "Test\MyApp", hKey)
    					
  8. Presione la tecla F5 para ejecutar la aplicación. Haga doble clic en Toolbar1 para mostrar el cuadro de diálogo Personalizar barra de herramientas. Observe que aparecen las barras de herramientas Cortar, copiar y pegar en la lista de botones adicionales. Nota: Los métodos SaveToolbar y métodos RestoreToolbar utilizan en este escritura de ejemplo y leer la entrada de registro HKEY_CURRENT_USER\MyApp\Toolbar1.

Referencias

Para obtener información adicional, consulte en contacto con el siguiente artículo en Microsoft Knowledge Base:
182943: error: argumento de "Clave" de SaveToolBar & RestoreToolBar no funciona

Propiedades

Id. de artículo: 174087 - Última revisión: sábado, 22 de febrero de 2014 - Versión: 2.4
La información de este artículo se refiere a:
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Edición de aprendizaje
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbcontrol kbhowto KB174087 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 174087

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com