VB.NET初始化网格实现方法解析

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