GoLDBeRG_Bill
30-07-2006, 06:26
salve raga vi posto il codice del form con l'evento key down
_________________________________________________________________
Public Class Form1
Dim stringa As New ArrayList
Dim stringa2 As New ArrayList
Dim g As String
Dim f As String
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
On Error Resume Next
Dim b As Integer
For b = 0 To stringa.Count - 1
f += (stringa(b))
Next b
MsgBox(f)
Dim r As Integer
For r = 0 To stringa2.Count - 1
g += stringa2(r) & Chr(9)
Next r
MsgBox(g)
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
On Error Resume Next
Dim a As String
a = Convert.ToChar(e.KeyCode)
stringa2.Add(e.KeyCode)
stringa.Add(a)
End Sub
End Class
______________________________________________________________
ma se poi la form diventa inattiva il keydown nn funzia piu
a me serve sto coso per spiare il mio stesso pc perche ho paura che mio
figlio vada su dei siti...... avete capito o che chatti con persone sbagliate....
potete aiutarmi? grazie infinite
_________________________________________________________________
Public Class Form1
Dim stringa As New ArrayList
Dim stringa2 As New ArrayList
Dim g As String
Dim f As String
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
On Error Resume Next
Dim b As Integer
For b = 0 To stringa.Count - 1
f += (stringa(b))
Next b
MsgBox(f)
Dim r As Integer
For r = 0 To stringa2.Count - 1
g += stringa2(r) & Chr(9)
Next r
MsgBox(g)
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
On Error Resume Next
Dim a As String
a = Convert.ToChar(e.KeyCode)
stringa2.Add(e.KeyCode)
stringa.Add(a)
End Sub
End Class
______________________________________________________________
ma se poi la form diventa inattiva il keydown nn funzia piu
a me serve sto coso per spiare il mio stesso pc perche ho paura che mio
figlio vada su dei siti...... avete capito o che chatti con persone sbagliate....
potete aiutarmi? grazie infinite