Trabajo 2
Codigos
' Gambas class file
'Eduardo Santos'
PUBLIC SUB _new()
END
PUBLIC SUB btncancelar_Click()
fmrnombres.Visible = FALSE 'este indicador cancela los datos'
END
PUBLIC SUB btnguardar_Click()
fmrnombres.visible = TRUE ' en este indicador hace que mi boton guardar, guarde la informacion y vuelva visible la frame con la informacion'
txtnombrecompleto.Text = txtnombre.Text & " " & txtpaterno.Text & " " & txtmaterno.Text 'estos indicadores son para poner tu nombre, y apellidos'
txtfechas.Text = txtfecha.Text 'este indicador es para las fechas'
txtlugares.Text = txtlugar.Text & " ," & txtciudad.Text & " ," & txtestado.Text 'este indicador es para poner el lugar-ciudad y estado de nacimiento y de donde eres'
END
PUBLIC SUB btnaceptar_Click()
fmrnombres.Visible = FALSE 'este boton hace que guarde la informacion y vuelva a limpiar los cuadros para poner otros nuevos datos'
txtnombre.Clear
txtpaterno.Clear
txtmaterno.Clear
txtfechas.Text = ""
txtciudad.Text = ""
txtestado.Text = ""
END
PUBLIC SUB fmrnombres_MouseDown()
END
PUBLIC SUB frmdato_MouseDown()
END
PUBLIC SUB txtlugares_KeyPress()
END
PUBLIC SUB txtnombre_KeyPress()
END
PUBLIC SUB lblnombre_MouseDown()
END
'Eduardo Santos'
PUBLIC SUB _new()
END
PUBLIC SUB btncancelar_Click()
fmrnombres.Visible = FALSE 'este indicador cancela los datos'
END
PUBLIC SUB btnguardar_Click()
fmrnombres.visible = TRUE ' en este indicador hace que mi boton guardar, guarde la informacion y vuelva visible la frame con la informacion'
txtnombrecompleto.Text = txtnombre.Text & " " & txtpaterno.Text & " " & txtmaterno.Text 'estos indicadores son para poner tu nombre, y apellidos'
txtfechas.Text = txtfecha.Text 'este indicador es para las fechas'
txtlugares.Text = txtlugar.Text & " ," & txtciudad.Text & " ," & txtestado.Text 'este indicador es para poner el lugar-ciudad y estado de nacimiento y de donde eres'
END
PUBLIC SUB btnaceptar_Click()
fmrnombres.Visible = FALSE 'este boton hace que guarde la informacion y vuelva a limpiar los cuadros para poner otros nuevos datos'
txtnombre.Clear
txtpaterno.Clear
txtmaterno.Clear
txtfechas.Text = ""
txtciudad.Text = ""
txtestado.Text = ""
END
PUBLIC SUB fmrnombres_MouseDown()
END
PUBLIC SUB frmdato_MouseDown()
END
PUBLIC SUB txtlugares_KeyPress()
END
PUBLIC SUB txtnombre_KeyPress()
END
PUBLIC SUB lblnombre_MouseDown()
END