Comunidad Gambas-es

seta43 24-10-2020, 18:25

GAMBAS
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]

PROGRAMA

Todas las versiones en :
https://seta43.blogspot.com/2020/10/gamb...meses.html
http://seta43.duckdns.org/gamcal.html

Aplicaciones/Fragmentos de Código Respuestas 1

Guardar datos tipo "Registro de Windows" en Linux

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.

General Respuestas 2

Listado de Bases de Datos de una Conexión

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 Tongue

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

Aplicaciones/Fragmentos de Código Respuestas 1

Páginas (566): 1 … 516 517 518 519 520 … 566

Bienvenido, Invitado

Buscar en los foros

Estadísticas del foro

Miembros: 295

Último miembro: ncofre98

Temas del foro: 1,748

Mensajes del foro: 9,072

Últimos temas

Portal

seta43 24-10-2020, 18:25

ociokart 23-10-2020, 17:57

ociokart 23-10-2020, 17:36

Problemas con las interru...

Scrolling un ScrollArea

Ordenar en un TableView

Resultados dispares según...

Mover un Result a una pos...