新手学制作电子表格(制作电子表格的步骤)

如何自己编写一个简单的电子表格？

以VB为例，新建一个窗口，排列标签和文本框控件。label用于存储输入数据，textbox用于编辑数据。Label只能显示数据，不能输入数据，所以需要使用textbox控件进行编辑和输入。

创建11个标签控件数组，生成一个包含11行标题的表格。如下图:

控制列表:

所需功能:

先声明两个变量。

首先，鼠标点击表格中的一个网格，编辑框textbox自动移动到改变后的位置，并获得焦点供用户输入。

效果:

其次，用户按enter键跳到下一个网格。

效果:

第三，用户按箭头键跳到网格。

当表单启动时，您需要设置背景颜色以产生表格效果。

效果图:

源代码如下

私有子窗体_Load()

Rem将窗口背景颜色设置为蓝色。

我。BackColor = RGB(170，210，230)

Idx = 1

带LabC(1)

TxtB。动起来。左，。顶，。宽度，。高度

TxtB。文本=。标题

TxtB。BackColor = myColor(9)

TxtB。可见=假

以…结尾

实验室(0)。BorderStyle = 0

edtBln = False

末端接头

私有子LabC_Click(索引为整数)

'功能:点击鼠标将文本编辑框移动到标签位置。

'与标签相同的坐标

If Index & gt0和索引& lt那就20吧

Idx =索引

带LabC(索引)

TxtB。动起来。左，。顶，。宽度，。高度

TxtB。文本=。标题

TxtB。可见=真

TxtB。获得焦点

以…结尾

如果…就会结束

末端接头

Private Sub TxtB_KeyDown(KeyCode为整数，Shift为整数)

'功能:按“↓”键，向下移动一格。

'如果你按下“↑”键，它将上移一格。

v = TxtB。文本

如果键码= 38，则

LabG(Idx)。标题= v

如果Idx & gt1然后

Idx = Idx - 1

调用LabG_Click(Idx)

如果…就会结束

其他

如果键码= 40，那么

LabG(Idx)。标题= v

edtBln = True

如果Idx & lt那就19岁

Idx = Idx + 1

调用LabG_Click(Idx)

如果…就会结束

如果…就会结束

如果…就会结束

末端接头

私有Sub TxtB_KeyPress(KeyAscii为整数)

'功能:如果你按“输入”键，它将向下移动一格。

'如果输入不是数值，则该键无效。

v = TxtB。文本

edtBln = True

如果KeyAscii = 8，则

出口接头

其他

如果KeyAscii = 13，则

LabG(Idx)。标题= v

如果Idx & lt那就19岁

Idx = Idx + 1

调用LabG_Click(Idx)

如果…就会结束

其他

如果InStr(& # 34；1234567890"，Chr(KeyAscii)) = 0

KeyAscii = 0

如果…就会结束

如果…就会结束

如果…就会结束

末端接头