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