Visual Basic 6 - E' possibile sapere quando viene rilasciato un tasto fuori dal form?

Forum - Visual Basic 6 - E' possibile sapere quando viene rilasciato un tasto fuori dal form? - Pagina 2

Pagine: [ 1 2 ]

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 9:39
Domenica, 26/09/2010

http://msdn.microsoft.com/en-us/library/ms646293%28VS.85%2 ...

cristian3095 (Normal User)
Pro

Messaggi: 66
Iscritto: 24/09/2010

Postato alle 16:02
Domenica, 26/09/2010

ok ho quasi risolto...voglio capire però come togliere dei quadratini che compaiono persino quando faccio un click con il mouse....ho provato con

Codice sorgente - presumibilmente Plain Text

replace(textbox1.text,"",""

ma non funziona.... come posso fare?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 17:55
Domenica, 26/09/2010

compaiono solo al click del mouse o anche con altri tasti?

Comunque per capire bene è meglio se posti tutto il codice così guardo se c'è qualcosa che non va

cristian3095 (Normal User)
Pro

Messaggi: 66
Iscritto: 24/09/2010

Postato alle 22:51
Domenica, 26/09/2010

compaiono anche premendo altri tasti...ad esempio se premo "ALT" escono 2 qudratini e 1 carattere strano....cmq il codice è questo

Codice sorgente - presumibilmente VB.NET

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
dim i as integer
        For i = 1 To 255
            If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
                TextBox1.Text = TextBox1.Text & "0"
            End If
            If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
                TextBox1.Text = TextBox1.Text & "1"
            End If
            If GetAsyncKeyState(Keys.NumPad2) = -32767 Then
                TextBox1.Text = TextBox1.Text & "2"
            End If
            If GetAsyncKeyState(Keys.NumPad3) = -32767 Then
                TextBox1.Text = TextBox1.Text & "3"
            End If
            If GetAsyncKeyState(Keys.NumPad4) = -32767 Then
                TextBox1.Text = TextBox1.Text & "4"
            End If
            If GetAsyncKeyState(Keys.NumPad5) = -32767 Then
                TextBox1.Text = TextBox1.Text & "5"
            End If
            If GetAsyncKeyState(Keys.NumPad6) = -32767 Then
                TextBox1.Text = TextBox1.Text & "6"
            End If
            If GetAsyncKeyState(Keys.NumPad7) = -32767 Then
                TextBox1.Text = TextBox1.Text & "7"
            End If
            If GetAsyncKeyState(Keys.NumPad8) = -32767 Then
                TextBox1.Text = TextBox1.Text & "8"
            End If
            If GetAsyncKeyState(Keys.NumPad9) = -32767 Then
                TextBox1.Text = TextBox1.Text & "9"
            End If
 
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next

Ultima modifica effettuata da cristian3095 il 26/09/2010 alle 23:15

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 16:27
Lunedì, 27/09/2010

cavolo quello è codice di vb.net.... qui si parla di vb6... hai sbagliato sezione

Comunque sia il tuo problema si dovrebbe risolvere modificando il ciclo for in:

For i = 33 To 125

e non For i = 1 to 255 il quale comprende tutti i caratteri (pure quelli "strani")

Per sapere quali valori "comprendere" nel ciclo mi sono basato su questa tabella ASCII:
http://www.oppo.it/tabelle/tabella_ascii.htm

Poi se davvero vuoi imparare ti conviene studiarti il codice per bene..

p.s. Al prossimo problema posta in ".net world"

cristian3095 (Normal User)
Pro

Messaggi: 66
Iscritto: 24/09/2010

Postato alle 18:17
Lunedì, 27/09/2010

no...io non uso vb.net.....ho il visual studio 2005....può darsi però che si chiami anche vb.net....non ne ho idea xD
cmq grazie per l'aiuto....adesso vedo se riesco a sistemare.....credo posso farcela da solo...quindi si può chiudere
Grazie

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:24
Lunedì, 27/09/2010

allora vb6 sta per visual basic 6 che è uscito più o meno nel 1998...

poi le versioni successive come visual basic 2005 o visual basic 2008 vengono "raggruppate" sotto il nome vb.net e sono un pò differenti sia per sintassi che per interfaccia rispetto al vecchio vb6.

Ok, chiudo.

Pagine: [ 1 2 ]