Visual Basic 6 - "forzare" una textbox

Forum - Visual Basic 6 - "forzare" una textbox

Due (Normal User)
Pro

Messaggi: 68
Iscritto: 19/10/2007

Postato alle 21:39
Sabato, 17/11/2007

Come posso fare a fare in modo che in una textbox sia possibile immetere solo certi caratteri? avevo trovato un programma simile nell'area download ma non riesco più a trovarlo

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 22:47
Sabato, 17/11/2007

dovresti agire nell'evento Change della textbox e prendere l'ultimo valore e verificarlo. Per esempio:

Codice sorgente - presumibilmente VB.NET

'evento change della textbox
dim c as string
c = right(text1.text,1)
select case c
 case "a"
  text1.text = left(text1.text,len(text1.text)-1)
 case "e"
  text1.text = left(text1.text,len(text1.text)-1)
 case "i"
  text1.text = left(text1.text,len(text1.text)-1)
 case "o"
  text1.text = left(text1.text,len(text1.text)-1)
 case "u"
  text1.text = left(text1.text,len(text1.text)-1)
end select

questo esempio non permette di scrivere le vocali.
Ciao.

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 7:04
Domenica, 18/11/2007

Questo accetta solo caratteri numerici

Codice sorgente - presumibilmente VB.NET

in un modulo bas
 
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const ES_NUMBER = &H2000&
Public Sub SetNumber(Text1 As TextBox, Flag As Boolean)
Dim curstyle As Long
Dim newstyle As Long
 
curstyle = GetWindowLong(Text1.hwnd, GWL_STYLE)
 
If Flag Then
curstyle = curstyle Or ES_NUMBER
Else
curstyle = curstyle And (Not ES_NUMBER)
End If
 
newstyle = SetWindowLong(Text1.hwnd, GWL_STYLE, curstyle)
Text1.Refresh
End Sub

La sintassi da inserire nel Form.Load é questa

Codice sorgente - presumibilmente Plain Text

SetWindowLong(Text1.hwnd, GWL_STYLE, curstyle)

__________________________________________________
La programmazione non é una cosa che piace a tutti

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 14:33
Domenica, 18/11/2007

credo che sia il mio il programma a cui ti riferisci

http://www.pierotofy.it/pages/sorgenti/Visual_Basic_p2/

il programma si chiama: Solo caratteri selezionati

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 14:39
Lunedì, 19/11/2007

antometal non per offenderti ma questo codice l'ho fatto io senza "sbirciare" da altri prog :ot:

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 16:24
Lunedì, 19/11/2007

nn mi offendo...

ti assicuro xò che questo codice l' ho scritto da me in vista di un compito scolastico, ed è sicuramente possibile che sia simile al tuo (che sinceramente nn ho mai visto) o al codice di altri programmatori in quanto sia un codice semplice, breve e credo sia l' unico modo per realizzare quel programma

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 7:33
Martedì, 20/11/2007

FORSE SIMILE!!!!!