VB.NET控件的使用方法及實(shí)現(xiàn)的功能多樣化，可以幫助開(kāi)發(fā)人員輕松方便的實(shí)現(xiàn)各種開(kāi)發(fā)中的需求。比如VB.NET初始化網(wǎng)格的操作，就可以通過(guò)多列ComBoBox控件的相關(guān)操作來(lái)實(shí)現(xiàn)。大家一起來(lái)看看詳細(xì)的操作方法吧。#t#

在VB.NET控件中使用到判斷單元格是否越界。但沒(méi)有用到。因?yàn)槭褂昧肆硗庖环NVB.NET初始化網(wǎng)格的方法。

有兩種初VB.NET初始化網(wǎng)格的方法：

1.根據(jù)行列數(shù)和行標(biāo)題，生成一個(gè)空白網(wǎng)格。有標(biāo)題，里面數(shù)據(jù)全是空白字符" "。

2.根據(jù)表DataTable，生成相應(yīng)的網(wǎng)格。

下面的這一段代碼應(yīng)該用到方法1中。

#Region "驗(yàn)證單元格是否存在的函數(shù)."   
Private Function IsValidRowAndColumn(ByVal Row As Integer, 
ByVal Column As Integer) As Boolean   
If Column < 0 OrElse Row < 0 Then   
MessageBox.Show(Me, "網(wǎng)格行列數(shù)不可以為負(fù)", "網(wǎng)格錯(cuò)誤")   
Return False   
ElseIf Row > Me.Lv.Items.Count Then   
MessageBox.Show(Me, "行數(shù)越界:" & Row.ToString, "網(wǎng)格錯(cuò)誤")   
Return False   
ElseIf Column > Me.Lv.Columns.Count Then   
MessageBox.Show(Me, "列數(shù)越界:" & Column.ToString(), "網(wǎng)格錯(cuò)誤")   
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, "網(wǎng)格行數(shù)不可以為負(fù)", "網(wǎng)格錯(cuò)誤")   
Return False   
ElseIf Row > Me.Lv.Items.Count Then   
MessageBox.Show(Me, "行數(shù)越界:" & Row.ToString, "網(wǎng)格錯(cuò)誤")   
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, "網(wǎng)格列數(shù)不可以為負(fù)", "網(wǎng)格錯(cuò)誤")   
Return False   
ElseIf Column > Me.Lv.Columns.Count Then   
MessageBox.Show(Me, "列數(shù)越界:" & Column.ToString(), "網(wǎng)格錯(cuò)誤")   
Return False   
Else   
Return True   
End If   
End Function   
#End Region   
#Region "獲取或設(shè)置單元格的值"   
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初始化網(wǎng)的相關(guān)實(shí)現(xiàn)方法就為大家介紹到這里。