VB.NET初始化網格實現方法解析
作者:佚名
VB.NET初始化網格的方法總共有兩種,分別為根據行列數和行標題,生成一個空白網格;根據表DataTable,生成相應的網格。我們今天主要針對第一個方法來為大家詳細講解。
VB.NET控件的使用方法及實現的功能多樣化,可以幫助開發人員輕松方便的實現各種開發中的需求。比如VB.NET初始化網格的操作,就可以通過多列ComBoBox控件的相關操作來實現。大家一起來看看詳細的操作方法吧。#t#
在VB.NET控件中使用到判斷單元格是否越界。但沒有用到。因為使用了另外一種VB.NET初始化網格的方法。
有兩種初VB.NET初始化網格的方法:
1.根據行列數和行標題,生成一個空白網格。有標題,里面數據全是空白字符" "。
2.根據表DataTable,生成相應的網格。
下面的這一段代碼應該用到方法1中。
- #Region "驗證單元格是否存在的函數."
- Private Function IsValidRowAndColumn(ByVal Row As Integer,
ByVal Column As Integer) As Boolean- If Column < 0 OrElse Row < 0 Then
- MessageBox.Show(Me, "網格行列數不可以為負", "網格錯誤")
- Return False
- ElseIf Row > Me.Lv.Items.Count Then
- MessageBox.Show(Me, "行數越界:" & Row.ToString, "網格錯誤")
- Return False
- ElseIf Column > Me.Lv.Columns.Count Then
- MessageBox.Show(Me, "列數越界:" & Column.ToString(), "網格錯誤")
- Return False
- Else
- Return True
- End If
- End Function
- Private Function IsValidRow(ByVal Row As Integer) As Boolean
- If Row < 0 Then
- MessageBox.Show(Me, "網格行數不可以為負", "網格錯誤")
- Return False
- ElseIf Row > Me.Lv.Items.Count Then
- MessageBox.Show(Me, "行數越界:" & Row.ToString, "網格錯誤")
- Return False
- Else
- Return True
- End If
- End Function
- Private Function IsValidColumn(ByVal Column As Integer) As Boolean
- If Column < 0 Then
- MessageBox.Show(Me, "網格列數不可以為負", "網格錯誤")
- Return False
- ElseIf Column > Me.Lv.Columns.Count Then
- MessageBox.Show(Me, "列數越界:" & Column.ToString(), "網格錯誤")
- Return False
- Else
- Return True
- End If
- End Function
- #End Region
- #Region "獲取或設置單元格的值"
- Public Sub SetCellValue(ByVal Row As Integer,
ByVal Column As Integer, ByVal ItemValue As String)- If IsValidRowAndColumn(Row, Column) Then
- If Column = 0 Then
- Me.Lv.Items(Row).Text = ItemValue
- Else
- Me.Lv.Items(Row).SubItems(Column).Text = ItemValue
- End If
- End If
- End Sub
- Public Function GetCellValue(ByVal Row As Integer,
ByVal Column As Integer) As String- If IsValidRowAndColumn(Row, Column) Then
- If Column = 0 Then
- Return Me.Lv.Items(Row).Text
- Else
- Return Me.Lv.Items(Row).SubItems(Column).Text
- End If
- Else
- Return Nothing
- End If
- End Function
- #End Region
VB.NET初始化網的相關實現方法就為大家介紹到這里。
責任編輯:曹凱
來源:
itwis.com