conversione

[Extreme]

salve ragazzi sono di nuovo qua con una delle mie domande stupide ed eccola:

devo controllare se in una texbox cio che viene digitato dentro siano solo numeri e non lettere quindi avevo pensato di fare una conversione in decimal se la cosa va a buon fine significa che cio che è stato digitato è sicuramente un numero a questo punto vi porgo la mia domanda la conversione fa tornare un valore che mi dice se è andata a buon fine?? se è si qualcuno potrebbe farmi un esempio di un if con condizione se la conversione è andata buon fine??


grazie mille anticipatamente

[Pieruccio]

potrebbe essere quello che ti serve?

Private Sub text1_KeyPress(KeyAscii As Integer) 
Select Case KeyAscii 
Case 47 To 59 
'caratteri numerici OK 
Case 44, 46 
'carattere virgola e punto decimale OK 
Case 8 
'carattere backspace OK 
Case Else 
MsgBox "Puoi inserire solo valori numerici" 
KeyAscii = 0 
End Select 
End Sub

[Extreme]

mm vedi il problema è quello solo che in una textbox non ci va solo un carattere ma molti quindi se scrivo tipo 10a dovrebbe dare errore cosi non credo che lo faccia

[Extreme]

scusa se replico ma mi son dimenticato di dire che devo farlo solo su alcune textbox non su tutte

[cik]

il codice del messaggio di pieruccio impedisce che nella textbox vengano inseriticaratteri diversi dai numeri, dal "." , dalla "," e da backspace

[Extreme]

ok l'unico problema è che non funnziona perche ci ho provato ma non va

[ans]

Se ho ben capito vuoi che la textbox non accetti caratteri ma numeri? E allora xchè non imposti lo stile su numerico ????

[Extreme]

perche non so che sia questa cosa dello stile se mi spieghi imparo molot volentieri

[Extreme]

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim keyAscii As Integer <----- Errore!!!

Select Case keyAscii
Case 47 To 59
'caratteri numerici OK
Case 44, 46
'carattere virgola e punto decimale OK
Case 8
' 'carattere backspace OK
Case Else
MsgBox("Puoi inserire solo valori numerici")
keyAscii = 0
End Select
End Sub

credo che l'errore sia quando dichiaro keyascii ma se non lo dichiaro mi da i vari errori delle variabili avete idea di come fare??? cosi mi da sempre il messaggio. sapete come fare???

[ans]

Una textbox puo' avere diversi stili, normal, uppercase, lowercase, password, readonly, number only.

Se vuoi che accetti solo numeri e per solo numeri intendo [0-9] quindi niente , o . allora ti basta impostarla su number only, altrimenti puoi anche crare una mask dei caratteri da accettare.

Per impostare lo stile su number only:

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) As Long

Private Const ES_NUMBER As Long = &H2000
Private Const GWL_STYLE As Long = (-16)


'Leggi lo stile corrente
Dim tStyle As Long
tStyle = GetWindowLong(Text1.hwnd, GWL_STYLE)

'Imposta il nuovo stile
Call SetWindowLong(Text1.hwnd, GWL_STYLE, tStyle Or ES_NUMBER)