成人免费xxxxx在线视频软件_久久精品久久久_亚洲国产精品久久久_天天色天天色_亚洲人成一区_欧美一级欧美三级在线观看

VB.NET初始化網格實現方法解析

開發 后端
VB.NET初始化網格的方法總共有兩種,分別為根據行列數和行標題,生成一個空白網格;根據表DataTable,生成相應的網格。我們今天主要針對第一個方法來為大家詳細講解。

VB.NET控件的使用方法及實現的功能多樣化,可以幫助開發人員輕松方便的實現各種開發中的需求。比如VB.NET初始化網格的操作,就可以通過多列ComBoBox控件的相關操作來實現。大家一起來看看詳細的操作方法吧。#t#

在VB.NET控件中使用到判斷單元格是否越界。但沒有用到。因為使用了另外一種VB.NET初始化網格的方法。

有兩種初VB.NET初始化網格的方法:

1.根據行列數和行標題,生成一個空白網格。有標題,里面數據全是空白字符" "。

2.根據表DataTable,生成相應的網格。

下面的這一段代碼應該用到方法1中。

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

VB.NET初始化網的相關實現方法就為大家介紹到這里。

責任編輯:曹凱 來源: itwis.com
相關推薦

2010-01-13 18:01:43

VB.NET數組初始化

2010-01-22 13:16:05

VB.NET初始化數組

2009-10-20 14:03:48

VB.NET數組聲明VB.NET數組初始化

2010-01-15 16:12:40

VB.NET調用DLL

2010-01-21 17:48:25

VB.NET Sing

2010-01-21 16:37:56

VB.NET變量聲明

2010-01-18 18:06:07

VB.NET多線程

2009-10-09 15:59:41

VB.NET對象

2010-01-21 18:19:45

VB.NET條件編譯

2010-01-22 16:07:26

VB.NET Mid函

2010-01-13 17:47:59

VB.NET拖放

2010-01-15 18:12:28

VB.NET超鏈接

2010-01-15 19:17:23

2010-01-15 15:03:23

VB.NET對象變量聲

2009-11-03 09:26:13

VB.NET方法

2010-01-14 17:41:57

VB.NET變量范圍

2010-01-15 10:56:50

VB.NET繼承實現多

2010-01-21 13:11:31

VB.NET安裝工程

2009-11-02 14:48:45

VB.NET HOOK

2010-01-15 16:46:05

VB.NET集合存儲
點贊
收藏

51CTO技術棧公眾號

主站蜘蛛池模板: 久久成人av| 国产一级片一区二区三区 | 国精产品一区二区三区 | 国产精品久久 | 高清欧美性猛交xxxx黑人猛交 | 免费a网站| 美女天天操 | 四虎最新 | 第四色狠狠 | 国产精品18hdxxxⅹ在线 | 欧美视频精品 | www.精品国产 | 亚洲成人一区二区 | 91麻豆产精品久久久久久 | 毛色毛片免费看 | 九九久久久 | 亚洲成人毛片 | 欧美成人免费 | 久久精品国产一区二区三区不卡 | 国产黄色网址在线观看 | 日韩二区三区 | 免费影视在线观看 | 亚洲 中文 欧美 日韩 在线观看 | 黄色毛片免费看 | 国产98色在线 | 日韩 | 日韩国产精品一区二区三区 | 日韩视频精品 | 精品一区二区久久 | 色综合久久久久 | 欧美视频第二页 | 午夜三级在线观看 | 观看av | 亚洲美女视频 | 特级做a爰片毛片免费看108 | 91免费在线播放 | 国产精品免费视频一区 | 96国产精品久久久久aⅴ四区 | 国产精品久久久久久影院8一贰佰 | 99精品视频在线观看免费播放 | 日日干日日操 | 免费看黄色片 |