xurxinho_92

ifrancoz respondió: Para esto utilizamos el evento KeyPress y el código Ascii 68 que corresponde a la letra D. Ejemplo : Private Sub Form_Load() Text1 = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 68 Then MsgBox "Correcto" End If End Sub Suerte !

flopstech respondió: Public num_archivo As Integer 'Esta linea agregala al inicio Private Sub Command1_Click() Open "C:\test" & num_archivo & ".txt" For Output As #1 Close #1 num_archivo = num_archivo + 1 End Sub num_archivo = FreeFile() 'En el Form_Load agrega esta...