Visual Basic Open, Print, Save, Archivos de Disco Local C:

//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.