成人免费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-13 17:47:59

VB.NET拖放

2010-01-21 18:19:45

VB.NET條件編譯

2010-01-22 16:07:26

VB.NET Mid函

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繼承實現多

2009-11-02 14:48:45

VB.NET HOOK

2010-01-15 16:46:05

VB.NET集合存儲

2010-01-21 13:11:31

VB.NET安裝工程
點贊
收藏

51CTO技術棧公眾號

主站蜘蛛池模板: 欧美视频1 | 精品国产女人 | 91久久看片 | 日韩一区二区三区精品 | 国内精品视频在线观看 | 国产综合精品一区二区三区 | 日韩高清一区 | 国产精品久久久久一区二区三区 | 中文字幕人成人 | 成年人在线视频 | 成人毛片在线观看 | 欧美一级做a爰片免费视频 国产美女特级嫩嫩嫩bbb片 | 一本岛道一二三不卡区 | 国产精品精品视频一区二区三区 | 国产一区免费 | 国产乱码精品一区二区三区五月婷 | 亚洲人精品午夜 | aaa天堂| 日本三级电影在线看 | 极品国产视频 | 涩涩视频在线观看免费 | 久婷婷 | 免费观看的黄色网址 | 久久精品99久久 | 久久久久久久久久久久久久久久久久久久 | 精品九九| 少妇无套高潮一二三区 | 久久久久久成人 | 天堂一区 | 欧美 日韩 国产 在线 | 午夜精品久久久久久久久久久久久 | 午夜av成人 | 国产精品精品久久久久久 | 午夜精品久久久久久久99黑人 | 日日操日日舔 | 午夜伊人| 一区二区伦理电影 | 日韩视频区 | 搞av.com| 亚洲国产欧美国产综合一区 | 亚洲成人免费视频在线 |