BuscarÚltimos temasPalabras claves¿Quién está en línea?En total hay 1 usuario en línea: 0 Registrados, 0 Ocultos y 1 Invitado Ninguno El record de usuarios en línea fue de 17 durante el Mar Jun 05, 2012 5:45 am | Subir un Archibo TXT Vie Jun 22, 2012 12:33 am por Admin Sub SaveTextBoxInFile(ByVal FileName As String, ByRef Text As TextBox) On Error Resume Next Close Open FileName For Output As #1 If Err > 0 Then Exit Sub Print #1, Text.Text Close End Sub Sub GetFileToTextBox(ByVal FileName As String, ByRef Text As TextBox) On Error Resume Next Close Open FileName For Input As #1 If Err > 0 Then Exit Sub Text.Text = Input(LOF(1), 1) Close End Sub Private … [ Lectura completa ] | Mejores posteadoresMiembros que empiezan más temasLos posteadores más activos de la semana
EstadísticasNuestros miembros han publicado un total de 1 mensajes en 1 argumentos. Tenemos 13 miembros registrados El último usuario registrado es joseleaguilar1@gmail.com |
Vie Jun 22, 2012 12:33 am por Admin