为什么总是接连显示打开文件的内容？(详情见内)'希望能到得到您的不吝赐教，在下万分感激，偶在线等候您的答复.

Question

'为什么总是接连显示打开文件的内容？(详情见内)'希望能到得到您的不吝赐教，在下万分感激，偶在线等候您的答复.
'这几天我在编程中遇到一个很头痛的问题，请帮帮我，
'我的目的是：先让Text1.text显示出c:\aaa.txt中的内容，然后清空Text1。然后显示出c:\bbb.txt中的内容。
'可是现在的问题是：我先点击command1_click。再点击command2_click。发现text1中的内容并没有被清空，
'而是bbb.txt中的内容紧跟在aaa.txt的内容后显示了！！我用的方法是open "c:\aaa.txt" for .....  然后循环读取全部的文本内容
'所以我很头痛：我用Debug跟踪并没有发现异常，Text1.text的确是被清空的。可是运行后的结果却是依然如前所述
'我不知道是不是因为那个变量没有被释放引起的？但我想了一下午，仍然没有发现解决的方法。'希望能到得到您的不吝赐教，请告之如何解决这个问题，在下万分感激，偶在线等候您的答复.

Answer 1

Private Sub Command1_Click()
    Text1.Text = ""
    '读文件c:\aaa.txtEnd SubPrivate Sub Command2_Click()
    Text1.Text = ""
    '读文件c:\bbb.txt
End Sub

Answer 2

大概意思就是说，用command1 command2 2个按纽分别打开文本aaa.txt和bbb.txt，要求是先把aaa.txt的内容显示在Text1.Text控件中，再把Text1.Text清空，同时显示bbb.txt中的内容。

Answer 3

To:   lihonggen0(李洪根,用.NET，标准答案来了) 大哥，我当然是用你说的这种方法写的，可是却不行。不信你自己时时。结果是Text1.text中同时显示了aaa.txt和bbb.txt 中的内容。

Answer 4

在清空text1后﹐顯示text2之前
text1.Refresh 一下試試

Answer 5

你的Text1.text是如何赋值的？ 通过变量还是直接在读文件时就赋值了?

Answer 6

我用的是Text1.text=TxtData      (TxtData 是循环读取所有aaa.txt后，将aaa.txt中的内容存放在其中的一个变量)

Answer 7

To xysophie(小葉子) Refresh我试了也不行啊

Answer 8

这个变量是全局变量吗？Private Sub Command1_Click()
    Text1.Text = ""
    TxtData=""    '读文件c:\aaa.txtEnd SubPrivate Sub Command2_Click()
    Text1.Text = ""
    TxtData=""    '读文件c:\bbb.txt
End Sub

Answer 9

是全局变量。
我的代码是Private Sub Command1_Click()
    Text1.Text = ""    '读文件c:\aaa.txt
    TxtData="循环取得的aaa.txt中的内容"
    Text1.text=TxtData
End SubPrivate Sub Command2_Click()
    Text1.Text = ""    '读文件c:\bbb.txt    TxtData="循环取得的aaa.txt中的内容"
    Text1.text=TxtDataEnd Sub

Answer 10

结果却是text1.text并未被清空。而是text中先显示了aaa.txt的内容，后面紧跟着显示了bbb.txt的内容。

Answer 11

你的代码应该是在对TxtData赋值的时候出现问题了，可能是赋值不够准确或者错误。请检查对TxtData变量的赋值代码