亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
最近2019年日本中文免费字幕| 欧美成人性生活| 中文字幕亚洲无线码a| 亚洲欧美在线看| 日韩精品视频在线免费观看| 日韩性xxxx爱| 色多多国产成人永久免费网站| 精品久久香蕉国产线看观看亚洲| 亚洲精品视频播放| 亚洲精品国产福利| 亚洲摸下面视频| 亚洲а∨天堂久久精品喷水| 国产精品无码专区在线观看| 久久精品福利视频| 色久欧美在线视频观看| 亚洲国产美女精品久久久久∴| 欧美大片在线看免费观看| 中文字幕欧美精品日韩中文字幕| 在线播放精品一区二区三区| 亚洲综合中文字幕在线| 色无极亚洲影院| 日韩av在线不卡| 亚洲男人天堂视频| 2019中文在线观看| 亚洲成人黄色在线| 欧洲日韩成人av| 97在线免费观看| 亚洲四色影视在线观看| 国产自产女人91一区在线观看| 国产精品美女久久久久久免费| 久久久久久成人| 亚洲一区二区三区香蕉| 91系列在线观看| 日韩精品免费在线播放| 欧美一级片一区| 亚洲精品国产精品国产自| 97人洗澡人人免费公开视频碰碰碰| 亚洲欧美中文日韩在线| 日本久久久a级免费| 精品性高朝久久久久久久| 国产成人在线精品| 精品国产一区二区三区久久狼黑人| 亚洲欧美日韩中文视频| 国产成人精品视频在线| 国产精品热视频| 一本一本久久a久久精品牛牛影视| 亚洲精品理论电影| 中文字幕亚洲欧美在线| 欧美一区二区视频97| 热re91久久精品国99热蜜臀| 激情亚洲一区二区三区四区| 久久成人精品一区二区三区| 国产精品va在线| 国产亚洲一区精品| 亚洲精品久久久久中文字幕二区| 91沈先生作品| 成人中文字幕在线观看| 亚洲人成亚洲人成在线观看| 亚洲性视频网址| 精品亚洲夜色av98在线观看| 日韩欧美一区二区三区久久| 91深夜福利视频| 欧美午夜宅男影院在线观看| 成人在线免费观看视视频| 国产精品黄视频| 日本久久久久久久久| 国内精品模特av私拍在线观看| 欧美日韩中文字幕在线| 91超碰caoporn97人人| 亚洲第一区在线观看| 国产69精品久久久| 国产成人精品av在线| 亚洲精品视频在线观看视频| 久久综合久久88| 亚洲三级 欧美三级| 中文字幕日韩欧美在线视频| 精品无人区乱码1区2区3区在线| 色哟哟网站入口亚洲精品| 亚洲少妇中文在线| 国产精品激情av电影在线观看| 91在线播放国产| 精品动漫一区二区三区| 日本精品久久久久久久| 国产专区精品视频| 欧美有码在线视频| y97精品国产97久久久久久| 欧美性猛交xxxx黑人| 国产精品久久久久久av| 久久精品国产电影| 国产成人精品日本亚洲| 国产69精品久久久久9999| 亚洲香蕉av在线一区二区三区| 91久久精品视频| 97精品国产aⅴ7777| 精品无人国产偷自产在线| 91久久国产综合久久91精品网站| 国产精品无码专区在线观看| 欧美多人乱p欧美4p久久| 国产精品www色诱视频| 午夜精品蜜臀一区二区三区免费| 伊人伊成久久人综合网小说| 精品激情国产视频| 久久精品国产亚洲一区二区| 久久av红桃一区二区小说| 国产99视频精品免视看7| 亚洲图中文字幕| 亚洲无av在线中文字幕| 91久久久久久久久久久久久| 少妇高潮久久久久久潘金莲| 欧美性xxxx18| 亚洲综合av影视| 九九热视频这里只有精品| 欧美日韩精品在线播放| 日韩最新免费不卡| 亚州欧美日韩中文视频| 俺去啦;欧美日韩| 欧美在线一区二区视频| 欧美性猛交xxxxx免费看| 欧美裸体xxxx极品少妇软件| 在线视频日韩精品| 美女啪啪无遮挡免费久久网站| 欧美性色19p| 国产精品日韩专区| 亚洲免费人成在线视频观看| 久久精品国产2020观看福利| 国产精品成人播放| 成人精品一区二区三区电影免费| 日韩亚洲一区二区| 欧美激情亚洲一区| 欧美高清无遮挡| 欧美性生交大片免费| 日韩动漫免费观看电视剧高清| 亚洲欧洲在线视频| 国产成人短视频| 久久久久亚洲精品国产| 亚洲一区二区三区四区视频| 精品露脸国产偷人在视频| 久久久这里只有精品视频| 亚洲福利视频网| 国产视频精品在线| 欧美精品videosex牲欧美| 日韩精品中文字幕在线| 欧美成人免费视频| 国产91精品久| 亚洲免费视频网站| 九色91av视频| 九九热精品视频| 日韩视频在线一区| 日本精品久久久| 日韩免费av片在线观看| 97精品视频在线观看| 亚洲**2019国产| 国产成人精品综合久久久| 亚洲视频在线观看视频| 成人免费观看网址| 欧美最猛性xxxx| 日韩一二三在线视频播| 欧美丰满少妇xxxxx| 国产女同一区二区| 欧美亚洲另类视频| 波霸ol色综合久久| 国产成人精品视频在线| 欧美日韩成人网| 中文字幕av一区二区三区谷原希美|