在VB.NET中初始化網格實現方法知識講解

VB.NET控件的使用方法及實現的功能多樣化，能夠幫助開發人員輕鬆方便的實現各類開發中的需求。好比VB.NET初始化網格的操做，就能夠經過多列ComBoBox控件的相關操做來實現。你們一塊兒來看看詳細的操做方法吧。
   
    在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初始化網的相關實現方法就爲你們介紹到這裏。