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