**Guardar**

Solo disponible en BuenasTareas
  • Páginas : 2 (362 palabras )
  • Descarga(s) : 0
  • Publicado : 14 de marzo de 2011
Leer documento completo
Vista previa del texto
[pic]

Imports System.IO
Public Class Form1

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'Form3.Show()
End SubSub nuevo()
For Each c As Control In GroupBox1.Controls
If TypeOf c Is TextBox Then
CType(c, TextBox).Text = ""
End If
NextcbSexo.SelectedIndex = -1
pbFoto.Image = Nothing
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
nuevo()End Sub
Sub examinar()
With OpenFileDialog1
.Filter = "Archivos de Programa| *.bmp; *.jpg; *.png"
.Title = "Carga tu Foto"
If .ShowDialog =Windows.Forms.DialogResult.OK Then
pbFoto.Image = Image.FromFile(.FileName)
End If
End With
End Sub

Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click
examinar()
End Sub

Sub guardar() '"contactos.dat" La ruta si desea se cambia
Dim archivoContactos As NewFileStream("contacto.dat", FileMode.Append, FileAccess.Write) 'append es modo anexado escribe desde la ultima fila que encuentre conexion
Dim escritorArchivo As New StreamWriter(archivoContactos)Dim contacto As String
contacto = txtnombres.Text & "," & txttelf.Text & "," & txtmail.Text & "," & txtmail2.Text & "," & txtdir.Text & "," & cbsexo.Text & "," &OpenFileDialog1.FileName
escritorArchivo.WriteLine(contacto)
escritorArchivo.Flush()
archivoContactos.Close()
MsgBox("Contacto Registrado")

End Sub

Private SubButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
guardar()
End Sub
Sub listar()
Dim archivoContacto As New FileStream("contacto.dat",...
tracking img