Autor Tema: Crear Barra De Herramientas Dinamicamente (Leído 3307 veces)

wolfsofta1 · « **en:** Sábado 22 de Mayo de 2004, 22:12 »

hola amigos del foros espero que me ayuden en este problema que tengo lo que pasa es que estoy haciendo un sistema comercial y en el formulario principal quiero tener una barra de herramienta pero cuando yo escoga otra opcion esta barra me cambie
ejemplo:entro al formulario mantenimeiento productos la barra de herramienta debe tener la opcion nuevo, guardar,modificar,elimnar,cancelar.
de ahi escogo la opcion factura la barra de herramienta debe tener la opcion Generar,Grabar,Imprimir

desde ya gracias por todo

wolfsofta1

por favor alguien me podrian ayudar ya tengo que entragar el trabajo en mi universidad

Saludos

Bien, me encuentro probando esto, y desconozco que sea lo que pide amigo wolfsofta1.

Este ejemplo utiliza un Toolbar como barra de botones del Form...
El primer Texto podría ser ingresado por medio de las propiedades del Toolbar o podría ser por código alojado en el Load del Form, para que cuando se cargue, coloque el Texto de cada botón en la barra de botones así:

Código: Text

 
'Boton Nuevo:
Btn1.Text = &#34;Nuevo&#34;
Btn1.Style = ToolBarButtonStyle.PushButton
'Boton Guardar:
Btn2.Text = &#34;Guardar&#34;
Btn2.Style = ToolBarButtonStyle.PushButton
'Boton Modificar:
Btn3.Text = &#34;Modificar&#34;
Btn3.Style = ToolBarButtonStyle.PushButton
'Boton Eliminar:
Btn4.Text = &#34;Eliminar&#34;
Btn4.Style = ToolBarButtonStyle.PushButton
'Boton Cancelar:
Btn5.Text = &#34;Cancelar&#34;
Btn4.Style = ToolBarButtonStyle.PushButton
'Controls().Add(ToolBar1)
 
 

Hasta ahí todo bien, se carga la ventana: Mantenimiento de Productos con los botones: Nuevo, Guardar, Modificar, Eliminar, Cancelar. (falta: Consultar)

He colocado un botón: Factura (en esa misma ventana)
El boton Factura es un control Button (es decir, No es un botón más del Toolbar)
Al pulsar el botón Factura, los Text de los botones cambian a:
Generar,Grabar,Imprimir.

Este código iría en el boton: Factura (control Button)

Código: Text

 
'Boton Generar: (anteriormente boton Nuevo)
Btn1.Text = &#34;Generar&#34;
Btn1.Style = ToolBarButtonStyle.PushButton
'Boton Grabar: (anteriormente boton Guardar)
Btn2.Text = &#34;Grabar&#34;
Btn2.Style = ToolBarButtonStyle.PushButton
'Boton Imprimir: (anteriormente boton Imprimir)
Btn3.Text = &#34;Imprimir&#34;
Btn3.Style = ToolBarButtonStyle.PushButton
 
'Eliminando Botones demas:
ToolBar1.Buttons.Remove(Btn4)
ToolBar1.Buttons.Remove(Btn5)
 
 

Hasta ahí todo bien, al pulsar Factura el Texto de los botones cambia.
Como los botones iniciales son 5 y ahora han cambiado a sólo 3, se eliminan entonces los 2 restantes, lo cual es las ultimas dos líneas del código.

Como sabras, ahora luego de hacer esto, nos dirigiriamos con doble click al Toolbar para entrar a hacer su código:

Código: Text

 
'Evaluando el Boton Pulsado:
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0 'Btn1
                If Btn1.Text = &#34;Nuevo&#34; Then
                    MessageBox.Show(&#34;Este botón es: Nuevo&#34;)
                    'Aqui va el código del botón: Nuevo
                ElseIf Btn1.Text = &#34;Generar&#34; Then
                    MessageBox.Show(&#34;Este botón es: Generar&#34;)
                    'Aquí va el código del botón: Generar
                End If
            Case 1 'Btn2
                If Btn2.Text = &#34;Guardar&#34; Then
                    MessageBox.Show(&#34;Este botón es: Guardar&#34;)
                    'Aqui va el código del botón: Guardar
                ElseIf Btn2.Text = &#34;Grabar&#34; Then
                    MessageBox.Show(&#34;Este botón es: Grabar&#34;)
                    'Aquí va el código del botón: Grabar
                End If
            Case 2 'Btn3
                If Btn3.Text = &#34;Modificar&#34; Then
                    MessageBox.Show(&#34;Este botón es: Modificar&#34;)
                    'Aquí va el código del botón: Modificar
                ElseIf Btn3.Text = &#34;Imprimir&#34; Then
                    MessageBox.Show(&#34;Este botón es: Imprimir&#34;)
                    'Aquí va el código del botón: Imprimir
                End If
            Case 3 'Btn4
                If Btn4.Text = &#34;Eliminar&#34; Then
                    MessageBox.Show(&#34;Este botón es: Eliminar&#34;)
                    'Aquí va el código del botón: Eliminar&#34;
                End If
            Case 4 'Btn5
                If Btn5.Text = &#34;Cancelar&#34; Then
                    MessageBox.Show(&#34;Este botón es: Cancelar&#34;)
                    'Aquí va el código del botón: Cancelar
                End If
        End Select
 
 

Espero que mi deducción sea la correcta con respecto a su problema amigo wolfsofta1.
Cualquier cosa, puede indicarla al Foro o dirigirse a: www.microsoft.com/spain
Caja de Texto Buscar de la Web: Toolbar

Saludos.

Citar

Editando Post:
Al tener todas las propiedades Style del Toolbar con respecto a sus botones como PushButton, el Texto de los botones no aparece, aunque si los de Factura.
Pero al colocar el primer Style del primer botón (Nuevo) a .ToggleButton
El Texto de todos los botones si aparece y todos tienen estilo de Pulsar a diferencia del Nuevo que tiene el estilo de pulsado fijo.
Desconozco la razón de esto, pero cualquier cosa, espero que pueda ajustar el código a su beneficio y proposito y que este sirva de acorde a sus necesidades.

Código: Text

'Boton Nuevo:
Btn1.Text = "Nuevo"
Btn1.Style = ToolBarButtonStyle.ToggleButton

SoloCodigo

Autor Tema: Crear Barra De Herramientas Dinamicamente (Leído 3307 veces)

wolfsofta1

Crear Barra De Herramientas Dinamicamente

wolfsofta1

Re: Crear Barra De Herramientas Dinamicamente

Re: Crear Barra De Herramientas Dinamicamente