日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET初始化網(wǎng)格實(shí)現(xiàn)方法解析

VB.NET控件的使用方法及實(shí)現(xiàn)的功能多樣化，可以幫助開發(fā)人員輕松方便的實(shí)現(xiàn)各種開發(fā)中的需求。比如VB.NET初始化網(wǎng)格的操作，就可以通過多列ComBoBox控件的相關(guān)操作來實(shí)現(xiàn)。大家一起來看看詳細(xì)的操作方法吧。#t#

高臺網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站設(shè)計(jì)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營維護(hù)。創(chuàng)新互聯(lián)公司公司2013年成立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。

在VB.NET控件中使用到判斷單元格是否越界。但沒有用到。因?yàn)槭褂昧肆硗庖环NVB.NET初始化網(wǎng)格的方法。

有兩種初VB.NET初始化網(wǎng)格的方法：

1.根據(jù)行列數(shù)和行標(biāo)題，生成一個空白網(wǎng)格。有標(biāo)題，里面數(shù)據(jù)全是空白字符" "。

2.根據(jù)表DataTable，生成相應(yīng)的網(wǎng)格。

下面的這一段代碼應(yīng)該用到方法1中。

 
 
 
      
  
  
  1. #Region "驗(yàn)證單元格是否存在的函數(shù)."   
    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, "網(wǎng)格行列數(shù)不可以為負(fù)", "網(wǎng)格錯誤")   
    5.   
  
  
  5. Return False   
    6.   
  
  
  6. ElseIf Row > Me.Lv.Items.Count Then   
    7.   
  
  
  7. MessageBox.Show(Me, "行數(shù)越界:" & Row.ToString, "網(wǎng)格錯誤")   
    8.   
  
  
  8. Return False   
    9.   
  
  
  9. ElseIf Column > Me.Lv.Columns.Count Then   
    10.   
  
  
  10. MessageBox.Show(Me, "列數(shù)越界:" & Column.ToString(), "網(wǎng)格錯誤")   
    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, "網(wǎng)格行數(shù)不可以為負(fù)", "網(wǎng)格錯誤")   
    19.   
  
  
  19. Return False   
    20.   
  
  
  20. ElseIf Row > Me.Lv.Items.Count Then   
    21.   
  
  
  21. MessageBox.Show(Me, "行數(shù)越界:" & Row.ToString, "網(wǎng)格錯誤")   
    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, "網(wǎng)格列數(shù)不可以為負(fù)", "網(wǎng)格錯誤")   
    30.   
  
  
  30. Return False   
    31.   
  
  
  31. ElseIf Column > Me.Lv.Columns.Count Then   
    32.   
  
  
  32. MessageBox.Show(Me, "列數(shù)越界:" & Column.ToString(), "網(wǎng)格錯誤")   
    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 "獲取或設(shè)置單元格的值"   
    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初始化網(wǎng)的相關(guān)實(shí)現(xiàn)方法就為大家介紹到這里。


標(biāo)題名稱：VB.NET初始化網(wǎng)格實(shí)現(xiàn)方法解析
本文網(wǎng)址：http://www.dlmjj.cn/article/djdjsgo.html