//Open File
OpenfileDialog .InitialDirecto=”C:\”
OpenfileDialog1.ShowDialog()
Dim line as String
Using reader As System.IO.Stream
Reader=New System.IO.StreamReader
(OpenfileDialog1.fileName)
Line=Reader.Readline
While(Not line is Nothing)
Rich TextBox1.AppendText(line)
RichTextBox1.AppendText(rlf)
Line=reader.Readline
End While
End Using
//Print File
PrintDialog1.ShowDialog
//Exit
If(MsgBox(“Deasea Guardar?”,Msg
BoxStyle.Exclamation+MsgBoxStyle.
YesNoCancel,”Cerrar Proyecto”)=
MsgBoxResult.Yes)Then
//Save
SavefileDialog.filter=”Archivo de Texto │ * .txt”
.doc”
.xls”
SavefileDialog.ShowDialog()
Using Admin as System.IO.Stream
Writer=NewSystem.IO.Stream
Writer(SavefileDialog.filename)
Admin.WriterLive(“ “)
End Using
Else
End If
Else
If MsgBoxResult.No Then
Me.Close()
End If
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.