在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初始化网的相关实现方法就为大家介绍到这里。