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

请大家提供一个打开文件对话框,并把文件内容读取到TextBox中的例子,该如何解决

2012-01-22 
请大家提供一个打开文件对话框,并把文件内容读取到TextBox中的例子RT[解决办法] cdg commondialog控件Cdg.

请大家提供一个打开文件对话框,并把文件内容读取到TextBox中的例子
RT

[解决办法]
'cdg commondialog控件
Cdg.Filter = "文本文件(*.txt|*.txt "
Cdg.FileName = " "
Cdg.ShowOpen
If Cdg.FileName <> " " Then
strOpen = Cdg.FileName '文件路径
End If

'读数据
Open strOpen For Input As #1 '打开网络中文件
TempData = StrConv(InputB$(LOF(1), 1), vbUnicode) '字符转化
LedData = TempData
Close #1 '关闭文件
[解决办法]
1.如果直接用RichTextBox可以用LoadFile 来装载文件内容,如:
RichTextBox1.LoadFile "d:\a.txt "
2.用TextBox则如:
Private Sub Command1_Click()
Dim s As String

With CommonDialog1
.Filter = "*.txt(文本文件)|*.txt "
.ShowOpen
Open .FileName For Binary As #1
s = Input$(LOF(1), #1)
Close #1
Text1.Text = s
End With
End Sub

热点排行