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
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初始化网的相关实现方法就为大家介绍到这里。
在VB.NET中初始化网格实现方法知识讲解
精选 翻译-
java构造方法中怎么对字段初始化
java构造方法中怎么对字段初始化
构造方法 字段 初始化 -
【Spring Boot 源码学习】BootstrapRegistry 初始化器实现
本篇 Huazie 介绍了如何自定义 BootstrapRegistry 初始化器实现,其中演示如何在引导上下文中注册了自定义的对象以及如何在引导上下文中添加引导上下文关闭事件监听器。
Spring Boot 源码学习 BootstrapRegistry 初始化器实现 -
vb.net中类的使用方法 vb.net doevent
Vb.net 事件 代码示例 Sub TestEvents() Dim Obj As New Class1 ' 实例化类 AddHandler Obj.Ev_Event, AddressOf EventHandler
vb.net中类的使用方法 Vb.net 事件 事件处理 Public 处理事件 -
DropDownList在GridView中(vb.net)
曾有用户给Insus.NET留言,下拉式菜单DropDownList在GridView编辑选择。 http://www..com/insus/articles/1411016.html#2053183,需要vb.net版本,现在Insus.NET把主要部分的改写了一些,请参考:xxx.aspx HTML程序:View Code <asp:GridViewID="GridView1"runat="server"SkinID="gridviewSkin"DataKeyNames="MediaId"A
Edit GridView asp.net DropDownList Update -
vb.net 调用类的方法 vb.net function
'判断该窗体是否已经打开 Public Function OpenForm(ByVal myform As Form, ByVal MdiForm As Form) As Boolean Dim form As Form For Each form In MdiForm.MdiChildren
vb.net 调用类的方法 vb.net integer function string