用VB实现类似电子表格的数据录入
---- 在 编 程 中 经 常 会 遇 到 应 用 程 序 中 要 输 入 大 量 数 据 的 问题， 如 果 能 在 该 程 序 中 实 现 象 电 子 表 格 那 样 的 输 入 界 面，就 可 以 解 决 这 个 问 题。
---- VB 虽 提 供 了Grid 网 格 控 件， 但 其 只 具 有 显 示 输 出 功 能， 要使 其 能 接 受 输 入 数 据， 必 须 对 它 加 以 改 造， 在 计 算 机 报 刊 中 的 许 多 文 章 都 对 此 进 行 了 探 讨， 但 所 用 方 法 都 不 能 令 人满 意， 笔 者 经 过 摸 索， 找 出 以 下 办 法， 供 有 兴 趣 者 参 考。
--- 首 先 在VB 5.0 环 境 下Form1 中 放 上 所 示 的 各 控 件：
Text1;Grid1;Command1;Command2;Vscroll1;Hscroll1。
---- 双 击Form1 打 开Code 窗 口， 编 制 程 序 代 码。
Dim inputcolnum, inputrownum As Integer
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Activate()
Text1.SetFocus '' 文 本 框 获 得 焦 点
End Sub
rivate Sub Form_Load()
Grid1.ColWidth(0) = 540
Grid1.RowH eight(0) = 216 ''单元格的宽和高
inputcolnum = 13
inputrownum = 15 ''表中显示的列、行数
Grid1.Cols = 20
Grid1.Rows = 20 ''表中总的列、行数
HScroll1.Height = 300
VScroll1.Width = 300 ''水平和垂直滚动条的高、宽度
Grid1.Height = (inputrownum + 1) ''
(Grid1.RowHeight(0) + Grid1.GridLineWidth * 12)
+ 12 + HScroll1.Height
''800×600象素时为12;640×480为15
Grid1.Width = (inputcolnum + 1) *
(Grid1.ColWidth(0) + Grid1.GridLineWidth * 12)
+ 12 + VScroll1.Width
''表的高、宽度
HScroll1.Width = Grid1.Width - VScroll1.Width
VScroll1.Height = Grid1.Height - HScroll1.Height
'' 水 平 和 垂 直 滚 动 条 的 宽、 高 度
HScroll1.Left = Grid1.Left
HScroll1.Top = Grid1.Top + Grid1.Height - HScroll1.Height
'' 水 平 滚 动 条 的 位 置
VScroll1.Left = Grid1.Left + Grid1.Width - VScroll1.Width
VScroll1.Top = Grid1.Top
'' 垂 直 滚 动 条 的 位 置
HScroll1.Min = 1
HScroll1.Max = Grid1.Cols - inputcolnum
VScroll1.Min = 1
VScroll1.Max = Grid1.Rows - inputrownum
'' 水 平 和 垂 直 滚 动 条 的 范 围
Text1.Width = Grid1.ColWidth(0)
Text1.Height = Grid1.RowHeight(0)
'' 文 本 框 的 宽、 高 度
Text1.Left = Grid1.Left + Grid1.ColWidth(0)
+ Grid1.GridLineWidth * 12
Text1.Top = Grid1.Top + Grid1.RowHeight(0)
+ Grid1.GridLineWidth * 12
'' 文 本 框 的 位 置
'' 初 始 化 赋 值
Text1.Visible = True
For I = 1 To Grid1.Cols - 1
Grid1.Col = I
Grid1.Row = 0
Grid1.Text = Str(I)
Grid1.Col = 0
Grid1.Row = I
Grid1.Text = Str(I)
Next I
Grid1.Col = 1
Grid1.Row = 1 '' 网格的列、行初始位置
Grid1.SelStartCol = 1
Gri