建站
咨詢
售后
建站咨詢
新聞中心
VB.NET控件的使用方法及實(shí)現(xiàn)的功能多樣化，可以幫助開發(fā)人員輕松方便的實(shí)現(xiàn)各種開發(fā)中的需求。比如VB.NET初始化網(wǎng)格的操作，就可以通過(guò)多列ComBoBox控件的相關(guān)操作來(lái)實(shí)現(xiàn)。大家一起來(lái)看看詳細(xì)的操作方法吧。#t#
高臺(tái)網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站設(shè)計(jì)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)公司公司2013年成立到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。
在VB.NET控件中使用到判斷單元格是否越界。但沒有用到。因?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)方法就為大家介紹到這里。
文章題目：VB.NET初始化網(wǎng)格實(shí)現(xiàn)方法解析
轉(zhuǎn)載來(lái)于：http://m.fisionsoft.com.cn/article/djdjsgo.html
