用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 '表中總的列、行數

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)
+