VB.NET初始化网格实现方法解析

VB.NET控件的使用方法及实现的功能多样化，可以帮助开发人员轻松方便的实现各种开发中的需求。比如VB.NET初始化网格的操作，就可以通过多列ComBoBox控件的相关操作来实现。大家一起来看看详细的操作方法吧。#t#

高台网站制作公司哪家好，找创新互联公司！从网页设计、网站建设、微信开发、APP开发、响应式网站设计等网站项目制作，到程序开发，运营维护。创新互联公司公司2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司。

在VB.NET控件中使用到判断单元格是否越界。但没有用到。因为使用了另外一种VB.NET初始化网格的方法。

有两种初VB.NET初始化网格的方法：

1.根据行列数和行标题，生成一个空白网格。有标题，里面数据全是空白字符" "。

2.根据表DataTable，生成相应的网格。

下面的这一段代码应该用到方法1中。

 
 
 
      
  
  
  1. #Region "验证单元格是否存在的函数."   
    2.   
  
  
  2. Private Function IsValidRowAndColumn(ByVal Row As Integer, 
    ByVal Column As Integer) As Boolean   
    3.   
  
  
  3. If Column < 0 OrElse Row < 0 Then   
    4.   
  
  
  4. MessageBox.Show(Me, "网格行列数不可以为负", "网格错误")   
    5.   
  
  
  5. Return False   
    6.   
  
  
  6. ElseIf Row > Me.Lv.Items.Count Then   
    7.   
  
  
  7. MessageBox.Show(Me, "行数越界:" & Row.ToString, "网格错误")   
    8.   
  
  
  8. Return False   
    9.   
  
  
  9. ElseIf Column > Me.Lv.Columns.Count Then   
    10.   
  
  
  10. MessageBox.Show(Me, "列数越界:" & Column.ToString(), "网格错误")   
    11.   
  
  
  11. Return False   
    12.   
  
  
  12. Else   
    13.   
  
  
  13. Return True   
    14.   
  
  
  14. End If   
    15.   
  
  
  15. End Function   
    16.   
  
  
  16. Private Function IsValidRow(ByVal Row As Integer) As Boolean   
    17.   
  
  
  17. If Row < 0 Then   
    18.   
  
  
  18. MessageBox.Show(Me, "网格行数不可以为负", "网格错误")   
    19.   
  
  
  19. Return False   
    20.   
  
  
  20. ElseIf Row > Me.Lv.Items.Count Then   
    21.   
  
  
  21. MessageBox.Show(Me, "行数越界:" & Row.ToString, "网格错误")   
    22.   
  
  
  22. Return False   
    23.   
  
  
  23. Else   
    24.   
  
  
  24. Return True   
    25.   
  
  
  25. End If   
    26.   
  
  
  26. End Function   
    27.   
  
  
  27. Private Function IsValidColumn(ByVal Column As Integer) As Boolean   
    28.   
  
  
  28. If Column < 0 Then   
    29.   
  
  
  29. MessageBox.Show(Me, "网格列数不可以为负", "网格错误")   
    30.   
  
  
  30. Return False   
    31.   
  
  
  31. ElseIf Column > Me.Lv.Columns.Count Then   
    32.   
  
  
  32. MessageBox.Show(Me, "列数越界:" & Column.ToString(), "网格错误")   
    33.   
  
  
  33. Return False   
    34.   
  
  
  34. Else   
    35.   
  
  
  35. Return True   
    36.   
  
  
  36. End If   
    37.   
  
  
  37. End Function   
    38.   
  
  
  38. #End Region   
    39.   
  
  
  39. #Region "获取或设置单元格的值"   
    40.   
  
  
  40. Public Sub SetCellValue(ByVal Row As Integer, 
    ByVal Column As Integer, ByVal ItemValue As String)   
    41.   
  
  
  41. If IsValidRowAndColumn(Row, Column) Then   
    42.   
  
  
  42. If Column = 0 Then   
    43.   
  
  
  43. Me.Lv.Items(Row).Text = ItemValue   
    44.   
  
  
  44. Else   
    45.   
  
  
  45. Me.Lv.Items(Row).SubItems(Column).Text = ItemValue   
    46.   
  
  
  46. End If   
    47.   
  
  
  47. End If   
    48.   
  
  
  48. End Sub   
    49.   
  
  
  49. Public Function GetCellValue(ByVal Row As Integer, 
    ByVal Column As Integer) As String   
    50.   
  
  
  50. If IsValidRowAndColumn(Row, Column) Then   
    51.   
  
  
  51. If Column = 0 Then   
    52.   
  
  
  52. Return Me.Lv.Items(Row).Text   
    53.   
  
  
  53. Else   
    54.   
  
  
  54. Return Me.Lv.Items(Row).SubItems(Column).Text   
    55.   
  
  
  55. End If   
    56.   
  
  
  56. Else   
    57.   
  
  
  57. Return Nothing   
    58.   
  
  
  58. End If   
    59.   
  
  
  59. End Function   
    60.   
  
  
  60. #End Region  
    61.

VB.NET初始化网的相关实现方法就为大家介绍到这里。

新闻标题：VB.NET初始化网格实现方法解析
链接URL：http://www.shufengxianlan.com/qtweb/news22/490022.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

服务器托管知识

分类信息网

重庆网站设计　　 　网上商城管理系统　　 　成都画册制作　　 　重庆托管服务器　　 　网络整合营销　　 　网站推广营销　　 　成都电商网站建设方案　　 　雅安服务器托管　　 　古蔺网站建设　　 　网站制作公司　　 　全网营销推广　　 　成都网创优客　　 　成都微信开发　　 　电子商务商城网站　　 　服务器托管　　 　内江服务器托管　　 　眉山做网站　　 　软文发稿　　 　大英泰恒网站　　 　成都企业网站建设公司