1. Visual Basic - Curso completo teoria y practica

End Sub
TxtCodigo = “”
TxtNombre = “”
TxtVacantes = “”
TxtProfesor = “”
TxtCodigo.SetFocus
Private Sub CmdEditar_Click()
End Sub
MODO_EDITAR True
Private Sub CmdGuardar_Click()
End Sub
REG.ID_CURSO = Trim(TxtCodigo)
REG.NOMBRE = Trim(TxtNombre)
REG.VACANTES = TxtVacantes
REG.PROFESOR = Trim(TxtProfesor)
REG.ESTADO = True
Put # N1, POSICION, REG
MODO_EDITAR False
Private Sub CmdEliminar_Click()
Dim N2 As Integer
Dim I As Integer, J As Integer
REG.ESTADO = False
Put # N1, POSICION, REG
N2 = FreeFile()
Pág. 184