CLR: .Net / Mono / Boo / Otros CLR > VB .NET
Crear Barra De Herramientas Dinamicamente
(1/1)
wolfsofta1:
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 :D
wolfsofta1:
por favor alguien me podrian ayudar ya tengo que entragar el trabajo en mi universidad :comp:
:
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 = "Nuevo"Btn1.Style = ToolBarButtonStyle.PushButton'Boton Guardar:Btn2.Text = "Guardar"Btn2.Style = ToolBarButtonStyle.PushButton'Boton Modificar:Btn3.Text = "Modificar"Btn3.Style = ToolBarButtonStyle.PushButton'Boton Eliminar:Btn4.Text = "Eliminar"Btn4.Style = ToolBarButtonStyle.PushButton'Boton Cancelar:Btn5.Text = "Cancelar"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 = "Generar"Btn1.Style = ToolBarButtonStyle.PushButton'Boton Grabar: (anteriormente boton Guardar)Btn2.Text = "Grabar"Btn2.Style = ToolBarButtonStyle.PushButton'Boton Imprimir: (anteriormente boton Imprimir)Btn3.Text = "Imprimir"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 = "Nuevo" Then MessageBox.Show("Este botón es: Nuevo") 'Aqui va el código del botón: Nuevo ElseIf Btn1.Text = "Generar" Then MessageBox.Show("Este botón es: Generar") 'Aquí va el código del botón: Generar End If Case 1 'Btn2 If Btn2.Text = "Guardar" Then MessageBox.Show("Este botón es: Guardar") 'Aqui va el código del botón: Guardar ElseIf Btn2.Text = "Grabar" Then MessageBox.Show("Este botón es: Grabar") 'Aquí va el código del botón: Grabar End If Case 2 'Btn3 If Btn3.Text = "Modificar" Then MessageBox.Show("Este botón es: Modificar") 'Aquí va el código del botón: Modificar ElseIf Btn3.Text = "Imprimir" Then MessageBox.Show("Este botón es: Imprimir") 'Aquí va el código del botón: Imprimir End If Case 3 'Btn4 If Btn4.Text = "Eliminar" Then MessageBox.Show("Este botón es: Eliminar") 'Aquí va el código del botón: Eliminar" End If Case 4 'Btn5 If Btn5.Text = "Cancelar" Then MessageBox.Show("Este botón es: Cancelar") '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
--- Fin de la cita ---
Navegación
Ir a la versión completa