Sí! muchisimas gracias!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Busca el archivo deseado para guardarlo en el TextBox1.Text
OpenFileDialog1.DefaultExt = "sorpresa"
OpenFileDialog1.Filter = "sorpresa files (*.sorpresa)|*.sorpresa"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
TextBox1.Text = String.Empty
TextBox1.Text = OpenFileDialog1.FileName
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Abre el archivo seleccionado
If TextBox1.Text = "" Then Exit Sub
MsgBox("Good Play =)!")
End Sub
End Class