储存与显示

我是一个笨蛋，弄这个储存与显示，弄了几个星期才把它给搞出来。现在总结一下心得。

我想弄一个东西。在第一页中有一个清屏按钮，和一个显示所有结果的按钮。当按下显示按钮的时候就会把第一页面的组合框里边的文字，和文本框里边的文字（包括以前打出来的文字）全部显示在第二界面。

在第二界面一点击窗体就会显示出那些结果

（其实这个问题很简单，就是学得不精，卡在显示所有结果那里。不知道该怎么编程。）

为了显示所有结果，要在标准模块中设置自定义变量，并设置变量使得其属性为第一个窗体中的某些控件的文本框里边的内容。

教训：1.

Type studtype
 name As String * 20
 school As String * 20
End Type
Public st(99) As studtype

不能在窗体模块里边设置自定义变量，这样子不能在别的窗体中使用这个变量，就不能显示属性了

设置自定义变量的时候，在声明下面的属性声明，不能加上点号，而且如果是字节类型的变量，一定要加上长度，只有定长字节的变量才能被识别。区别于with赋值，with赋值下面要加点号，而且字节变量无需声明长度

Public st(99) As studtype

 

因为显示所有的结果，就不能是一个变量，就要使用数组才能把所有的结果显示出来，就直接在标准模块里边声明数组为自定义变量

2.

Private Sub cmdqp_Click()
st(n).name = Combo1.Text
st(n).school = Text1.Text
n = n + 1
Text1 = ""
Label1 = ""
Combo1.Text = ""
End Sub

Private Sub Form_Load()
n = 0
End Sub

实现储存功能，实际上是在按下清屏按钮的时候实现的。按下清屏按钮的时候，给变量赋值。只能一个一个地给数组赋值，这样子的话，就需要n = n + 1，定义了第一个数组元素，然后就进入下一个数组元素。在form_load的时候就定义n=0

 

3.

Private Sub form_Click()
For n = 0 To 98
Print st(n).name; "   "; st(n).school
Print
Next n
End Sub

 

在第二页显示数组。