如何用VB6.0获取一个txt文件的所有文本,并显示在text1,文本框里

Dim strFileDir() As String Dim strFile As String Dim i As Long Dim lDirCount As Long On Error GoTo MyErr If Right(strPath, 1) <> "\" Then strPath = strPath + "\"strFile = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)While strFile <> "" '搜索...

代码如下：1、方法一：text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二：sub command1_click()label1.caption = string("*",len(text1.text))end sub

1、保存 CommonDialog1.ShowSaveOpen CommonDialog1.FileName For Output As #1Print #1, Text1.Text;Close #1MsgBox "已保存！"2、读取 CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Binary As #1Text1.Text = Input(LOF(1), #1)Close #1MsgBox "已读取！"

使用控件数组！方法一 在窗体中添加一个名为text的text控件，在属性窗口中将它的text属性置为空（你也可以修改其它属性），然后在text控件上点击右键，选择复制，再在窗体的空白区域单击右键，选择粘贴，此时会提示你是否创建控件数组，选择是。重复粘贴n次（根据需要），所有的text控件的text属性都是为空...

Private Sub Command1_Click()Dim i, n, x, sum As Long n = Val(InputBox("请输入整数"))x = 1 For i = 1 To n x = x * i sum = sum + x Next i Text1.Text = sum End Sub 别人的都太复杂~~初学者看这个~~

VB编写的记事本。至于记账，可以在记事本里面保存个空白文档，把保存你的记账输入到文本框里保存。 第二次你可以打开记账文件。（实际你可以把打开的模块直接放到Form_Load里面，文件路径合并于代码中。）我说的就是如下代码：'把下面的代码添加到Form_Load中RichTextBox1.LoadFile （"记账文件的路径")...

你可以用个变量先暂存，再放到文本里面

写入代码：Dim path As String Private Sub Drive1_Change()'当选择一个新驱动器时,将驱动器列表中选中的当前驱动器,赋给目录列表的路径 Dir1.path = Drive1.Drive End Sub Private Sub Dir1_Change()'将文件列表框的路径值,设置为目录列表框所选中的路径值 File1.path = Dir1.path End Sub ...

写一个自定义函数，供调用：Dim arr (1000,3)Dim i as integer Private Sub splitString(s as String)Dim a As Variant a = Split(s, " ")arr(i, 0) = a(0)arr(i, 1) = a(1)arr(i, 2) = a(2)'MsgBox arr(0, 0)i = i + 1 End Sub 经测试，可用。

Text1.Text = datagrid.TextMatrix(datagrid.RowSel, 1)Text2.Text = datagrid.TextMatrix(datagrid.RowSel, 2)Text3.Text = datagrid.TextMatrix(datagrid.RowSel, 3)end if End Sub 首先，要达到你的目的，应该将代码写在datagrid的单击事件里进行处理。在单击事件里，datagrid.RowSel可以获得当前所点击...