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

2008-02-23 06:54:48来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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

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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用VB创建Excel报表

下一篇:如何使用 ADO 來压缩或修复 Microsoft Access 文件