● 用VB 实现类电子表格的数据录入 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: huanghm (东方不败), 信区: Program
标  题: 用VB 实现类电子表格的数据录入
发信站: 深大荔园晨风站 (Sun Feb 15 02:46:35 1998), 转信

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

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

---- 首先在VB 5.0 环境下Form1 中放上如图1 所示的
各控件：Text1;Grid1;Command1;Command2;Vscroll1;Hscroll1。

                      图1、Form1 及其控件

---- 双击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)
           + 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 < 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
End Select
End Sub

Private Sub VScroll1_Change()
startrow = Grid1.TopRow
Grid1.TopRow = VScroll1.Value
Grid1.SelStartRow = Grid1.SelStartRow + Grid1.TopRow - startrow
Grid1.Row = Grid1.SelStartRow
Text1.Text = Grid1.Text
End Sub

---- 运行程序即有图2 画面，可实现鼠标和键盘
结合自由输入数字和字符，同时也能运用上下
光标键和回车键控制数据录入位置，至于对其
他键的控制，可依此类推之。

--

※ 来源:．深大荔园晨风站 bbs.szu.edu.cn．[FROM: 202.192.140.138]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店