VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用VB实现类电子表格的数据录入(增加了Grid的功能)
发表评论(0)作者:, 平台:, 阅读:10565, 日期:2000-03-12


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

+ 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 画 面, 可 实 现 鼠 标 和 键 盘 结 合 自 由 输 入 数 字 和 字 符, 同 时 也 能 运 用 上 下 光 标 键 和 回 车 键 控 制 数 据 录 入 位 置, 至 于 对 其 他 键 的 控 制, 可 依 此 类 推 之。