Differenze tra le versioni di "Creare da codice un'immagine trasparente"

Versione delle 03:07, 5 set 2014

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

E' possibile evitare di dover caricare preliminarmente nel progetto un file di un'immagine trasparente, generandola direttamente via codice Gambas con almeno tre modalità.

Mediante la Classe Image

Si potrà fare uso delle risorse disponibili con la Classe Image:

Public Sub Button1_Click()

 Dim i As Image
 Dim pc As Picture


  With i = New Image(100, 100, &FFFFFF00, 0)
    .Save("/percorso/dell'immagine/trasparente", 100)
' Generiamo anche una variabile di tipo "Picture", per un eventuale uso in una "PictureBox":
    pc = i.Picture
  End With

End

Mediante la Classe Picture

Si potrà fare uso delle risorse disponibili con la Classe Picture:

Public Sub Button1_Click()

 Dim pc As Picture


' Creando la variabile di tipo "Picture", porremo il terzo parametro a "True":
  With pc = New Picture(100, 100, True)
' I formati utili per generare immagini trasparenti sono ".png" e ".xpm":
    .Save("/percorso/dell'immagine/trasparente.xpm", 100)
  End With

End

Mediante il protocollo del file immagine XPM

Si potrà anche fare uso del protocollo relativo ai file immagine del formato XPM.

Public Sub Button1_Click()

  Dim wc, hr As Short
  Dim s, px As String


' La variabile "wc" rappresenta il numero di pixel della dimensione orizzontale (numero di colonne) dell'immagine:
    wc = 100

' La variabile "hr" rappresenta il numero di pixel della dimensione verticale (numero di righe) dell'immagine:
    hr = 100

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

    s = "/* XPM */\n" &
        "static char *" & Application.Name & "[]={\n" &
        "\"" & wc & " " & hr & " 1 1\",\n" &          ' Valori: <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/dell'immagine/trasparente", s)

End