Visual Basic 6 - text e grassetto

Forum - Visual Basic 6 - text e grassetto

feddur (Normal User)
Pro

Messaggi: 200
Iscritto: 06/03/2008

Postato alle 23:08
Lunedì, 05/05/2008

Salve, ho la necessità in una text di evidenziare alcuni valori, ma non ho trovato un metodo.

esempio:
text1.text = valore1 & valore2 & valore3

come posso mettere in grassetto valore1 ?
Grazie.

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 23:29
Lunedì, 05/05/2008

Con una textbox non puoi ... metti tutto in grassetto oppure no.

Puoi utilizzare una richtextbox.

feddur (Normal User)
Pro

Messaggi: 200
Iscritto: 06/03/2008

Postato alle 23:48
Lunedì, 05/05/2008

Testo quotato

Postato originariamente da gantonio:

Con una textbox non puoi ... metti tutto in grassetto oppure no.

Puoi utilizzare una richtextbox.

come si fa utilizzando una richtextbox?

kryc (Normal User)
Rookie

Messaggi: 23
Iscritto: 10/12/2007

Postato alle 2:52
Martedì, 06/05/2008

Mettere in grassetto non puoi però puoi evidenziare il valore1 selezionandolo

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:13
Martedì, 06/05/2008

Ecco qui un esempio di aiuto:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
        
    Dim Where As Long
    Dim Message As String, Title As String, _
    Default As String, Search As String
    
    ' Imposta il messaggio:
    Message = "Immettere il testo da cercare:"
    ' Imposta il titolo:
    Title = "Cerca una frase - Prova RTB Cerca frase."
    ' Imposta il valore predefinito:
    Default = ""
    ' Visualizza il messaggio, il titolo e il valore predefinito.
    Search = InputBox(Message, Title, Default)
 
    Where = 0
 
    ' Cerca la frase nel testo:
        Where = InStrRev(Form1.RichTextBox1.Text, Search, -1, vbTextCompare)
        ' Se la trova, imposta l'inizio della selezione e la lunghezza:
        If Where > 0 Then
            With Form1.RichTextBox1
                .SetFocus
                .SelStart = Where - 1
                .SelLength = Len(Search)
                ' Neretta la frase trovata:
                .SelBold = True
                .HideSelection = False
            End With
        End If
End Sub