807
社区成员
发帖
与我相关
我的任务
分享Private Sub Form_Load()
WebBrowser1.Navigate "c:\001.txt"
End Sub
'1.在text1属性列表中选择MultiLine的值为True
Private Sub Command1_Click()
Dim iLine As String
Dim iSumL As String
Open "c:\x22.txt" For Input As #1
While Not EOF(1)
Line Input #1, iLine
iSumL = iSumL + iLine & vbNewLine
Wend
Text1.Text = iSumL
End Sub