在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 Else Return True End If End Function Private Function IsValidColumn（ByVal Column As Integer） As Boolean If Column < 0 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初始化网的相关实现方法就为大家介绍到这里。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!