用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

Grid1.SelStartRow = 1  '網格中單元格的列、行初始位置

Grid1.LeftCol = 1

Grid1.TopRow = 1   '網格中左上角的列、行初始位置

End Sub

Private Sub Grid1_MouseDown(Button As Integer,

        Shift As Integer, X As Single, Y As Single)

Grid1.Col = Grid1.SelStartCol

Grid1.Row = Grid1.SelStartRow

Text1.Text = Grid1.Text

colnum = Grid1.Col - Grid1.LeftCol + 1

rownum = Grid1.Row - Grid1.TopRow + 1

Text1.Left = Grid1.Left + (Grid1.ColWidth(0)

         + Grid1.GridLineWidth * 12) * colnum

Text1.Top = Grid1.Top + (Grid1.RowHeight(0)

         + Grid1.GridLineWidth * 12) * rownum

End Sub

Private Sub Grid1_MouseUp(Button As Integer,

         Shift As Integer, X As Single, Y As Single)

Text1.SetFocus

End Sub

Private Sub HScroll1_Change()

startcol = Grid1.LeftCol

Grid1.LeftCol = HScroll1.Value

Grid1.SelStartCol = Grid1.SelStartCol

           + Grid1.LeftCol - startcol

Grid1.Col = Grid1.SelStartCol

Text1.Text = Grid1.Text

End Sub

Private Sub Text1_Change()

Grid1.Text = Text1.Text

End Sub

Private Sub Text1_KeyDown(KeyCode

         As Integer, Shift As Integer)

Select Case KeyCode

Case 38  ' 光 標 向 上

Grid1.Text = Text1.Text

If Grid1.SelStartRow <2 Then If Grid1.TopRow> 1 Then

      VScroll1.Value = VScroll1.Value - 1

   Else

      Grid1.SelStartRow = 1

   End If

Else

   If Grid1.TopRow = Grid1.SelStartRow Then

      VScroll1.Value = VScroll1.Value - 1

   Else

      Grid1.SelStartRow = Grid1.SelStartRow - 1

   End If

End If

Grid1.Col = Grid1.SelStartCol

Grid1.Row = Grid1.SelStartRow

colnum = Grid1.Col - Grid1.LeftCol + 1

rownum = Grid1.Row - Grid1.TopRow + 1

Text1.Text = Grid1.Text

Text1.Left = Grid1.Left + (Grid1.ColWidth(0)

          + Grid1.GridLineWidth * 12) * colnum

Text1.Top = Grid1.Top + (Grid1.RowHeight(0)

          + Grid1.GridLineWidth * 12) * rownum

Exit Sub

Case 40  ' 光 標 向 下

Grid1.Text = Text1.Text

If Grid1.SelStartRow > inputrownum - 1 Then

   If Grid1.TopRow <Grid1.Rows inputrownum Then VScroll1.Value="VScroll1.Value" + 1 Else If VScroll1.Value="VScroll1.Max" And Grid1.SelStartRow < Grid1.Rows 1 Then Grid1.SelStartRow="Grid1.SelStartRow" + 1 Else Grid1.SelStartRow="Grid1.Rows" 1 End If End If Else If Grid1.TopRow="Grid1.SelStartRow" inputrownum Then VScroll1.Value="VScroll1.Value" + 1 Else Grid1.SelStartRow="Grid1.SelStartRow" + 1 End If End If Grid1.Col="Grid1.SelStartCol" Grid1.Row="Grid1.SelStartRow" colnum="Grid1.Col" Grid1.LeftCol + 1 rownum="Grid1.Row" Grid1.TopRow + 1 Text1.Text="Grid1.Text" Text1.Left="Grid1.Left" + (Grid1.ColWidth(0) + Grid1.GridLineWidth * 12) * colnum Text1.Top="Grid1.Top" + (Grid1.RowHeight(0) + Grid1.GridLineWidth * 12) * rownum Exit Sub Case 13 ' 回 車 Grid1.Text="Text1.Text" If Grid1.SelStartRow> inputrownum - 1 Then

   If Grid1.TopRow

----

運 行 程 序 即 有 圖2 畫 面， 可 實 現 鼠 標 和 鍵 盤 結 合 自 由 輸 入
數 字 和 字 符， 同 時 也 能 運 用 上 下 光 標 鍵 和 回 車 鍵 控 制 數
據 錄 入 位 置， 至 于 對 其 他 鍵 的 控 制， 可 依 此 類 推 之。

原文轉自：http://www.anti-gravitydesign.com