salve a tutti...
vi espongo in maniera concisa il mio problema....
io ho la necessità di formattare un testo facendo in modo che se è più lunga di un certo numero di caratteri, questa viene messa su due righe e la seconda riga, tenendo presente che tra il bordo del div e l'inizio della stringa c'è un immagine grande 10px per 10px..
tempo fà avevo creato una sub che faceva questo lavoro:
codice:
Function SistemaMenu(Valore, Lettere, numSpazi)
Dim VoceMenu, NumeroSpazi, arrStringa, Stringa
SistemaMenu = Empty
Stringa = Trim(UCase(Valore))
arrStringa = Split(Stringa, " ")
NumeroSpazi = numSpazi + 4
Do While Not Stringa = ""
For y = 0 To UBound(arrStringa)
on error resume next
VoceMenu = Trim(VoceMenu & " " & arrStringa(y))
If Len(VoceMenu) < Lettere Then
Stringa = Trim(Replace(Stringa, arrStringa(y), "", 1, 1))
arrStringa(y) = ""
Else
Exit For
End If
Next
SistemaMenu = SistemaMenu & Trim(VoceMenu)
If Len(Trim(Stringa)) > 0 Then
SistemaMenu = SistemaMenu & "
"
For y = 1 To NumeroSpazi
SistemaMenu = SistemaMenu & " "
Next
End If
VoceMenu = ""
Loop
End Function
solo che ora, vorrei sostituire i " " con un carattere di tabulazione...
solo che mi sn accorto che scrivendo chr(asc(vbTab)) tutte e due le righe vengono allineate al bordo sinistro del div, mentre se visualizzo il codice sorgente la tabulazione c'è...
come posso fare a inserire questo carattere di tabulazione?
grazie