Newsgroup: it.comp.lang.visual-basic
Titolo: "Seleziona tutto" con richtext box (?)

Salve, debbo semplicemente selezionare tutto il testo contenuto nella
mia RTB, come fare?
--------------------------------------------
"Che la vostra memoria non s'imboli
  nel primo mondo da l'umane menti,
  ma s'ella viva sotto molti soli "
--------------------------------------------
molte onorevoli grazie a Voi
^____^
Luca

 wrote in message
mZ5z8.28208$W9.6...@twister2.libero.it...



...fico...
....a volte le cose,..basta saperle
molte onorevoli grazie a tč, ooh saggio
^____^
Luca

 ....a volte le cose,..basta saperle
a volte invece, come in questo caso basta premere F1 :(


inutile dire che F1 l'ho premuto eccome, ma siccome ti rispondo NON per
perdere tempo, ma per capire, vorrei capire che sistema usi tu per trovare
le
cose con F1, mi spiego: vorrei sapere in questo caso come tu & F1 sareste
arrivati a "rtb.selstart=0"  "rtb.sellength=len(rtb.text)" partendo da
"Seleziona"
...mi interessa veramente, e magari la prossima volta non conumerò spazio ed
energie di questo NG.
Ciao, grazie
Luca

...ingenuamente ho scritto:
Private Sub mnuSeleziona_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
...mi sarei aspettato di vedere il testo contenuto nel
RichTextBox1 selezionato (in blu o nero), o almeno
di poterlo copiare con ctrl+c.. invece nulla....
mi dai un'altra spinta?
molte onorevoli grazie a tè
^____^
Luca

 End Sub

 spazio ed energie di questo NG.
poi se cerchi:
"selezionare testo text box" (tu cos'hai cercato?)
su 
grooup.google.com
 (limitatamente a iclvb) trovavi questo:
http://groups.google.com/groups?hl=it&q=selezionare+testo+text+box+group%3Ai
t.comp.lang.visual-basic
In cima trovi guardacaso la risposta al tuo problema (la textbox si comporta
allo stesso modo della rtb in questo caso).
Parti con "selezionare testo" poi man mano raffini la ricerca...
hth

 di poterlo copiare con ctrl+c.. invece nulla....
Non è che il controllo RichTextBox1 ha perso il Focus e quindi non vedi la
selezione?
Prova a fare un RichTextBox1.SetFocus nella Sub mnuSeleziona_Click().
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)


...ancora non ci siamo, alla peggio uso clipboard....
...però...
Private Sub mnuSeleziona_Click()
RichTextBox1.SetFocus
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelText = RichTextBox1.Text
'Clipboard.Clear
'Clipboard.SetText (RichTextBox1.Text)
Beep
MsgBox "Selezionato!...ora puoi copia ed incollare...", vbInformation,
"Estrai e.mail"
'MsgBox "Copiato!...ora puoi incollare...", vbInformation, "Estrai e.mail"
End Sub
Private Sub mnuEstrai_Click()
'txtFile.Text = Email
RichTextBox1.Text = Email
cmdCopia = True
mnuSeleziona.Enabled = True
End Sub
Private Sub cmdApri_Click()
            'On Error GoTo ErrorHandler 'Attiva la routine di gestione degli
errori.
            '
            'ErrorHandler:            ' Routine di gestione degli errori.
            'Screen.MousePointer = vbDefault 'Ripristina il puntatore del
mouse.
            'Exit Sub 'invece di Resume puoi usare exit per uscire dalla
routine.
            ''Resume   ' Riprende l'esecuzione alla stessa
            '          ' riga che ha generato l'errore.
    Dim nomefile As String
    Dim testo As Variant
    CommonDialog1.Filter = "File di testo (*.txt)|*.txt|File m@il
(*.m@l)|*.m@l|Tutti i file (*.*)|*.*"
    CommonDialog1.ShowOpen
    nomefile = CommonDialog1.FileName
    cmdEstrai.Enabled = True
    mnuEstrai.Enabled = True
    '----------------
Dim Contamail As Integer
Contamail = 0
    'Ammettiamo che leggi il tuo file una riga alla volta
    '(ad esempio con LineInput) ed ogni riga la leggi
    'nella variabile Riga:
Open nomefile For Input As #1   ' Apre il file.
   'Imposta il puntatore del mouse = a clessidra.
   Screen.MousePointer = vbHourglass
Do While Not EOF(1)   'Ripete fino alla fine del file.
   Line Input #1, riga   'Assegna la riga a una variabile.
   testo = testo & (Chr(13) + Chr(10)) & riga
   DoEvents
        Do
        chiocciola = InStr(riga, "@") 'cerca la pos di "@" solo x vedere se
c'è...
        If chiocciola = 0 Then Exit Do '...se c'è, di sicuro è <> da 0
quindi può continuare, in caso contrario esce per questa riga
        Contamail = Contamail + 1
        Inizio = InStrRev(riga, " ", chiocciola) 'trova la posizione dello
spazio vuoto, cioè dove poi inizia l'indirizzo...
            If Inizio = 0 Then
            riga = " " & riga 'siccome (inizio=0) causa un'errore, aggiungo
un " "
            Inizio = InStrRev(riga, " ", chiocciola + 1)
            End If
        Fine = InStr(chiocciola, riga, " ")
            If Fine = 0 Then 'se Fine dà 0 causa l'errore...(non può essere
a 0 che sarebbe la prima posizione..)
            Fine = InStr(chiocciola, riga & " ", " ")
            End If
            If Contamail = 1 Then 'questa if serve per non mettere il ";"
davanti al 1° indirizzo
            Email = Mid(riga, Inizio, Fine - Inizio)
            Else
            'Email = Email & " ; " & Mid(riga, Inizio, Fine - Inizio)
            Email = Email & " ; " & (Chr(13) + Chr(10)) & Mid(riga, Inizio,
Fine - Inizio)
            End If
        riga = Mid(riga, Fine + 1) 'toglie l'email appena trovato e
ripropone il resto di riga (con loop) ad un'altro controllo della
chiocciola..
        Loop
Text1.Text = "Gli indirizzi e.mail trovati in questo file sono: " &
Contamail
   'Debug.Print Riga   ' Scrive nella finestra Immediata.
Loop
Close #1   ' Chiude il file.
'txtFile.Text = testo
'txtFile.Enabled = True
RichTextBox1.Text = testo
RichTextBox1.Enabled = True
   'Ripristina il puntatore del mouse.
   Screen.MousePointer = vbDefault
End Sub
...cosa ne pensa dottore???
;-)