分享
 
 
 

--=== 利用微软网格控件进行编辑输入==--

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

利用微软网格控件进行编辑输入

(作者:王莉梅2001年01月18日 16:51)

Visual Basic中提供了许多标准控件和定制控件,每一个控件都可以提供一组特殊的用户界面和编程能力。充分利用每一个控件的特性和方法,可以使编程工作更加容易、简单。

微软网格控件MSFlexGrid是个定制控件。使用微软网格控件,可以按行列顺序显示正文、数字和图片,就象电子表格一样。网格的高度、宽度和其它特性都可以进行调整,而且网格的行和列可以单个地或成组地进行操作。MSFlexGrid控件对包含在内的单元内容可进行分类、合并以及格式化,并且可以与数据库控件相绑定。MSFlexGrid控件具有50多种属性,比其它网格控件功能更强大,灵活性更强。

但是MSFlexGrid控件同其它Grid网格控件一样,用户不能编辑网格单元中的内容,在要求对其内容进行修改时,这可能是一个缺陷。虽然可以对DBGrid控件进行编程完成编辑的功能,但其功能不如MSFlexGrid强大。当在录入工作量比较大时,如果利用MSFlexGrid进行输入,代替Text或其它控件,从而避免了界面的反复刷新和不断地操作按钮,录入速度和效率会得以大大提高。

在应用程序中使用 MSFlexGrid 之前,应先将 MSFlxGrd.ocx 文件添加到工程中。

实现编辑网格单元的方案

为了仅仅要求实现能够对网格单元进行输入,可以在MSFlexGrid的KeyPress事件中加入以下代码,但是修改编辑输入后的内容还十分困难。

Sub MSFLexGrid1_KeyPress(KeyAscii As Integer)

MSFlexGrid1.Text=MSFlexGrid1.Text & Chr$(KeyAscii)

End Sub

另外一种方法是文本框和网格相结合,用户编辑操作文本框中的内容,操作完后移至网格单元中。在这个过程中,应该实现以下几个功能:

(1)文本框能准确定位,与待编辑网格单元相重合(2)平时文本框不显示,当进行编辑操作时显示(3)在输入完一行后能自动判断并加一新行(4)按回车键确认并自动到下一列(5)双击网格单元可显示文本框进行编辑(6)文本框消失后,把文本框内容移到网格单元中。

编辑网格单元的具体实现

建立一个新工程,在Form1上添加控件 Text1和MSFlexGrid1,根据表1设置其属性。

表1 表单Form1的对象和属性

对象

属性

设置

Text1

Visible

False

Text

“”

MSFlexGrid1

Rows

2

Cols

根据字段数目自行设置

FixedCols

0

FixedRows

1

首先要实现文本框显示的时候,能与网格单元准确重合。ShowTextBox子例程便可以实现此功能。在此考虑网格本身的Top和Left值、网格单元的高度和宽度、分隔网格单元的边框的宽度。

Sub ShowTextBox()

With MSFlexGrid1

'隐藏文本框,设置高度和宽度

Text1.Visible = False

Text1.Height = .RowHeight(.Row) - (Screen.TwipsPerPixelY) * 2

Text1.Width = .ColWidth(.Col)

' 计算文本框左坐标

Text1.Left = .CellLeft + .Left

Text1.Top = .CellTop + .Top

Text1.Visible = True

Text1.SetFocus

End With

End Sub

当有按键触发网格单元时,则把单元中的内容保存到文本框中,然后显示文本框等待编辑。

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)

Dim char As String

If KeyAscii = 13 Then

Text1.Text = MSFlexGrid1.Text

Text1.SelStart = Len(Text1.Text)

Else

char = Chr$(KeyAscii)

Text1.Text = char

Text1.SelStart = 1

End If

ShowTextBox

KeyAscii = 0

End Sub

当焦点离开一个网格单元时,先保存文本框中的内容到网格单元,然后检测离开单元是否在最大行第一列(可自己设第几列),如果是自动加一行。

Private Sub MSFlexGrid1_LeaveCell()

MSFlexGrid1.Text = Text1.Text

If MSFlexGrid1.Col = 0 And MSFlexGrid1.Row <> 0 And _

MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 And MSFlexGrid1.Text <> "" Then

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

End If

End Sub

为了响应鼠标动作,添加以下代码。

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, _

x As Single, y As Single)

Text1.Visible = False

End Sub

当网格单元发生变化时,取网格单元内容到文本框,等待编辑,从而保证文本框中的内容最新。

Private Sub MSFlexGrid1_RowColChange()

Text1.Text = MSFlexGrid1.Text

End Sub

双击网格单元可以对网格单元中内容进行编辑。

Private Sub MSFlexGrid1_DblClick()

If MSFlexGrid1.Row > 0 And MSFlexGrid1.Col = 0 Then MSFlexGrid1_KeyPress 13

End Sub

文本框起输入编辑框的作用,模拟网格单元,输入到文本框的内容,经过处理送到网格中,当输入完后按回车键可以自动到下一列,若为最后一列,跳转到下一行的第一列等待输入。

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

MSFlexGrid1.Text = Text1.Text

Text1.Visible = False

MSFlexGrid1.SetFocus

If MSFlexGrid1.Col < (MSFlexGrid1.Cols - 1) Then

MSFlexGrid1.Col = MSFlexGrid1.Col + 1

ElseIf MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then

MSFlexGrid1.Row = MSFlexGrid1.Row + 1

MSFlexGrid1.Col = 0

End If

KeyAscii = 0

End If

End Sub

以上程序在VB6.0 (中文企业版)下运行通过,实现了对MSFlexGrid网格单元的输入编辑。当然还可以添加一些代码完成对一些击键的响应,如按Tab自动到下一列,按Ese键取消输入等,这都很容易做到,在此不再叙述。如果您使用VB6.0 (中文企业版),还可以用MSHFlexGrid控件来完成编辑输入的功能。您可以在此下载程序清单。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有