精彩编程与编程技巧-用VB 实 现 类 电 子 表 格 的 数 据 录 入...

用VB 实 现 类 电 子 表 格 的 数 据 录 入 

　
在 编 程 中 经 常 会 遇 到 应 用 程 序 中 要 输 入 大 量 数 据 的 问 题， 如 果 能 在 该 程 序 中 实 现 象 电 子 表 格 那 样 的 输 入 界 面， 就 可 以 解 决 这 个 问 题。 

---- VB 虽 提 供 了Grid 网 格 控 件， 但 其 只 具 有 显 示 输 出 功 能， 要 使 其 能 接 受 输 入 数 据， 必 须 对 它 加 以 改 造， 在 计 算 机 报 刊 中 的 许 多 文 章 都 对 此 进 行 了 探 讨， 但 所 用 方 法 都 不 能 令 人 满 意， 笔 者 经 过 摸 索， 找 出 以 下 办 法， 供 有 兴 趣 者 参 考。 

---- 首 先 在VB 5.0 环 境 下Form1 中 放 上 如 图1 所 示 的 各 控 件：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


Private Sub Form_Load()
Grid1.ColWidth(0) = 540
Grid1.RowH eight(0) = 216 '单元格的宽和高

inputcolnum = 13
inputrownum = 15 '表中显示的列、行数

Grid1.Cols = 20
Grid1.Rows = 20 '表中总的列、行数