在VB.NET中初始化网格实现方法知识讲解

前端之家收集整理的这篇文章主要介绍了在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初始化网的相关实现方法就为大家介绍到这里。

原文链接:https://www.f2er.com/vb/259837.html

猜你在找的VB相关文章