Uso del Objeto DataChooser

A continuación les dejo un ejemplo de como evitarse largos codigos para validar fechas, solo con el uso del Objeto dataChooser. Tambien se incluye un menu contextual y como hacer para ejecutar sus opciones.

Primero diseña un formulario como en que aparece a continuacion:

reloj.png

Luego agregamos el siguiente codigo:

‘ Gambas class file

PUBLIC SUB Almanaque_Change()

TextFecha.Text = Almanaque.Day & “/” & Almanaque.Month & “/” & Almanaque.Year
Almanaque.Visible = FALSE

END

PUBLIC SUB Button1_Click()

Almanaque.Visible = TRUE
Almanaque.X = 56
Almanaque.y = 64
‘button1.Picture = Picture[“gambas.jpg”]

END

PUBLIC SUB Form_Open()

FMain.Title = “Ejemplo de Validación de Fechas”
ME.Center()

END

PUBLIC SUB form_Menu()

popup0.Popup()

END

PUBLIC SUB Button2_Click()
DIM cerras AS Integer

cerras = Message.Warning(“Desea cerrar el programa\n tome una decision”, “Si”, “No”)
IF cerras = 1 THEN
ME.Close
ENDIF

END

PUBLIC SUB popup2_Click()

Message.Info(“Aqui va la info”)

END

5 comentarios en “Uso del Objeto DataChooser

  1. alguien tendra un ejemplo de como abrir un archivo de texto plano, y escribirlo en un textedit, por que me lo imprime en una sola linea, no se como hacer para imprimirlo tal y como esta en el archivo de origen.

    gracias-….

  2. Edragon dijo:

    Disculpen tengan un buen día. mi duda es la siguiente quiero hacer un almanaque en gambas y mostrar tal cual la imagen superior de la pagina pero que trabaje con fecha actual, ademas que la misma me de la opción de modificar tanto la fecha en la ventana como la del ordenador.

    Gracias!!!

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s