在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form_Click() Open "d:estsmtext1.Txt" For Input As 1 Do While Not () Line Input 1, aspect$ Whole$=whole$+aspect$+Chr$(13)+Ch
主观题
在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form_Click() Open "d:estsmtext1.Txt" For Input As 1 Do While Not () Line Input 1, aspect$ Whole$=whole$+aspect$+Chr$(13)+Ch