vb 怎样打开文件并把文件内容显示在文本框

工程添加部件microsoft common dialog control 6.0 在窗体加一个commondialog1控件，代码如下 Private Sub Command2_Click()CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName End Sub

在部件里添加一个CommonDialog控件，然后加到窗体上 Private Sub Command1_Click()CommonDialog1.Filter = "Text (*.txt)|*.txt"CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName End Sub

public function loadtext(madd as string) as string dim strA as string dim strB as string open madd for input as #1 while Eof(1)Get #1,,strA strB=strB & starA wend loadtext=strB end function 在程序中调用此函数即可，如：text1.text=loadtext("c:\aaa.txt")...

其实你这个真的是非常简单的事了。你说“打开单行文本内容的文件，文本框能显示；打开多行文本内容的文件就不行了，什么也没显示。”，其实不管单行文本还是多行文本 都已经显示了，但为什么多行文本你感觉没显示：是因为你的代码“Text1.Text = a”在do循环中每次只显示一行、而且是最后一行，恰巧你...

ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Public Sub SubOpenFile(ByVal FileSaveName As String, ByVal StrFrmName As Form)'打开文件 '输入:sFileName 待打开文件的全路径加上文件名,如 "F:\VB\RunExe\Module1.bas"'输入:调用该子...

读文件内容到TextBox :Try Using sr As StreamReader = New StreamReader("C:\\TestFile.txt")textbox1.Text = sr.ReadToEnd()End Using Catch E As Exception Console.WriteLine(E.Message)End Try 修改完成后,保存到文件:Using sw As StreamWriter = New StreamWriter("C:\\TestFile.txt")s...

2、在 form1 中 拖放 text、Command和commondialog 控件，把commondialog的name 属性改为 Cdg1。3、在command1_click 事件中输入代码：Private Sub Command1_Click()Dim FileNam As String Dim tStr() As Byte Dim txtStr As String CDg1.Filter = "*.txt" ' 文件对话框的默认打开文件...

其次要把Scrollbars属性设为1或2或3，这样当数据超出文本框的范围时，可以通过滚动条扩展显示；如果数据是一次性读入的，则： Text1.Text = 文本字串或文本型变量名 如果数据是分多次读入，每次读入一行，则： Text1.Text = Text1.Text & 文本字串或文本型变量名 & vbCrLf 最后要注意一点，VB的...

VB读取dat文件需要看dat文件是如何写成的，通常应该是以二进制方式来读取。用Get语句来将数据从文件读到变量中。同样将数据写入dat文件也应使用二进制方式写，用Put语句实现。以下是Get语句和Put语句的使用实例：Option Explicit Private Type Record ' 定义用户自定义的数据类型。 ID As Integer ...

简单：Private Sub Dir1_Change()Me.File1 = Dir1End SubPrivate Sub Drive1_Change()On Error Resume NextMe.Dir1 = Drive1End SubPrivate Sub File1_DblClick()Text2.Text = ""Text1.Text = Dir1 & "\" & Me.File1.FileNameDim b As StringIf Dir(Dir1 & "\" & Me.File1....