Visual Basic 6 - controlli

Forum - Visual Basic 6 - controlli

komi (Normal User)
Newbie

Messaggi: 19
Iscritto: 26/02/2009

Postato alle 14:38
Giovedì, 26/02/2009

ciao a tutti
sono nuovo del forum e newbies del vb
sto usando vb6 ed ho 1 prob.
ho 1 form MDI con 1 combobox x la scelta del font
e varie form child con delle textbox
ho provato vari modi x modificare i testi nelle text box
ma nn sono riuscito
qualcuno può dirmi come devo fare
a modificare il font di 1 text box senza cambiare quello delle altre
e magari scrivermi le linee di codice necassarie?
c'è differenza tra textbox singole oppure matrici?
grazie x l'aiuto che vorrete darmi
ciao

tippolo (Normal User)
Pro

Messaggi: 157
Iscritto: 21/09/2008

Postato alle 14:50
Giovedì, 26/02/2009

Testo quotato

Postato originariamente da komi:

ciao a tutti
sono nuovo del forum e newbies del vb
sto usando vb6 ed ho 1 prob.
ho 1 form MDI con 1 combobox x la scelta del font
e varie form child con delle textbox
ho provato vari modi x modificare i testi nelle text box
ma nn sono riuscito
qualcuno può dirmi come devo fare
a modificare il font di 1 text box senza cambiare quello delle altre
e magari scrivermi le linee di codice necassarie?
c'è differenza tra textbox singole oppure matrici?
grazie x l'aiuto che vorrete darmi
ciao

posta il codice che hai scritto per cambiare il font.
Ti sarà più facile avere una risposta

Ultima modifica effettuata da tippolo il 26/02/2009 alle 14:51

komi (Normal User)
Newbie

Messaggi: 19
Iscritto: 26/02/2009

Postato alle 20:28
Giovedì, 26/02/2009

grazie tippolo x aver risposto al mio post
ti ricordo ke nel form padre ho inserito 1 combobox x la scelta del font,è tutto funziona.
nelle form figlie ho vari richtextbox;
x cambiare il font ho inserito il seguente codice:

Private Sub ComboCarattere_Click()
    On Error GoTo Bottom
    FormRaccomandata.RichTextBox1_Destinatario.SelFontName = ComboCarattere.List(ComboCarattere.ListIndex)
    FormRaccomandata.RichTextBox1_Indirizzo_Destinatario.SelFontName = ComboCarattere.List(ComboCarattere.ListIndex)
Bottom:
End Sub

ma il mio prob. è che se modifico il font in 1 textbox si modifica anke il testo di tutte le altre mentre vorrei cambiare il font di 1 sola di esse.
ho provato con i cicli, for  next, for each, ma niente.
ho consultato msdn, internet, ma nn ho risolto il prob.
puoi darmi indicazioni in merito?
grazie

tippolo (Normal User)
Pro

Messaggi: 157
Iscritto: 21/09/2008

Postato alle 14:11
Venerdì, 27/02/2009

Testo quotato

Postato originariamente da komi:

grazie tippolo x aver risposto al mio post
ti ricordo ke nel form padre ho inserito 1 combobox x la scelta del font,è tutto funziona.
nelle form figlie ho vari richtextbox;
x cambiare il font ho inserito il seguente codice:

Private Sub ComboCarattere_Click()
    On Error GoTo Bottom
    FormRaccomandata.RichTextBox1_Destinatario.SelFontName = ComboCarattere.List(ComboCarattere.ListIndex)
    FormRaccomandata.RichTextBox1_Indirizzo_Destinatario.SelFontName = ComboCarattere.List(ComboCarattere.ListIndex)
Bottom:
End Sub

ma il mio prob. è che se modifico il font in 1 textbox si modifica anke il testo di tutte le altre mentre vorrei cambiare il font di 1 sola di esse.
ho provato con i cicli, for  next, for each, ma niente.
ho consultato msdn, internet, ma nn ho risolto il prob.
puoi darmi indicazioni in merito?
grazie

Questo è pane per TheProgrammer e GrG :k:

Abbi un pò di pazienza.

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:46
Venerdì, 27/02/2009

per cambiare font a una richtextbox devi prima selezionare il testo a cui cambiare font...esempio(rch = richtextbox):

Codice sorgente - presumibilmente Plain Text

rch.SelStart = 0
rch.SelLength = Len(rch.Text)
rch.SelFontName = "Arial"

komi (Normal User)
Newbie

Messaggi: 19
Iscritto: 26/02/2009

Postato alle 19:54
Venerdì, 27/02/2009

grazie grg
le linee di codice ke hai scritto risolvono in parte il mio prob.
perke ho molte richtextbox, e vorrei modificare il font tramite 1 combobox ke contiene tutti i font installati sul computer.
ti chiarisco meglio il prob. spiegandoti il mio progetto in vb6:

esempio di progetto MDI

il progetto contiene 3 form;
1 form MDI ke contiene 2 childform;
nel form principale, si trovano 1 toolbar, con i vari bottoni, ed 1 coolbar ke contiene 2 combobox, 1 per la scelta del font, l'altra per la scelta delle dimensioni del font;
come avviene in word;
in 1 childform si trova solo 1 bottone ke apre la seconda childform;
in quest'ultima si hanno 3 richtextbox indipendenti, cioè nn sono parte di un array;
il mio prob. è ke vorrei modificare il font ed il suo size in ciascuna delle 3 richtextbox, 1 per volta, ma senza modificare quello delle altre richtextbox già modificato;
in altri termini se ho modificato il font nella prima richtextbox, quando vado a modificare il font nella seconda richtextbox, nn si deve modificare quello della prima.
grazie a tutti, ciao

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:57
Venerdì, 27/02/2009

mm...prova ad usare un if sulla richtextbox da modificare e vedi se come font c'è quello di default(che dovrebbe essere: MS Sans Serif) o no...