Datefinder (Gambas)
Publicado: 27 Sep 2010, 14:28
Aplicación en Gambas, Para Encontrar Una Fecha Especifica En Un Calendario.
Formulario Principal:
Calendario:
Formulario Principal:
Código: Seleccionar todo
' Gambas class file
PUBLIC fecha AS Date
PUBLIC SUB Button1_Click()
DIM f AS NEW selector(ValueBox1.Value)
f.ShowModal
ValueBox1.Value = fecha
END
PUBLIC SUB Button2_Click()
ME.Close
END
PUBLIC SUB Form_Open()
ENDCódigo: Seleccionar todo
' Gambas class file
PUBLIC SUB _new(lafecha AS Date)
IF lafecha THEN
DateChooser1.Value = lafecha
ELSE
DateChooser1.value = Date()
ENDIF
END
PUBLIC SUB Button2_Click()
FMain.fecha = DateChooser1.value
ME.close
END
PUBLIC SUB Button1_Click()
ME.Close
END
PUBLIC SUB Form_Open()
END