Lunghezza Massima e colore della barre di scorrimento textbox

[Silver_Knight]

Ciao a tutti,
io ho questi 2 problemi, che non riesco a risolvere.
Il mio linguaggio e Vb net.

1 - Ho una textbox di lunghezza fissa di 1000 caratteri, vorrei che al raggiungimento del millesimo carattere non mi facesse più inserire nulla, invece ora continuo a scriverci e quando si fa un insert giustamente mi da errore.Ho ovviato al problema mettendo un if sulla lunghezza dei caratteri presenti nella textbox, ma vorrei mettegli il blocco e non so come si fa.

2 - Vorrei colorare le barre di scorrimento della textbox come faccio?

GRAZIE mille.

Ciao

[djciko]

non credo tu voglia farlo lato server, giusto ?

[Silver_Knight]

mmh no, direi di no...Cavolo ho sbagliato sezione

Sorry

[djciko]

ti sposto in JS

[Silver_Knight]

Ma se me lo hai spostato qui vuol dire che servono dei javascript?
Nessuno ha una mano da darmi?

Grazie mille

[djciko]

era la sezione piu' adatta

[pietro09]

1) metti in un file di libreria, per esempio libreria.js questa funzione:

//-------------------------------------------------------------
//se nel controllo Target1, si immettono piu di max caratteri,
//vengono tagliati i caratteri extra e viene mostrato un messaggio
//di alert
//-------------------------------------------------------------
function valutaLunghezza(Target1,max) 
{
	var StrLen1 = Target1.value.length;
	if (StrLen1 > max ) 
	{
		Target1.value = Target1.value.substring(0, max);
		window.alert("Ci sono  " + (StrLen1 - max) + " carattere/i oltre i " + max + " consentiti.\n\nI caratteri in eccesso sono stati eliminati.");
	} 

}

ps. trovata qui nel forum


2) nel server ti fai una libreria di utilità, per esempio un modulo, e ci metti questo metodo:

'-------------------------------------------------------------------------------
'limita la lunghezza del testo che si può immettere in un <textarea
'-------------------------------------------------------------------------------
Public Sub ValutaLunghezza(ByVal t As TextBox, ByVal Lunghezza%)
	t.Attributes.Add("onfocus", String.Format("valutaLunghezza(this,{0});", Lunghezza))
	t.Attributes.Add("onkeyup", String.Format("valutaLunghezza(this,{0});", Lunghezza))
End Sub

Public Sub ValutaLunghezza(ByVal t As Object, ByVal Lunghezza%)
	If TypeOf t Is TextBox Then
		Dim t1 As TextBox = DirectCast(t, TextBox)
		ValutaLunghezza(t1, Lunghezza)
	End If
End Sub

3) nella pagina che contiene i TextArea di cui vuoi limitare il numero max di caratteri, utilizzi l'evento init, come da esempio:

Protected Sub c_nota_pratica_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles c_nota_pratica.Init
	l.ValutaLunghezza(sender, 1000)
End Sub

4) l'intestazione della tua pagina sarà per esempio qualcosa del genere:
Option Strict On
Imports l = libreria.ModuloWeb
Imports o = System.Data.OracleClient


5) per quanto riguarda il salvataggio della TextArea nel database non andrà certo in errore perchè è obbligatorio fare un controllo preventivo e comunque farai qualcosa del genere:

Comando.Parameters.Add(msora.createParameterVarchar(":nota_pratica", 1000, l.StringNullToDBNull(Me.c_nota_pratica.Text)))

ossia userai un parametro stringa di cui fisserai la lunghezza massima


6) per l'altro problema non rispondo, prima perchè non lo so, secondo perchè riguarda i css e non javascript, terzo perchè lo trovo brutto brutto brutto

[Silver_Knight]

Scusa il ritardo, ti posso solamente dire Grazie infinite

[Silver_Knight]

Come posso fare a far visualizzare come carattere gli a capo usando la funzione che mi hai dato?
Perchè non me li conta come caratteri, mentre se faccio un len della textbox me gli a capo me li vede come 2 caratteri.

[pietro09]

Parola mia che non capisco. Alcuni browser usano due caratteri come fine riga; altri un solo carattere. E debbono essere conteggiati.