11116
OpenBar / Re: Incontri e convegni
« il: 16 Gennaio 2012, 15:47:39 »Messa così non sembra male
...ma non sembra aver riscosso interesse: sei l'unico ad essere intervenuto al riguardo.
Pertanto, possiamo tranquillamente cestinarla.
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Messa così non sembra male
prova avedere che succede salvandola in png
se la salvi in jpg direi di si
Public Sub Button1_Click()
Dim h As New Image
h = h.Load("mia_Immagine.gif")
Paint.Begin(h)
With Paint
.Font.Size = 24
.DrawText("Un testo qualsiasi", 10, 40, 0, 0, Align.center)
End With
h.Mirror(True, False) ' ruoto l'immagine specularmente sull'asse verticale
h.Save("/tmp/mia_nuova_immagine.jpg")
Paint.End
End
Un esempio?
... pecca per il fatto di non avere un tutorial o comunque degli esempi ben fatti (per non parlare della guida...)
Non ho ancora chiuso la discussione perchè non riesco ancora a far funzionare la stampante.
Sistematicamente mi tira fuori un foglio miseramente bianco.
Allego un banale sorgente non funzionante.Codice: [Seleziona]Public Sub BTN_Stampa_Click()
Me.Printer1.Configure
Me.printer1.Print
End
Public Sub Printer1_Draw()
Dim Messaggio As String
Messaggio = "Res: " & Str(printer1.Resolution) & ", Width: " & Str(printer1.PaperWidth) & ", Height: " & Str(printer1.PaperHeight)
message.Info(Messaggio)
Paint.Font.Name = "Sans"
Paint.Font.Size = 90
Paint.Font.Bold = True
Paint.MoveTo(10, 135)
Paint.Text("Hello kdjgh gkjh kghdf kgjh kgh kjgh kjh kh k kh khkh")
Paint.End
End
hai risolto?
così a naso direi che non ci sono altre soluzioni, a meno di crearti dei font personalizzatiComunque il mio esempio dimostra che a volte si può fare a meno di caricare font personalizzati.
PUBLIC SUB Button1_Click()
Dim a As New Image
Dim b As Picture
a = a.Load("/percorso/del/file/immagine") ' viene caricata un'immagine nella variabile " a "
Paint.Begin(a)
Paint.Font.Size = 20
Paint.DrawText("d", 50, 50, 20, 20) ' immette il carattere "d" nell'immagine caricata...
' procede alla rotazione speculare orizzontale dell'immagine intorno all'asse verticale...
' e quindi contemporaneamente anche la lettera "d" viene ruotata,
' assumendo così l'aspetto di una "b":
a.Mirror(True, False)
b = a.Picture ' trasforma l'immagine in una Picture...
PictureBox1.Picture = b ' ...e la mostra in una PictureBox posta sul Form
END
Altro punto da valutare è lo scopo della riunione. Anche xche' se non si motivano i partecipanti difficilmente interverranno.