Allora... Qualche progresso...
Ho caricato una foto nel progetto (drag and drop dalla scrivania)...
Ho messo un Canvas nella finestra ed un bottone.
Nell'evento Action del bevelButton ho scritto:
Dim ThePict As Picture
Dim st As StaticText
'st=New StaticText
st=StaticText1
st.Text="Caro amico ti scrivo, così mi distraggo un po... E
siccome sei molto lontano, più forte ti scriverò!"
st.TextSize=22
st.TextFont="Courier new"
st.Width=355
st.Height=110
st.top=10
st.Left=10
st.MultiLine=TRUE
st.TextAlign=1
st.AutoDeactivate=TRUE
st.Enabled=TRUE
st.Visible=TRUE
'st.Bold=TRUE
ThePict=Interior <------- qui ricopio la foto dentro la mia
ThePict
st.DrawInto(ThePict.Graphics,200,50) <---------- qui vado a
scrivere 'sopra' la foto
Canvas1.Graphics.DrawPicture(ThePict,0,0,376,294,0,0,752,589)
Adesso... Riesco a scrivere quello che voglio nella mia ThePict con
la formattazione giusta... Però vedo anche ciò che ho appena scritto
anche nella finestra...
Sembra, cioè, che man mano che setto i vari parametri di st, lui
generi la scritta sulla finestra.
Ho provato a mettere st.visible=FALSE, ma naturalmente, poi, non la
vedo neanche sovraimpressa alla foto...
Forse tutta questa storia non servirà a nessuno, e in fondo neanche a
me, ma è comunque una bella sfida... Non trovate?
L.
Il giorno 28/dic/08, alle ore 22:06, Lucio Liberi ha scritto:
però, se nella mia finestra creo uno statictext di default che si
chiama StaticText1 e lo piazzo in un punto della finestra, diciamo
in basso a destra, allora se ho scritto:
Dim st As StaticText
st=New StaticText
st=StaticText1
st.Text="asdfgh flgkj ertyoi sdghlkj w wtypwoitw "
st.Width=100
st.Height=100
st.top=10
st.Left=10
st.MultiLine=TRUE
st.Window=self
st.AutoDeactivate=TRUE
st.Enabled=TRUE
st.Visible=TRUE
il mio st, appare correttamente. Ma la cosa che mi sorprente che lo
statictext1, quello con il solito <Untitled> è SPARITO!!!
Mi sarei aspettato di vedere sia st che statictext1...
L.
Il giorno 28/dic/08, alle ore 21:56, Lucio Liberi ha scritto:
Salve a tutti. Passate buone feste?
Le mie sono state turbate (si fa per dire) da un rompiscatole che
voleva mandare messaggi augurali fatti con un programma ad hoc...
Sarebbe bastato scegliere il tipo di immagine di sfondo e riempire
il campo con il nome e l'indirizzo... Che ci vuole? mi son detto...
E così mi sono imbattuto in due problemi.
1) Riesco a creare una picture, a disegnarci dentro, a scriverci
pure... Ma non mi riesce di 'formattare' il testo. Mi spiego.
Con .DrawString(MyStr, x,y) si può scrivere ciò che si vuole,
dove si vuole, ma nel caso si voglia un testo appena appena
articolato, un indirizzo appunto, lui
te lo mette tutto su una riga e chi s'è visto s'è visto...
2) Allora il geniaccio (che sarei io) ha pensato: creo uno
StaticText al volo e lo piazzo dove voglio... Ecco, altro botto e
non di capodanno...
Mi sono accorto che st esiste come static text, ma non riesco a
renderlo attivo. Se infatti scrivo:
Dim st as StaticText
st=New StaticText
st.Top....
st.text="blablabla..."
st.visible=true
ecc
tutto ok.
Ma quando scrivo:
st.active=true, mi dà errore
Code, Window1.Open, line 11, Cannot assign a value to this
property, st.Active=true
Inoltre credo che per formattare un testo tipo indirizzo:
Mario Rossi
via Verdi, 10
12345 Bianco (Ne)
l'unica cosa da utilizzare sia proprio uno statictext... A meno
che non abbiate idee migliori...
Grazie per la collaborazione...
L.
|