----在编程中经常会遇到应用程序中要输入大量数据的问题,如果能在该程序中实现象电子表格那样的输入界面,就可以解决这个问题。reGHTML5中文学习网 - HTML5先行者学习网
----VB虽提供了Grid网格控件,但其只具有显示输出功能,要使其能接受输入数据,必须对它加以改造,在计算机报刊中的许多文章都对此进行了探讨,但所用方法都不能令人满意,笔者经过摸索,找出以下办法,供有兴趣者参考。reGHTML5中文学习网 - HTML5先行者学习网
----首先在VB5.0环境下Form1中放上如图1所示的各控件:Text1;Grid1;reGHTML5中文学习网 - HTML5先行者学习网
Command1;Command2;Vscroll1;Hscroll1。reGHTML5中文学习网 - HTML5先行者学习网
图1Form1及其控件reGHTML5中文学习网 - HTML5先行者学习网
----双击Form1打开Code窗口,编制程序代码。reGHTML5中文学习网 - HTML5先行者学习网
Dimin putcolnum,in putrownumAsIntegerreGHTML5中文学习网 - HTML5先行者学习网
PrivateSubCommand2_Click()reGHTML5中文学习网 - HTML5先行者学习网
EndreGHTML5中文学习网 - HTML5先行者学习网
EndSubreGHTML5中文学习网 - HTML5先行者学习网
PrivateSubForm_Activate()reGHTML5中文学习网 - HTML5先行者学习网
Text1.SetFocus'文本框获得焦点reGHTML5中文学习网 - HTML5先行者学习网
EndSubreGHTML5中文学习网 - HTML5先行者学习网
PrivateSubForm_Load()reGHTML5中文学习网 - HTML5先行者学习网
Grid1.ColWidth(0)=540reGHTML5中文学习网 - HTML5先行者学习网
Grid1.RowHeight(0)=216'单元格的宽和高reGHTML5中文学习网 - HTML5先行者学习网
in putcolnum=13reGHTML5中文学习网 - HTML5先行者学习网
in putrownum=15'表中显示的列、行数reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Cols=20reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Rows=20'表中总的列、行数reGHTML5中文学习网 - HTML5先行者学习网
HScroll1.Height=300reGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Width=300'水平和垂直滚动条的高、宽度reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Height=(in putrownum 1)'reGHTML5中文学习网 - HTML5先行者学习网
(Grid1.RowHeight(0) Grid1.GridLineWidth*12)reGHTML5中文学习网 - HTML5先行者学习网
12 HScroll1.HeightreGHTML5中文学习网 - HTML5先行者学习网
'800×600象素时为12;640×480为15reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Width=(in putcolnum 1)*reGHTML5中文学习网 - HTML5先行者学习网
(Grid1.ColWidth(0) Grid1.GridLineWidth*12)reGHTML5中文学习网 - HTML5先行者学习网
12 VScroll1.WidthreGHTML5中文学习网 - HTML5先行者学习网
'表的高、宽度reGHTML5中文学习网 - HTML5先行者学习网
HScroll1.Width=Grid1.Width-VScroll1.WidthreGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Height=Grid1.Height-HScroll1.HeightreGHTML5中文学习网 - HTML5先行者学习网
'水平和垂直滚动条的宽、高度reGHTML5中文学习网 - HTML5先行者学习网
HScroll1.Left=Grid1.LeftreGHTML5中文学习网 - HTML5先行者学习网
HScroll1.Top=Grid1.Top Grid1.Height-HScroll1.HeightreGHTML5中文学习网 - HTML5先行者学习网
'水平滚动条的位置reGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Left=Grid1.Left Grid1.Width-VScroll1.WidthreGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Top=Grid1.TopreGHTML5中文学习网 - HTML5先行者学习网
'垂直滚动条的位置reGHTML5中文学习网 - HTML5先行者学习网
HScroll1.Min=1reGHTML5中文学习网 - HTML5先行者学习网
HScroll1.Max=Grid1.Cols-in putcolnumreGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Min=1reGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Max=Grid1.Rows-in putrownumreGHTML5中文学习网 - HTML5先行者学习网
'水平和垂直滚动条的范围reGHTML5中文学习网 - HTML5先行者学习网
Text1.Width=Grid1.ColWidth(0)reGHTML5中文学习网 - HTML5先行者学习网
Text1.Height=Grid1.RowHeight(0)reGHTML5中文学习网 - HTML5先行者学习网
'文本框的宽、高度reGHTML5中文学习网 - HTML5先行者学习网
Text1.Left=Grid1.Left Grid1.ColWidth(0)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.GridLineWidth*12reGHTML5中文学习网 - HTML5先行者学习网
Text1.Top=Grid1.Top Grid1.RowHeight(0)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.GridLineWidth*12reGHTML5中文学习网 - HTML5先行者学习网
'文本框的位置reGHTML5中文学习网 - HTML5先行者学习网
'初始化赋值reGHTML5中文学习网 - HTML5先行者学习网
Text1.Visible=TruereGHTML5中文学习网 - HTML5先行者学习网
ForI=1ToGrid1.Cols-1reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Col=IreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Row=0reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Text=Str(I)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Col=0reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Row=IreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Text=Str(I)reGHTML5中文学习网 - HTML5先行者学习网
NextIreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Col=1reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Row=1'网格的列、行初始位置reGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartCol=1reGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartRow=1'网格中单元格的列、行初始位置reGHTML5中文学习网 - HTML5先行者学习网
Grid1.LeftCol=1reGHTML5中文学习网 - HTML5先行者学习网
Grid1.TopRow=1'网格中左上角的列、行初始位置reGHTML5中文学习网 - HTML5先行者学习网
EndSubreGHTML5中文学习网 - HTML5先行者学习网
PrivateSubGrid1_MouseDown(ButtonAsInteger,reGHTML5中文学习网 - HTML5先行者学习网
ShiftAsInteger,XAsSingle,YAsSingle)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Col=Grid1.SelStartColreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Row=Grid1.SelStartRowreGHTML5中文学习网 - HTML5先行者学习网
Text1.Text=Grid1.TextreGHTML5中文学习网 - HTML5先行者学习网
colnum=Grid1.Col-Grid1.LeftCol 1reGHTML5中文学习网 - HTML5先行者学习网
rownum=Grid1.Row-Grid1.TopRow 1reGHTML5中文学习网 - HTML5先行者学习网
Text1.Left=Grid1.Left (Grid1.ColWidth(0)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.GridLineWidth*12)*colnumreGHTML5中文学习网 - HTML5先行者学习网
Text1.Top=Grid1.Top (Grid1.RowHeight(0)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.GridLineWidth*12)*rownumreGHTML5中文学习网 - HTML5先行者学习网
EndSubreGHTML5中文学习网 - HTML5先行者学习网
PrivateSubGrid1_MouseUp(ButtonAsInteger,reGHTML5中文学习网 - HTML5先行者学习网
ShiftAsInteger,XAsSingle,YAsSingle)reGHTML5中文学习网 - HTML5先行者学习网
Text1.SetFocusreGHTML5中文学习网 - HTML5先行者学习网
EndSubreGHTML5中文学习网 - HTML5先行者学习网
PrivateSubHScroll1_Change()reGHTML5中文学习网 - HTML5先行者学习网
startcol=Grid1.LeftColreGHTML5中文学习网 - HTML5先行者学习网
Grid1.LeftCol=HScroll1.ValuereGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartCol=Grid1.SelStartColreGHTML5中文学习网 - HTML5先行者学习网
Grid1.LeftCol-startcolreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Col=Grid1.SelStartColreGHTML5中文学习网 - HTML5先行者学习网
Text1.Text=Grid1.TextreGHTML5中文学习网 - HTML5先行者学习网
EndSubreGHTML5中文学习网 - HTML5先行者学习网
PrivateSubText1_Change()reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Text=Text1.TextreGHTML5中文学习网 - HTML5先行者学习网
EndSubreGHTML5中文学习网 - HTML5先行者学习网
PrivateSubText1_KeyDown(KeyCodereGHTML5中文学习网 - HTML5先行者学习网
AsInteger,ShiftAsInteger)reGHTML5中文学习网 - HTML5先行者学习网
SelectCaseKeyCodereGHTML5中文学习网 - HTML5先行者学习网
Case38'光标向上reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Text=Text1.TextreGHTML5中文学习网 - HTML5先行者学习网
IfGrid1.SelStartRow<2ThenreGHTML5中文学习网 - HTML5先行者学习网
IfGrid1.TopRow>1ThenreGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Value=VScroll1.Value-1reGHTML5中文学习网 - HTML5先行者学习网
ElsereGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartRow=1reGHTML5中文学习网 - HTML5先行者学习网
EndIfreGHTML5中文学习网 - HTML5先行者学习网
ElsereGHTML5中文学习网 - HTML5先行者学习网
IfGrid1.TopRow=Grid1.SelStartRowThenreGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Value=VScroll1.Value-1reGHTML5中文学习网 - HTML5先行者学习网
ElsereGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartRow=Grid1.SelStartRow-1reGHTML5中文学习网 - HTML5先行者学习网
EndIfreGHTML5中文学习网 - HTML5先行者学习网
EndIfreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Col=Grid1.SelStartColreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Row=Grid1.SelStartRowreGHTML5中文学习网 - HTML5先行者学习网
colnum=Grid1.Col-Grid1.LeftCol 1reGHTML5中文学习网 - HTML5先行者学习网
rownum=Grid1.Row-Grid1.TopRow 1reGHTML5中文学习网 - HTML5先行者学习网
Text1.Text=Grid1.TextreGHTML5中文学习网 - HTML5先行者学习网
Text1.Left=Grid1.Left (Grid1.ColWidth(0)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.GridLineWidth*12)*colnumreGHTML5中文学习网 - HTML5先行者学习网
Text1.Top=Grid1.Top (Grid1.RowHeight(0)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.GridLineWidth*12)*rownumreGHTML5中文学习网 - HTML5先行者学习网
ExitSubreGHTML5中文学习网 - HTML5先行者学习网
Case40'光标向下reGHTML5中文学习网 - HTML5先行者学习网
Grid1.Text=Text1.TextreGHTML5中文学习网 - HTML5先行者学习网
IfGrid1.SelStartRow>in putrownum-1ThenreGHTML5中文学习网 - HTML5先行者学习网
IfGrid1.TopRow reGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Value=VScroll1.Value 1reGHTML5中文学习网 - HTML5先行者学习网
ElsereGHTML5中文学习网 - HTML5先行者学习网
IfVScroll1.Value=VScroll1.MaxAndreGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartRowreGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartRow=Grid1.SelStartRow 1reGHTML5中文学习网 - HTML5先行者学习网
ElsereGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartRow=Grid1.Rows-1reGHTML5中文学习网 - HTML5先行者学习网
EndIfreGHTML5中文学习网 - HTML5先行者学习网
EndIfreGHTML5中文学习网 - HTML5先行者学习网
ElsereGHTML5中文学习网 - HTML5先行者学习网
IfGrid1.TopRow=Grid1.SelStartRow-in putrownumThenreGHTML5中文学习网 - HTML5先行者学习网
VScroll1.Value=VScroll1.Value 1reGHTML5中文学习网 - HTML5先行者学习网
ElsereGHTML5中文学习网 - HTML5先行者学习网
Grid1.SelStartRow=Grid1.SelStartRow 1reGHTML5中文学习网 - HTML5先行者学习网
EndIfreGHTML5中文学习网 - HTML5先行者学习网
EndIfreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Col=Grid1.SelStartColreGHTML5中文学习网 - HTML5先行者学习网
Grid1.Row=Grid1.SelStartRowreGHTML5中文学习网 - HTML5先行者学习网
colnum=Grid1.Col-Grid1.LeftCol 1reGHTML5中文学习网 - HTML5先行者学习网
rownum=Grid1.Row-Grid1.TopRow 1reGHTML5中文学习网 - HTML5先行者学习网
Text1.Text=Grid1.TextreGHTML5中文学习网 - HTML5先行者学习网
Text1.Left=Grid1.Left (Grid1.ColWidth(0)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.GridLineWidth*12)*colnumreGHTML5中文学习网 - HTML5先行者学习网
Text1.Top=Grid1.Top (Grid1.RowHeight(0)reGHTML5中文学习网 - HTML5先行者学习网
Grid1.GridLineWidth*12)*rownumreGHTML5中文学习网 - HTML5先行者学习网
ExitSub->reGHTML5中文学习网 - HTML5先行者学习网