Ciao.
Devo implementare in un form una textbox che riceva dei dati da un array, una volta popolato, dovrei evidenziare con un font diverso (giallo+grassetto) i numeri inclusi in un range che stabilisco di volta in volta posti anche in posizioni nn sequenziali.
Ho provato ad utilizzare il componente .Net RichTextBox ma o evidenzio una sola istanza o tutte.
Grazie
Ripetete una bugia cento, mille, un milione di volte e diventerà una verità.[J.P.Gobbels]
Il peggiore virus è quello che si insedia tra la tastiera e lo schienale della sedia
Hai provato a ricercare RichTextBox all'interno di questo forum per verificare se esistono soluzioni che possono adattarsi al tuo problema?
MARCO BREVEGLIERI
Software and Web Developer, Teacher and Consultant
Home | Blog | Delphi Podcast | Twitch | Altro...
grazie Alka per l'interessamento cmq ho trovato la soluzione che riporto qui di seguito, potrebbe essere utile a qualcun altro:
DESC:
Questa funziona evidenzia in giallo+grassetto tutte le istanze del testo cercato in una RichTextBox
Public sub FindTextIstance(ByVal text As String, ByVal start As Integer) As Integer
If text.Length > 0 And start >= 0 Then
Dim indexToText As Integer = RichTextBoxName.Find(text, start, RichTextBoxFinds.WholeWord)
If indexToText >= 0 Then
RichTextBoxName.SelectionStart() = indexToText
RichTextBoxName.SelectionFont = New Font(txtEsito.SelectionFont, FontStyle.Bold)
RichTextBoxName.SelectionColor = Color.Yellow
End If
End If
End Sub
Ripetete una bugia cento, mille, un milione di volte e diventerà una verità.[J.P.Gobbels]
Il peggiore virus è quello che si insedia tra la tastiera e lo schienale della sedia
C'era un valore di ritorno che andava messo
Public Sub FindTextIstance(ByVal text As String, ByVal start As Integer)
If text.Length > 0 And start >= 0 Then
Dim indexToText As Integer = RichTextBoxName.Find(text, start, RichTextBoxFinds.WholeWord)
If indexToText >= 0 Then
RichTextBoxName.SelectionStart() = indexToText
RichTextBoxName.SelectionFont = New Font(txtEsito.SelectionFont, FontStyle.Bold)
RichTextBoxName.SelectionColor = Color.Yellow
End If
End If
End Sub
Ripetete una bugia cento, mille, un milione di volte e diventerà una verità.[J.P.Gobbels]
Il peggiore virus è quello che si insedia tra la tastiera e lo schienale della sedia
io RichTextBoxName.SelectionStart() = indexToText
nn lo trovo nel fw 2.0,poi cosi nn seleziona solo una voce trovata ???.
Ciao,
forse nn era molto chiara la mia spiegazione, la funzione va chiamata in un loop passandogli un parametro start uguale alla posizione+1 dell'ultima istanza trovata.
La property SelectionStart è tipica del componente RichTextBox; nell'intellisense di Visual Studio 2003 viene proposta.
Ripetete una bugia cento, mille, un milione di volte e diventerà una verità.[J.P.Gobbels]
Il peggiore virus è quello che si insedia tra la tastiera e lo schienale della sedia
ok capito ma in vb2005 nn la trovo......
Mi sembra strano che abbiano rimosso una proprietà, può darsi che gli abbiano assegnato un nome diverso :master:
Ma usi l'ambiente Professional o la versione Express?
Ripetete una bugia cento, mille, un milione di volte e diventerà una verità.[J.P.Gobbels]
Il peggiore virus è quello che si insedia tra la tastiera e lo schienale della sedia
professional sal visualizzatore oggetti nn lo trovo.
se il testo è molto lungo si vede il testo scorrere fino in fondo e poi fermarsi, e il cursore resta sull'ultima parte di testo evidenziata.
C'e un modo per impedire lo scrolling della finestra durante l'elaborazione? oppure un modo per non far aggiornare la form fino alla fine dell'elaborazione?
S'i fosse foco, arderei 'l mondo
Permessi di invio
