Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

Colore caratteri

  1. #1
    Sergran non è in linea Scolaretto
    Post
    115
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ciao m'intereserebbe che in fase di visualizzazione di un testo composto da numeri e lettere visibili tramite TexBox di una maschera access solo i numeri venissero automaticamente colorati di rosso.
    Ciao grazie

  2. #2
    licetinsanire non è in linea Scolaretto
    Post
    245
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ciao,
    devi impostare la proprietà formato testo = RTF (non mi ricordo se in Access 2003 è presente, sicuramente dal 2007 sì.)
    Fatto questo usa il seguente codice:

    Dim c As String
    Dim a As String
    Dim i As Integer
    
    For i = 1 To Len("TEST12TEST34")
        c = Mid$("TEST12TEST34", i, 1)
        ' per ogni carattere verifico se è numerico
        If IsNumeric(c) = True Then
            c = "<font color=red>" + c + "</font>"
        End If
        a = a & c ' ricompongo la stringa
    Next i
    
    Me.Testo0 = a
    

  3. #3
    Sergran non è in linea Scolaretto
    Post
    115
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ciao grazie per l'infrmazione ma mi sa che sto sbagliando io qualcosa perchè non funziona
    Io in pratica ho chiamato Testo0 la Texbox e ho insertio il codice in "Su attivato"

    Mi potresti dare una mano? Grazie 1000
    Un'altra cosa: io dovrei utilizzare la proprietà Memo. Funziona lo stesso?
    Ciao e grazie!!

    Quote Originariamente inviato da licetinsanire Visualizza il messaggio
    Ciao,
    devi impostare la proprietà formato testo = RTF (non mi ricordo se in Access 2003 è presente, sicuramente dal 2007 sì.)
    Fatto questo usa il seguente codice:

    Dim c As String
    Dim a As String
    Dim i As Integer
     
    For i = 1 To Len("TEST12TEST34")
        c = Mid$("TEST12TEST34", i, 1)
        ' per ogni carattere verifico se è numerico
        If IsNumeric(c) = True Then
            c = "<font color=red>" + c + "</font>"
        End If
        a = a & c ' ricompongo la stringa
    Next i
     
    Me.Testo0 = a
    

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. CALC: modificare il colore dei caratteri in una cella.
    Da luca58 nel forum LibreOffice, OpenOffice e altro
    Risposte: 0
    Ultimo Post: 25-10-2015, 12:03
  2. Risolto: [VB2010] cambiare colore ad un immagine ... sostituire un colore
    Da imbranato nel forum Visual Basic .Net
    Risposte: 9
    Ultimo Post: 24-10-2013, 18:17
  3. Associare colore textbox a colore cella excel
    Da terrasamba nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 21-02-2013, 18:58
  4. Problema colore caratteri
    Da Patrona70 nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 16-03-2005, 19:06
  5. Colore caratteri desktop KDE
    Da Master85 nel forum Tutto Linux
    Risposte: 6
    Ultimo Post: 26-02-2005, 14:37