Newsgroup: it.comp.lang.visual-basic
Titolo: textbox

ciao,
è possibile in un  textbox mettere in grassetto, corsivo o sottlineato solo
uan parola o un frase selezioata? Come?
--
{
-=<(GicK)>=-
gick(@)
gick.cjb.net
(Levare le parentesi dall'email per scrivermi personalmente)
}

 sottlineato solo uan parola o un frase selezioata? Come?
in un text box normale no, devi usare il richtextbox (o come cavolo si chiama)
Poi vai di di NomeControllo.SelBold
--
Salutoni
Sergio

 Poi vai di di NomeControllo.SelBold
selbold sta per metti in grassetto tutto cio' che è sottolineato vero?

 selbold sta per metti in grassetto tutto cio' che è sottolineato vero?
Non ci siamo ancora procurati la guida vero?
Per favore, non pretendere che noi si faccia le veci di MSDN
--
Salutoni
Sergio

> Per favore, non pretendere che noi si faccia le veci di MSDN
non è una pretesa... CIAO! cmq sto cercando tra i vecchi post e ho trovato
qualcosa...

>
ultima domanda... (...)
come faccio a selezionare ad esempi la seconda riga da cima a fondo?

 come faccio a selezionare ad esempi la seconda riga da cima a fondo?
Con il mouse?
--
Salutoni
Sergio

> Con il mouse?
no da codice col mouse lo so fare

 no da codice col mouse lo so fare
Lo sapevo, ti stavo "amabilmente" prendendo per i fondelli.
La cosa però non è così banale: cosa intendi per seconda riga?
In particolare, prova a pensare a come fa ad andare a capo un controllo textbox
(rich o meno), e poi ragionaci sopra.
--
Salutoni
Sergio

 (rich o meno), e poi ragionaci sopra.
se non sbaglio col vbcrlf ovvero Ascii 13 e 10 quindi dovrei scorrere tutti
il testo e controllare  carattere per carattere e vedere se è il 13 e se
dopo c'è il 10. Spero di non aver sbagliato ragionamento.

[Gick] scrisse:

Sì, devi guardare la proprieta Nomecontrollo.text (occhio che non mi sembra
essere la predefinita).
Questo vale per i ritorni a capo espliciti, poi ci sono quelli impliciti, perchè
il testo è troppo lungo per essere scritto su una sola riga. Se ti interessano
quelli... passo
--
Salutoni
Sergio


no, non penso che sia un problema... ho messo 2 scrollbar e non credo di
scrivere linee lunghissime
ho pensato di fare (presa in parte da vecchi post)
Public Sub Lunghezza()
    Dim I As Long
    Dim J As Integer
    For J = 1 To len(txt.text)
      I = InStr(1, s)
      If I = asc(13) Then 'pero penso che sia sbagliato asc(13),
        'come faccio a sapere il valore ascii??
        'è finita la riga
      End If
    Next J
End Sub

 ho pensato di fare (presa in parte da vecchi post)
(snip)
considera anche:
dim a() as string
a = split(txt.text, vbcrlf)
dopo questa operazione, nel vettore a hai un elemento per ciascuna delle righe
--
Salutoni
Sergio


??? in che senso? vuoi dire che bastava quella riga e a si riempe con le
righe?

[Gick] scrisse:

Gick, dammi retta: studia. Il mondo della programmazione è estremamente vasto,
un ng (che per altro è uno strumento potentissimo) non potrà mai sostituire
l'help in linea (e il libro di balena)
--
Salutoni
Sergio

 ha scritto nel messaggio
news:b2dfji$18dnss$1...@ID-173193.news.dfncis.de...


pero non capisco ancora come faccio a seleionare una o più parole da codice
(senza usare il mouse!! :-)
ad esempio selezionare le prime 3 lettere della stringa a(0)

>Per favore, non pretendere che noi si faccia le veci di MSDN
...si faccia...Toscano?!

scusate ho trovato con selstart CIAO E GRAZIE PER OGGI HO FINITO :))) il mio
sottospecie di programmillo č a posto!! GRAZIE MILLE CSSoft

 ...si faccia...Toscano?!
no, lombardo.
Ma mi piacerebbe saper usare idiomi diversi in funzione del contesto.
L'amore per le lingue, di cui altrove si parla, si rivolge anche ai dialetti.
--
Salutoni
Sergio

L'amore per le lingue, di cui altrove si parla, si rivolge anche ai dialetti.
Strano, usando la particella SI in quel modo ho pensato subito al
mitico dialetto toscano. Non che non mi piaccia il mio (bergamasco) ma
il dialetto toscano è piacevole da sentire.
Andrea. 

 ha scritto nel messaggio news:WJr2a.109550


vediamo... (vado senza provare e senza API)
' posizionamento su riga n° 3
i = 0
R = 0
Do while (i < len(Text1.Text) ) and (R < 3)
    i = instr(i + 1, Text1.Text, vbCRLF, vbBinaryCompare)
    if (i = 0) then Exit do ' troppo poche righe
    R = R + 1
Loop
' seleziono 4 caratteri della 3a riga
if (i > 0) then
    ' Riga trovata
    Text1.SelStart = i
    Text1.SelLength = 4
endif
Ciao