Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Grupo De Distintos Controles Con Evento Común
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Grupo De Distintos Controles Con Evento Común 
 
Buenas!.

Estoy creando un ejemplo muy sencillo en el cual se calcula los Kilowatios horas producidos por un dispositivo eléctrico.

Uso para ello:

- La potencia en watios
- Las horas de uso
- Los días.

El ejemplo es super sencillo.

Para ingresar la potencia que es una cantidad numérica que puede ser un valor x. He usado un valuebox
Y para las horas y los días he usado un spinbox.

Por ahora no me convence el tamaño del formulario que no se ajusta como yo quisiera.

Así es como debería presentarse, pero el formulario se ensancha mucho.

 ejemplokwh

Esto es solo un ejemplo, se puede ir añadiendo cosas. Pero claro por cada dispositivo puede valer de esta forma.

Al principio usaba un código como este:

Public Sub VlbConsumo_KeyPress()

  If Key.code = Key.Enter Or Key.code = Key.Return Then Label2.Text = ((VlbConsumo.Value * SpbHoras.Value * SpbDias.Value) / 1000) & "Kwh"

End


Public Sub SpbHoras_KeyPress()

  If Key.code = Key.Enter Or Key.code = Key.Return Then Label2.Text = ((VlbConsumo.Value * SpbHoras.Value * SpbDias.Value) / 1000) & "Kwh"

End


Public Sub SpbDias_KeyPress()

   If Key.code = Key.Enter Or Key.code = Key.Return Then Label2.Text = ((VlbConsumo.Value * SpbHoras.Value * SpbDias.Value) / 1000) & "Kwh"
  
End
 


Como veis es un código que se repite. Y yo pensado sin son controles distintos, ¿ como voy a crear un grupo de controles ?.
Así que al final cree un grupo de controles con un código común con el evento KeyPress ya que tanto el valuebox como
el spinbox tienen el evento Keypress. Quedando el código de esta forma:

Public Sub Valores_KeyPress()

   If Key.code = Key.Enter Or Key.code = Key.Return Then Label2.Text = ((VlbConsumo.Value * SpbHoras.Value * SpbDias.Value) / 1000) & "Kwh"
  

End
 


Tal como está ahora mismo se podría usar para ir añadiendo dispositivos a un gridview y calcular la potencia total en Kwh.

Os subo el código y a ver que opináis sobre el problema del tamaño de la letra. El formulario es demasiado grande.
Si debo usar resize en muchos controles. Espero vuestros comentarios.

Saludos

EjemploKiloWatios.tar.gz
Descripción: Ejemplo de cálculo de Kilowatios horas 
Descargar
Nombre del archivo: EjemploKiloWatios.tar.gz
Tamaño: 12.75 KB
Descargado: 25 veces
EjemploKiloWatios.tar.gz
Descripción: Ejemplo de cálculo de Kilowatios horas 
Descargar
Nombre del archivo: EjemploKiloWatios.tar.gz
Tamaño: 12.75 KB
Descargado: 25 veces
EjemploKiloWatios.tar.gz
Descripción: Ejemplo de cálculo de Kilowatios horas 
Descargar
Nombre del archivo: EjemploKiloWatios.tar.gz
Tamaño: 12.75 KB
Descargado: 25 veces

 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Grupo De Distintos Controles Con Evento Común 
 
A ver si así te gusta más. Los cambios son:

-Se elimina el hbox (innecesario ya que no hay más controles y el form es un contenedor en sí mismo)
-Se da un tamaño mínimo a los controles y se establece la propiedad autoresize de todos los label a true
-Se establece en el form las propiedades
        resizable =false
        margin=true
        spacing=true
        autoresize=true


Queda más molón y ajustado.

EjemploKiloWatios-0.0.2.tar.gz
Descripción:  
Descargar
Nombre del archivo: EjemploKiloWatios-0.0.2.tar.gz
Tamaño: 11.69 KB
Descargado: 18 veces
EjemploKiloWatios-0.0.2.tar.gz
Descripción:  
Descargar
Nombre del archivo: EjemploKiloWatios-0.0.2.tar.gz
Tamaño: 11.69 KB
Descargado: 18 veces
EjemploKiloWatios-0.0.2.tar.gz
Descripción:  
Descargar
Nombre del archivo: EjemploKiloWatios-0.0.2.tar.gz
Tamaño: 11.69 KB
Descargado: 18 veces

 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Grupo De Distintos Controles Con Evento Común 
 
Shordi:

Comprendo que como el propio formulario es el contenedor no se necesita otro, que en este caso es el Hbox.
¿ Y si por algún motivo hubiera usado varias controles de hbox ?. Uno debajo del otro. Para distintos dispositivos eléctricos.

He probado en el activate del formulario esto: Creo que lo hice en otros ejemplos.

Public Sub Form_Activate()
  
  Me.Width = HBox1.Width
  
End
 


El cambio es momentáneamente brusco, por el ajuste del formulario al tamaño del hbox.
Y ademas queda de esta forma, la etiqueta donde se muestra el resultado tiene alineación por la derecha.

 ajusteanchoformularioalanchodelhbox

¿ Por qué aparentemente tapa la etiqueta ?. Tanto que no se ve la palabra "Total".

Vale. Si elimino el evento Activate del formulario y cambio Arrangement del formulario a Horizontal y Autoresize del formulario a True.
Ahora se muestra de esta forma. Ahora si se muestra como debe usando un solo Hbox.

 formularioautoresizeyarrangement

Realmente en este caso no es aconsejable llenar el formulario con hbox's.
Mas bien solo usarlo como forma de entrada.

Otra vez de nuevo las propiedades de ajustes del formulario. Como esto no se domine el formulario queda hecho un churro.

Por cierto, usando ese ajuste de tamaño no es tan brusco como el evento Activate del formulario.  

Saludos y gracias.
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Un Evento Para Muchos Controles arkyansoul Controles/Librerías/Componentes 2 Lunes, 27 Diciembre 2010, 13:56 Ver último mensaje
arkyansoul
No hay nuevos mensajes Evento De Solapamiento De Controles pittusa General 2 Lunes, 28 Febrero 2011, 02:03 Ver último mensaje
fabianfv
No hay nuevos mensajes A Cerca De Controles En Distintos Formularios messerschmitt General 3 Sabado, 16 Abril 2011, 17:14 Ver último mensaje
soplo
No hay nuevos mensajes Sumar Valores De Un Grupo De Controles Shell Aplicaciones/Fragmentos de Código 5 Sabado, 24 Septiembre 2016, 11:03 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron