Calendario de meses y años
seta43 24-10-2020, 18:25
GAMBAS
Crear calendario de meses
Crear calendario de meses
En mi necesidad de crear trabajos que se pudieran imprimir mediante la impresora, me puse a buscar en internet ejemplos.
El mejor ejemplo que encontré fue en la página:
https://en.wikibooks.org/wiki/Programmin...p/Printing
El caso es que en mis pruebas no funcionaba.
Este artículo es solo un arreglo del programa que en teoría imprimía calendarios de meses.
Le he añadido cambios en fuentes.
Versión final V2
En esta versión se se añade un calendario anual además de el calendario mensual con o sin santos.
También en el directorio del programa existen 12 ficheros con los 12 meses del año con sus santos respectivos.
Si se quiere que se marque en rojo los días festivos se tiene que añadir al final de la línea ,F
![[Imagen: gamcal5.png]](http://seta43.duckdns.org/gamcal5.png)
![[Imagen: gamcal6.png]](http://seta43.duckdns.org/gamcal6.png)
![[Imagen: gamcal7.png]](http://seta43.duckdns.org/gamcal7.png)
PROGRAMA
Todas las versiones en :
https://seta43.blogspot.com/2020/10/gamb...meses.html
http://seta43.duckdns.org/gamcal.html
ociokart 23-10-2020, 17:57
Soy novato en Gambas (vengo de VB6 y Windows), tengo una pregunta:
¿Cómo se puede hacer para leer y guardar datos en un tipo de Registro del Sistema? En Windows sería el Registro de Windows.
Gracias.
¿Cómo se puede hacer para leer y guardar datos en un tipo de Registro del Sistema? En Windows sería el Registro de Windows.
Gracias.
ociokart 23-10-2020, 17:36
Buenas tardes a todos, estoy migrando mis aplicaciones de VB6 a Gambas, al final he visto que es la mejor alternativa que tenía, ya que .NET no me convencía...
Iré dejando trozos de código que vaya solucionando o alguno sin solucionar para que me echéis una mano
Os dejo un código para rellenar un Combo con las Bases de Datos de una Conexión y poder seleccionar una posteriormente.
Iré dejando trozos de código que vaya solucionando o alguno sin solucionar para que me echéis una mano
Os dejo un código para rellenar un Combo con las Bases de Datos de una Conexión y poder seleccionar una posteriormente.
Código:
Private Sub CargarCombo()
Dim cn As Connection
Me.Mouse = Mouse.Wait
cmbBaseDeDatos.Clear
cn = New Connection
cn.Host = txtServidor.Text
cn.User = txtUsuario.Text
cn.Password = txtContrasenia.Text
cn.Type = "MySql"
Try cn.Open()
Me.Mouse = Mouse.Default
If Not Error Then
Dim db As Object
For Each db In cn.Databases
cmbBaseDeDatos.Add(db.Name)
Next
Message.Info("Conexión establecida correctamente. Seleccione una Base de Datos")
Else
Message.Error(Error.Text)
End If
End Sub
Bienvenido, Invitado
Últimos temas
PC muerta
Foro: Hardware & IoTÚltimo mensaje por: Shell, Hace 57 minutos
Respuestas: 2 - Vistas: 27
Un pasito en la seguridad...
Foro: VideotutorialesÚltimo mensaje por: Shell, Hace 1 hora
Respuestas: 1 - Vistas: 22
Correr programas sin Gamb...
Foro: GeneralÚltimo mensaje por: Shell, Hace 1 hora
Respuestas: 1 - Vistas: 32
Nuevo manual dinámico...
Foro: WebApp/WebFormsÚltimo mensaje por: omoreno, Ayer, 22:08
Respuestas: 6 - Vistas: 144
Archivos adjuntos
Foro: Sobre gambas-es.orgÚltimo mensaje por: Shell, Ayer, 10:51
Respuestas: 1 - Vistas: 37