programacion
INTERFAZ GRAFICA
Public Class frmarchivosecuencialPrivate Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
Try
FileOpen(1, "C:\Documents and Settings\Sugei La Ardida\Misdocumentos\trabajos prepa EIAO\secuencia_didactica_7_ejercicio_27", OpenMode.Output)
PrintLine(1, txtnombre1.Text, txtmatricula1.Text, txtgrupo1.Text, txtnombre2.Text, txtmatricula2.Text,txtgrupo2.Text, txtnombre3.Text, txtmatricula3.Text, txtgrupo3.Text)
txtnombre1.Text = ""
txtmatricula1.Text = ""
txtgrupo1.Text = ""
txtnombre2.Text= ""
txtmatricula2.Text = ""
txtgrupo2.Text = ""
txtnombre3.Text = ""
txtmatricula3.Text = ""
txtgrupo3.Text = ""FileClose(1)
Catch ex As Exception
End Try
End Sub
Private Sub btnagregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnagregar.ClickTry
FileOpen(1, "C:\Documents and Settings\Sugei La Ardida\Mis documentos\trabajos prepa EIAO\secuencia_didactica_7_ejercicio_27", OpenMode.Append)
PrintLine(1,txtnombre1.Text, txtmatricula1.Text, txtgrupo1.Text, txtnombre2.Text, txtmatricula2.Text, txtgrupo2.Text, txtnombre3.Text, txtmatricula3.Text, txtgrupo3.Text)
txtnombre1.Text = ""txtmatricula1.Text = ""
txtgrupo1.Text = ""
txtnombre2.Text = ""
txtmatricula2.Text = ""
txtgrupo2.Text = ""
txtnombre3.Text = ""txtmatricula3.Text = ""
txtgrupo3.Text = ""
FileClose(1)
Catch ex As Exception
End Try
End Sub
Private Sub btnllenar_Click(ByVal sender As...
Regístrate para leer el documento completo.