Tecla presionada
Publicado por Francisco (4 intervenciones) el 23/06/2017 00:14:00
este es mi codigo
lo que pretendo hacer en el es que cada vez que se presione la tecla Supr en cualquier parte del sistema operativo, se e cree un archivo en la carpeta estadistica, pero tengo un problema si yo tengo presionado la tecla se me creen varios, y quiero que al presionarla solo me cree uno, una idea o ejemplo)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If (GetAsyncKeyState(46)) Then
Dim sRenglon As String = Nothing Dim strStreamW As Stream = Nothing Dim strStreamWriter As StreamWriter = Nothing Dim ContenidoArchivo As String = Nothing ' Donde guardamos los paths de los archivos que vamos a estar utilizando ..
Dim PathArchivo As String
Dim i As Integer
Try
If Directory.Exists("C:\Estadistica") = False Then ' si no existe la carpeta se crea
Directory.CreateDirectory("C:\Estadistica")
End If
Dim numero As New Random
Dim minumero As Integer = numero.Next(0, 1000000)
Windows.Forms.Cursor.Current = Cursors.WaitCursor
PathArchivo = "C:\Estadistica\" & minumero & ".txt" ' Se determina el nombre del archivo con la fecha actual
'verificamos si existe el archivo
If File.Exists(PathArchivo) Then
strStreamW = File.Open(PathArchivo, FileMode.Open) 'Abrimos el archivo
Else
strStreamW = File.Create(PathArchivo) ' lo creamos
End If
strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default) ' tipo de codificacion para escritura
'escribimos en el archivo
strStreamWriter.WriteLine("1 reproduccion")
strStreamWriter.Close() ' cerramos
Catch ex As Exception
MsgBox("Error al Guardar la ingormacion en el archivo. " & ex.ToString, MsgBoxStyle.Critical, Application.ProductName)
strStreamWriter.Close() ' cerramos
End Try
End If
Dim counter = My.Computer.FileSystem.GetFiles("C:\Estadistica").Count
If counter <> 0 Then
'MsgBox(counter)
Me.cantidad.Text = counter
End If
End Sub
Private Sub FrmInicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
lo que pretendo hacer en el es que cada vez que se presione la tecla Supr en cualquier parte del sistema operativo, se e cree un archivo en la carpeta estadistica, pero tengo un problema si yo tengo presionado la tecla se me creen varios, y quiero que al presionarla solo me cree uno, una idea o ejemplo)
Valora esta pregunta
0