M@d_Hacker (Ex-Member)
Expert
 
Messaggi: 254
Iscritto: 25/02/2008
|
Devo far sì che una textbox non superi il valore massimo di 256.
Cioè in caso qualcuno inserisse un numero maggiore di 256 nella text (per es.) appare un msgbox di errore.
Ho usato questo codice ma nn va..
Codice sorgente - presumibilmente Visual Basic 6 |
If Text1.Text > "256" Then MsgBox "ciao", vbCritical
|
Ultima modifica effettuata da M@d_Hacker il 18/07/2008 alle 12:26 |
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Se parli del valore numerico massimo inseribile, allora usa la funzione Val sul textbox per fare il controllo.
Se parli di massimo 256 caratteri in input allora usa l'apposita proprieta'
|
|
|
Louis (Normal User)
Pro
Messaggi: 150
Iscritto: 22/04/2008
|
Nel seguente modo controlli che siano inseriti solo numeri e vhe la cifra non sia superiore a 256
Sempre che abbia capito bene il problema:
Codice sorgente - presumibilmente VB.NET |
Private Sub Text1_Change() On Error Resume Next Dim CtrTxt As Double If Not IsNumeric(Text1.Text) Then CtrTxt = Len(Text1.Text) - 1 Text1.Text = Mid(Text1.Text, 1, CtrTxt) Text1.SelStart = CtrTxt + 1 End If If Len(Text1.Text) > 0 And Val(Text1.Text) > 256 Then MsgBox "Valore massimo uguale o inferiore a 256 !", vbCritical Text1.Text = Mid(Text1.Text, 1, 2) Text1.SelStart = Len(Text1.Text) + 1 End If End Sub
|
|
|
|
M@d_Hacker (Ex-Member)
Expert
Messaggi: 254
Iscritto: 25/02/2008
|
Parlo del valore numerico massimo inseribile..
|
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Allora usa la Val ... per capirci
If Val(Text1.Text) > 256 then MsgBox "Valore maggiore di 256", vbCritical
|
|
|
giusy_m86 (Normal User)
Pro
Messaggi: 143
Iscritto: 09/07/2008
|
scusa, nn so se ho capito bene...
Ultima modifica effettuata da giusy_m86 il 18/07/2008 alle 16:34 |
|
|
Louis (Normal User)
Pro
Messaggi: 150
Iscritto: 22/04/2008
|
@giusy_m86,
la proprietà text del controllo può essere limitata con MaxLength ma per il numero massimo di caratteri digitabili; la domanda è incentrata invece su un valore max (ad esempio massimo 256 Euro) che può essere immesso nella proprietà Text.
|
|
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
Postato originariamente da giusy_m86:
scusa, nn so se ho capito bene...
per impostare il valore max ad una textbox basta selezionare la tex e nelle proprietà impostare il valore 256... |
ma in questo modo, quando il programma viene eseguito, è cmq possibile cambiare il valore
cmq dopo il codice di gantonio puoi inserire il 256 nella textbox e magari selezionarlo in modo da facilitare l' utente |
|
|
M@d_Hacker (Ex-Member)
Expert
Messaggi: 254
Iscritto: 25/02/2008
|
Problema risolto..
grazie
ps. affinkè nn vengano inseriti numeri io uso questo codice..
Codice sorgente - presumibilmente VB.NET |
Private Sub Text1_KeyPress(KeyAscii As MSForms.ReturnInteger) If InStr("0123456789", Chr$(KeyAscii)) = 0 Then KeyAscii = 0 End Sub
|
Ultima modifica effettuata da M@d_Hacker il 18/07/2008 alle 16:47 |
|
|
| 
