Newsgroup: it.comp.lang.visual-basic
Titolo: Vb5, textbox & colori.

Se un povero disgraziato (come io mi considero) avesse la necessità di
avere una textbox o una label o una qualsiasi cosa del genere in cui far
apparire una serie di scritte colorate in maniera differente (avendo la
possibilità di controllare i colori di sfondo e di scritta), non chè di
stile (bold, italic etc...) di ogni singolo caratte (anche sulla stella
linea), dicevo, cosa deve fare ... (il cero lo ho già acceso ma con pochi
risultati).
Altra domandina facile facile :
come caspita si fa se si vuol creare (in fase di eseguzione) un qualsiasi
ogetto (visibile e non) in un form... ????
VI RINGRAZIO A TUTTI...

dare a cesare....
ok ho appena  capito cosa devo fare io... proprio da questo NG ... quindi mi
sento in dovere di rispondere.
Immagino che il testo debba comparire in conseguenza al suo valore .
Per esempio  se il ritorno di un'operazione fosse un "hai vinto!!!" sarebbe
rosso fuoco e lampeggiante , altrimenti ..bianco su nero !  :-)))
per caricare un label o un text  su un form posso riportare i due metodi
 che mi hanno appena suggerito !!)
A seconda del caso puoi avere la necessità di avere un numero imprecisato
,di "label" , non avendo descritto il tuo problema indicando lo scopo del
progetto.
con il comando *ADD* ottieni la creazione di un oggetto (che deve essere uno
degli oggetti che hai definito oppure che hai disponibile tra gli oggetti "
(Premi F2 ) dopo un po capirai cosa intendo.
Public WithEvents MIOTesto As TextBox
'((questo va inserito nelle dichiarazioni))
Set MIOTesto = Form1.Controls.Add("vb.textbox", MioNomeDelControllo)
'((Questo ti fa spuntare il controllo nel form1 (dove form1 è il nome del
form di progetto
Provato in VB6 , ma  contrariamente a quanto mi è stato detto a me sembra
che funzioni anche col 5.0  li ho entrambi installati.
Se però attribuisci uno stesso nome due volte .. ovviamente  VB ti ritorna
un errore di Run-Time.
Se hai bisogno di + controlli e non hai voglia di sbatterti a farti una
routine che crei dei nomi da dare ai controlli che andresti a disseminare
sul tuo form , beh .. opterei per la seconda
..cioè aggiungere una nuova istanza di un oggetto creato in precedenza
Load Picture1(Picture1.Count)
'((Questo ti carica una nuova instanza di un oggetto Picturebox avente nome
Picture1))
'((Deve essere presente sul FORM e deve avere un Indice = 0 in partenza))
'(( a questo punto puoi far riferimento all'oggetto in modo + facile))
'((semplicemente "puntando" al suo indice ))
'Picture1(0) rimarrà il tuo oggetto originale
'Picture(1) quello appena creato..che diventerà Picture1(2)...ecc...ecc
' IL PROBLEMA  adesso è che il tuo oggetto "nasce" con le sue proprietà di
default , identico a 'quello "clonato" , anche se in termine non è esatto ,
mi sembra il + adatto
Set Picture1(Picture1.Count - 1) = Me.Frame1(Picture1.Count - 1)
'((Questo comando ti sposta il tuo oggetto creato dove era il precedente
dentro al Frame1 sul 'Form in uso))...ovviamente il Frame1 deve esistere ..
altrimenti mettilo dove c'è posto ! :-))
'((Con questo metodo puoi spostare il tuo comando nel posto previsto per la
visualizzazione))
adesso non ci resta che definire che tipo di aspetto deve avere , colore ,
altezza , font , background ...ecc..ecc
Ricordati che il NOME dell'OGGETTO rimarrà quello originario cioè nel caso
di Picture1 rimarrà Picture1 ... cambierà solo l'indice
Per disporre la new-entry ..supponiamo di un TEXBOX
sarà necessario  questo
Load text1(text1.Count) ' text1(0) già esiste sul Form e verrà caricata
text1(1)
text1(1).visible = True
text1(1).text = "Eureka!"
text1(1).top = ......
Per i FONT esistono costanti  , come anche per i Colori
Premi F1 e cerca "Costanti"
In qualunque momento puoi accedere alle proprietà del tuo oggetto
Picture1(*) conoscendone l'indice.
Ovviamente alcune proprietà (per esempio l'indice) non sono modificabili in
Run-Time mode.
L'abbinamento ad un timer ti produrrà effetti lampeggio..Per effetti
speciali...non sono all'altezza...quindi per cambiare carattere sulla stessa
linea credo ti serva un RichTextBox.
Have Fun !
ciao  !
Io purtroppo ancora per un po ..sono senza guida in linea
...limortaccimiei.. ma se l'hai ..usala !
Alex wrote in message <01be91c0$e0007fb0$0a0a0a0a@mn0540>...
