Newsgroup: it.comp.lang.visual-basic
Titolo: TxtBox e testo da aggiungere

Ho inserito in un Form una TextBox e una serie di CheckBox.
In questa TextBox inserisco dei dati che poi salvo su un file TXT sul mio
hdd.
Mediante i CheckBox, aggiungo dei nomi più velocementre, per evitare di
perdere tempo ad inserirli manualmente (tanto sono sempre gli stessi nomi).
E' possibile usare la TexBox come una ListBox e cioè aggiungere nomi uno
sotto l'altro (mediante CheckBox)?
Grazie.
Gregor.

 ha scritto

text1 = text1 & vbcrlf & chkTesto1

 text1 = text1 & vbcrlf & chkTesto1
Scusa, puoi spiegarmi meglio?
Attualmente con questo codice:
Private Sub Check3_Click()
txtNote.Text = Check3.Caption
If Check3.Value = 0 Then
txtNote.Text = ""
End If
End Sub
Private Sub Check4_Click()
txtNote.Text = Check4.Caption
If Check4.Value = 0 Then
txtNote.Text = ""
End If
End Sub
se clicco sul 3° CheckBox aggiungo il relativo Caption, se poi clicco sul 4°
il nuovo Caption rimpiazza il precedente, inceve vorrei che si aggiungesse
al precedente (magari nel punto dove si trova il cursore del mouse o subito
sotto all'ultimo insermento).
Deselezionando il Check invece, vorrei che il relativo Caption si
cancellasse.
Grazie.
Gregor.

 Grazie.
col codice di sopra, che poi ovviamente doveva essere
    text1 = text1 & vbcrlf & chkTesto1.caption
puoi aggiungerne finche' vuoi.
se ne vuoi togliere devi pero' leggere il txtbox riga per riga, copiandolo
su un'altra stringa senza la riga che non vuoi.
oppure (vb6) puoi provare per esempio, ma e' un'idea di adesso e non l'ho
testata:
text1= replace(text1, chk4.caption, "")
nel caso, ricordati di togliere anche il nuovalinea (crlf), secondo se sopra
o sotto:
text1= replace(text1, vbcrlf & chk4.caption, "")
text1= replace(text1, chk4.caption & vbcrlf, "")
ciao, a.
--
www.comune.modena.it/cittadini/apal/

 --
Ho provato (per ora solo ad aggiungere, poi mi preocuperň di eliminare) ma
non va!
text1 = text1 & vbcrlf & chkTesto1.caption     come devo interpretarla?
Testo1.Caption cosa č per te?
Con i CheckBox č come se volessi inserire (nel TextBox)  un titolo, per poi
continuare a scrivere sotto altre informazioni.
Titolo e info....cosě via (ho 10 CheckBox) per poi alla fine salavare il
tutto.
Grazie
Gregor.

 wrote in message
news:OSbz7.3945$V75....@news1.tin.it...
Ho risolto cosě:
Private Sub Check1_Click()
txtNote.Text = txtNote.Text & vbCrLf & Check1.Caption & vbCrLf
If Check1.Value = 0 Then
      txtNote.Text = Replace(txtNote.Text, vbCrLf & Check1.Caption, "")
End If
End Sub
Private Sub Check2_Click()
txtNote.Text = txtNote.Text & vbCrLf & Check2.Caption & vbCrLf
If Check2.Value = 0 Then
      txtNote.Text = Replace(txtNote.Text, vbCrLf & Check2.Caption, "")
End If
End Sub
Ripetuto 10 volte! Grazie per le dritte!
Mi puoi suggerire un modo per far si che il nome aggiunto mediante CheckBox
sia ad es. sottolineato? Vorrei si distinguesse dal testo inserito
manualmente.
Ho provato con FontUnderline ma invano!
Grazie ancora.
Gregor.

 Grazie ancora.
anziche' il txtbox standard devi usare il richtextbox (componenti -> ms
richtextbox).
per intenderci, quello di word, mentre lo standard e' quello di notepad.
mettilo su un form, selezionalo e premi f1.
guarda le proprieta' seltext, selstart ecc ecc.
ciao, a.

 ciao, a.
Ho captio le differenze, però è strana una cosa: riesco a modificare i Font
del TextBox, underline, colore, size....però una volta impostata la
modifica, questa si ripercuote su tutto il testo del TextBox....a me
servirebbe invece che fossero solo i nomi immessi mediante CheckBox ad
essere formattati!
Credo che il prob sia il CheckBox...proverò a sostituirlo con un CheckBox
(solo quadrato da spuntare) + label (vicina). Attualmente invece uso i
CheckBox impostando un Caption ad ognuno.
Dite che con
Private Sub cmdPrint_Click()
  Printer.CommonDialog1.FileName
  Printer.EndDoc
End Sub
Riesco a far stampare il file di testo creato? (CommonDialog.FileName è il
percorso del file TXT), o sarebbe meglio:
Private Sub cmdPrint_Click()
  Printer.Form1.txtNote        (txtNote è il nome del TextBox)
  Printer.EndDoc
End Sub
Non ho una stampate attualmente per fare le prove, e quando farò girare il
prog non avrò VB (6.0) a disposizione per fare le modifiche.
Grazie.
Gregor.

 Grazie.
ciao, j.sequel.di.post.di.ieri
le prossime chiamate saranno fatturabili :)