Creare da codice un'immagine trasparente

Talvolta può rendersi necessario utilizzare una o più immagini trasparenti.

Volendo, è possibile evitare di dover caricare preliminarmente nel progetto un file di un'immagine trasparente, ma generarla via codice Gambas. Ci serviremo delle protocollo relativo ai file immagine del formato XPM.

Public Sub Button1_Click()

  Dim ss As String[]
  Dim wc, hr As Short
  Dim s, px As String

    s = InputBox("Immettere numero dei pixel orizzontali e quello dei pixel verticali, divisi da una virgola:")

    ss = Split(s, ",")

' La variabile "wc" rappresenta il numero di pixel della dimensione orizzontale (numero di colonne) dell'immagine:
    wc = CShort(Trim(ss[0]))

' La variabile "hr" rappresenta il numero di pixel della dimensione verticale (numero di righe) dell'immagine:
    hr = CShort(Trim(ss[1]))

    px = String$(hr, "\"" & String$(wc, ".") & "\",\n")

    s = "/* XPM */\n" &
        "static char *" & Application.Name & "[]={\n" &
        "\"" & wc & " " & hr & " 1 1\",\n" &          ' /* <Values> */ /* <width/cols> <height/rows> <colors> <char on pixel>*/
        "\". c None\",\n" &          ' /* <Colors> */
        px & "};"          ' /* <Pixels> */

' Viene salvata l'immagine, per essere successivamente caricata ed utilizzata:
    File.Save("percorso_immagine_trasparente", s)

End