a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 學院 > 開發設計 > 正文

用VB實現類電子表格的數據錄入

2019-11-18 17:47:32
字體：大 中 小
來源：轉載
供稿：網友
----在編程中經常會遇到應用程序中要輸入大量數據的問題，如果
能在該程序中實現象電子表格那樣的輸入界面，就可以解決這個問
題。

----VB雖提供了Grid網格控件，但其只具有顯示輸出功能，要使其
能接受輸入數據，必須對它加以改造，在計算機報刊中的許多文章都
對此進行了探討，但所用方法都不能令人滿意，筆者經過摸索，找出
以下辦法，供有興趣者參考。

----首先在VB5.0環境下Form1中放上如圖1所示的各控件：Text1;Grid1;
Command1;Command2;Vscroll1;Hscroll1。
圖1Form1及其控件

----雙擊Form1打開Code窗口，編制程序代碼。

Diminputcolnum,inputrownumAsInteger

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

ForI=1ToGrid1.Cols-1
Grid1.Col=I
Grid1.Row=0
Grid1.Text=Str(I)
Grid1.Col=0
Grid1.Row=I
Grid1.Text=Str(I)
NextI

Grid1.Col=1
Grid1.Row=1'網格的列、行初始位置

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

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

EndSub


PrivateSubGrid1_MouseDown(ButtonAsInteger,
ShiftAsInteger,XAsSingle,YAsSingle)
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
EndSub


PrivateSubGrid1_MouseUp(ButtonAsInteger,
ShiftAsInteger,XAsSingle,YAsSingle)
Text1.SetFocus
EndSub


PrivateSubHScroll1_Change()
startcol=Grid1.LeftCol
Grid1.LeftCol=HScroll1.Value
Grid1.SelStartCol=Grid1.SelStartCol
Grid1.LeftCol-startcol
Grid1.Col=Grid1.SelStartCol
Text1.Text=Grid1.Text
EndSub

PrivateSubText1_Change()
Grid1.Text=Text1.Text
EndSub

PrivateSubText1_KeyDown(KeyCode
AsInteger,ShiftAsInteger)
SelectCaseKeyCode
Case38'光標向上
Grid1.Text=Text1.Text

IfGrid1.SelStartRow<2Then
IfGrid1.TopRow>1Then
VScroll1.Value=VScroll1.Value-1
Else
Grid1.SelStartRow=1
EndIf
Else
IfGrid1.TopRow=Grid1.SelStartRowThen
VScroll1.Value=VScroll1.Value-1
Else
Grid1.SelStartRow=Grid1.SelStartRow-1
EndIf
EndIf

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

ExitSub

Case40'光標向下
Grid1.Text=Text1.Text
IfGrid1.SelStartRow>inputrownum-1Then
IfGrid1.TopRow<Grid1.Rows-inputrownumThen
VScroll1.Value=VScroll1.Value 1
Else
IfVScroll1.Value=VScroll1.MaxAnd
Grid1.SelStartRow<Grid1.Rows-1Then
Grid1.SelStartRow=Grid1.SelStartRow 1
Else
Grid1.SelStartRow=Grid1.Rows-1
EndIf
EndIf
Else
IfGrid1.TopRow=Grid1.SelStartRow-inputrownumThen
VScroll1.Value=VScroll1.Value 1
Else
Grid1.SelStartRow=Grid1.SelStartRow 1
EndIf
EndIf

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

ExitSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 九九热这里只有精品在线观看 | 国产xxx护士爽免费看 | 男女免费视频 | 日日日操| 久二影院 | 欧美在线观看禁18 | 国产精品一区二区在线看 | 日韩欧美二区 | 91精品国产综合久久国产大片 | 亚洲日本高清 | 黄色影视在线 | 久久精品这里热有精品 | 欧美一级久久 | 成人亚洲| 国产一区二区三区视频在线观看 | 国产综合精品一区二区三区 | 免费在线成人 | aaa日本高清在线播放免费观看 | 国产一级免费在线观看 | 一级黄色录象片 | 北条麻妃99精品青青久久主播 | 日韩精品免费一区二区夜夜嗨 | 国产成人免费视频 | 国产拍揄自揄精品视频麻豆 | 91精品国产乱码久久久久久久久 | 国产美女久久 | 国产精品久久精品 | 久久靠逼 | 国产精品久久久久久久久久久久久 | 日韩欧美国产一区二区 | 天天综合天天色 | 久久久久国产视频 | 色在线免费观看 | 精品久久久久久久久久久久 | 亚洲成人高清 | 永久免费av| 青青国产在线 | 欧美a级网站 | 在线观看国产wwwa级羞羞视频 | 啪啪二区 | 一本色道久久综合狠狠躁的推荐 |