VB.NETLISTVIEW实现功能简述

在VB.NET开发框架内，同样具有很多控件供开发人员使用，方便的实现各种图形界面和程序功能需求。比如我们在这里为大家介绍的VB.NET LISTVIEW就是一款能够帮助我们实现排序的开发控件。#t#

创新互联是专业的阳东网站建设公司，阳东接单;提供成都网站建设、成都做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行阳东网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

控件:

TEXTBOX :1个 Name:txtJobNo

BUTTON: 2个 Name:btnFilter,btnShowAll

LISTVIEW : 1个 Name:lstvwJobNo Columns:JobNo,ContainerID,CartonID,PO,Style,Color,Size,ShipMent,Factory Sorting:none

VB.NET LISTVIEW编写源代码:

  1. Imports System.Data.SqlClient  
  2. Dim con As New SqlConnection  
  3. Dim varSQL As String  
  4. Dim r As Integer  
  5. Dim conString As String =
    "data source=127.0.0.1;initial 
    catalog=mydb; uid=sa;password=123"     

'定义默认排序变量

 
 
 
    
  
  
  
  1. Dim mySort As String = "ASC" 
    2.

'VB.NET LISTVIEW定义默认字段变量

 
 
 
    
  
  
  
  1. Dim myField As String 
    = "JOB.JOBNO" 
    2.

'过滤指定条件的记录

 
 
 
    
  
  
  
  1. Private Sub btnFilter_Click(ByVal 
    sender As System.Object, ByVal e 
    As System.EventArgs) Handles 
    btnFilter.Click  
    2. 
  
  
  
  2. Try  
    3. 
  
  
  
  3. Dim fJobNo As String = "" 
    4. 
  
  
  
  4. fJobNo = txtJobNo.Text.Trim()  
    5. 
  
  
  
  5. r = List_dgJobNo(fJobNo)  
    6. 
  
  
  
  6. Catch ex As Exception  
    7. 
  
  
  
  7. MessageBox.Show(ex.ToString)  
    8. 
  
  
  
  8. Finally  
    9. 
  
  
  
  9. If con.State = ConnectionState.
    Open Then  
    10. 
  
  
  
  10. con.Close()  
    11. 
  
  
  
  11. End If  
    12. 
  
  
  
  12. End Try  
    13. 
  
  
  
  13. End Sub 
    14.

'VB.NET LISTVIEW显示所有记录

 
 
 
    
  
  
  
  1. Private Sub btnShowAll_Click
    (ByVal sender As System.Object, 
    ByVal e As System.EventArgs) 
    Handles btnShowAll.Click  
    2. 
  
  
  
  2. List_dgJobNo("")  
    3. 
  
  
  
  3. End Sub 
    4.

'函数功能：将读取出来的数据写入lstvwJovNo的表格中
'函数名称：List_dgJobNo,调用格式：List_dgJobNo("10022")，List_dgJobNo("")
'参 数：fJobNo，要查询的工作号JOBNO，为空时则查询所有的
'编 写 者：SD
'日 期：2005-9-23
'转载请保留此信息

 
 
 
    
  
  
  
  1. Private Function List_dgJobNo(ByVal 
    fJobNo As String) As Integer  
    2. 
  
  
  
  2. Try  
    3. 
  
  
  
  3. Cursor.Current = Cursors.WaitCursor  
    4. 
  
  
  
  4. lstvwJobNo.Items.Clear()  
    5. 
  
  
  
  5. con = New SqlConnection(conString)  
    6. 
  
  
  
  6. Dim cmd As SqlCommand  
    7. 
  
  
  
  7. Dim rd As SqlDataReader  
    8. 
  
  
  
  8. If fJobNo.Length > 0 Then  
    9. 
  
  
  
  9. varSQL = "SELECT JOB.JOBNO,CONTAINERNO,
    CARTONFROM,PO,STYLE,COLOR,CARTONSIZE,
    SHIPMENT,FACTORY FROM JOB,JOB_LINE 
    WHERE JOB.JOBNO=JOB_LINE.JOBNO AND JOB.
    JOBNO LIKE '%" & fJobNo & "%' "  
    10. 
  
  
  
  10. Else  
    11. 
  
  
  
  11. varSQL = "SELECT JOB.JOBNO,CONTAINERNO,
    CARTONFROM,PO,STYLE,COLOR,CARTONSIZE,
    SHIPMENT,FACTORY FROM JOB,JOB_LINE 
    WHERE JOB.JOBNO=JOB_LINE.JOBNO " 
    12. 
  
  
  
  12. End If  
    13. 
  
  
  
  13. varSQLvarSQL = varSQL & "ORDER BY " 
    & myField & " " & mySort & ";"  
    14. 
  
  
  
  14. cmd = New SqlCommand(varSQL, con)  
    15. 
  
  
  
  15. rd = cmd.ExecuteReader  
    16. 
  
  
  
  16. Dim lsv As ListViewItem  
    17. 
  
  
  
  17. While rd.Read  
    18. 
  
  
  
  18. lsv = New ListViewItem(rd("JOBNO").ToString)  
    19. 
  
  
  
  19. 'lsv.Checked = True 
    20. 
  
  
  
  20. lsv.SubItems.Add(rd("ContainerNo").ToString)  
    21. 
  
  
  
  21. lsv.SubItems.Add(rd("CartonFrom").ToString)  
    22. 
  
  
  
  22. lsv.SubItems.Add(rd("PO").ToString)  
    23. 
  
  
  
  23. lsv.SubItems.Add(rd("Style").ToString)  
    24. 
  
  
  
  24. lsv.SubItems.Add(rd("Color").ToString)  
    25. 
  
  
  
  25. lsv.SubItems.Add(rd("CartonSize").ToString)  
    26. 
  
  
  
  26. lsv.SubItems.Add(rd("ShipMent").ToString)  
    27. 
  
  
  
  27. lsv.SubItems.Add(rd("Factory").ToString)  
    28. 
  
  
  
  28. lstvwJobNo.Items.Add(lsv)  
    29. 
  
  
  
  29. End While  
    30. 
  
  
  
  30. Cursor.Current = Cursors.Default  
    31. 
  
  
  
  31. Return List_dgJobNo = 1 
    32. 
  
  
  
  32. Catch ex As Exception  
    33. 
  
  
  
  33. MessageBox.Show(ex.ToString)  
    34. 
  
  
  
  34. Return List_dgJobNo = -1  
    35. 
  
  
  
  35. Finally  
    36. 
  
  
  
  36. If con.State = ConnectionState.Open Then  
    37. 
  
  
  
  37. con.Close()  
    38. 
  
  
  
  38. End If  
    39. 
  
  
  
  39. End Try  
    40. 
  
  
  
  40. End Function 
    41.

'VB.NET LISTVIEW获得排序的字段,并显示排序标记

 
 
 
    
  
  
  
  1. Private Sub lstvwJobNo_ColumnClick
    (ByVal sender As Object, ByVal e As 
    System.Windows.Forms.ColumnClickEventArgs) 
    Handles lstvwJobNo.ColumnClick  
    2. 
  
  
  
  2. Select Case e.Column.ToString  
    3. 
  
  
  
  3. Case 0  
    4. 
  
  
  
  4. myField = "JOB.JOBNO" 
    5. 
  
  
  
  5. Case 1  
    6. 
  
  
  
  6. myField = "CONTAINERNO" 
    7. 
  
  
  
  7. Case 2  
    8. 
  
  
  
  8. myField = "CARTONFROM" 
    9. 
  
  
  
  9. Case 3  
    10. 
  
  
  
  10. myField = "PO" 
    11. 
  
  
  
  11. Case 4  
    12. 
  
  
  
  12. myField = "STYLE" 
    13. 
  
  
  
  13. Case 5  
    14. 
  
  
  
  14. myField = "COLOR" 
    15. 
  
  
  
  15. Case 6  
    16. 
  
  
  
  16. myField = "CARTONSIZE" 
    17. 
  
  
  
  17. Case 7  
    18. 
  
  
  
  18. myField = "SHIPMENT" 
    19. 
  
  
  
  19. Case 8  
    20. 
  
  
  
  20. myField = "FACTORY" 
    21. 
  
  
  
  21. End Select  
    22. 
  
  
  
  22. Dim i As Integer  
    23. 
  
  
  
  23. For i = 0 To 8  
    24. 
  
  
  
  24. lstvwJobNo.Columns(i).Text = 
    lstvwJobNo.Columns(i).Text.Replace
    (" ▼", "").Replace(" ▲", "")  
    25. 
  
  
  
  25. Next  
    26. 
  
  
  
  26. If mySort = "ASC" Then  
    27. 
  
  
  
  27. lstvwJobNo.Columns(e.Column.ToString)
    .Text = lstvwJobNo.Columns(e.Column.
    ToString).Text & " ▼"  
    28. 
  
  
  
  28. mySort = "DESC" 
    29. 
  
  
  
  29. Else  
    30. 
  
  
  
  30. mySort = "ASC" 
    31. 
  
  
  
  31. lstvwJobNo.Columns(e.Column.ToString).
    Text = lstvwJobNo.Columns(e.Column.
    ToString).Text & " ▲"  
    32. 
  
  
  
  32. End If  
    33. 
  
  
  
  33. Dim fJobNo As String = "" 
    34. 
  
  
  
  34. fJobNo = txtJobNo.Text.Trim()  
    35. 
  
  
  
  35. r = List_dgJobNo(fJobNo)  
    36. 
  
  
  
  36. lstvwJobNo.Refresh()  
    37. 
  
  
  
  37. End Sub 
    38.

VB.NET LISTVIEW的相关操作方法和实现的功能就为大家介绍到这里。

当前题目：VB.NETLISTVIEW实现功能简述
文章位置：http://www.shufengxianlan.com/qtweb/news48/85198.html

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

广告

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

猜你还喜欢下面的内容

域名注册知识

分类信息网站

网站推广　　 　成都SEO优化公司　　 　边坡柔性防护网　　 　微官网开发　　 　网站推广　　 　成都服务器机柜租用　　 　品牌网站建设　　 　证企宝　　 　郫县封阳台　　 　成都网站设计　　 　响应式网站设计方案　　 　网站建设公司　　 　成都移动服务器托管　　 　成都网站设计公司　　 　成都印刷厂　　 　重庆手机网站建设　　 　装饰公司网站建设方案　　 　微信小程序开发　　 　定制网站制作　　 　网络营销