首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

怎么传送一段文本

2012-03-07 
如何传送一段文本?如何传送Richtext控件中的一段文本到记事本软件中?[解决办法]Dim file_dial As New Save

如何传送一段文本?
如何传送Richtext控件中的一段文本到记事本软件中?

[解决办法]
Dim file_dial As New SaveFileDialog
Dim mystream As System.IO.FileStream
Dim SW As System.IO.StreamWriter
Dim cha() As Byte

file_dial.InitialDirectory = "C:\ "
file_dial.Filter = "code files (*.txt)|*.txt "
file_dial.FilterIndex = 0
file_dial.RestoreDirectory = True


If file_dial.ShowDialog() = DialogResult.OK Then
mystream = file_dial.OpenFile()

SW = New System.IO.StreamWriter(mystream)
SW.Write(sentenceBox.Text)
SW.Close()
mystream.Close()

End If

热点排行