home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD80587232000.psc / Module1b.bas < prev    next >
Encoding:
BASIC Source File  |  2000-07-18  |  3.8 KB  |  150 lines
  1. Attribute VB_Name = "General2"
  2.  
  3.  
  4. Public gListViewTotalSelected As Long
  5. Public gListViewSelected() As Long
  6. Public gListViewItemToInsertBefore As Long
  7.  
  8. Public Const LVM_FIRST = &H1000
  9. Public Const LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50)
  10.  
  11.  
  12. Public Const LVFI_PARAM = &H1
  13. Public Const LVFI_STRING = &H2
  14. Public Const LVFI_PARTIAL = &H8
  15. Public Const LVFI_WRAP = &H20
  16. Public Const LVFI_NEARESTXY = &H40
  17.  
  18. Public Sub ListViewGetSelectedItems(ByVal FormToUse As Form, ByVal ListViewControl As Control)
  19.  
  20.   Dim Counter As Long
  21.   Dim SelectedCount As Long
  22.   
  23.  
  24.   
  25.   SelectedCount = 1
  26.   gListViewTotalSelected = SendMessage(ListViewControl.hwnd, LVM_GETSELECTEDCOUNT, 0, 0)
  27.  
  28.   If gListViewTotalSelected > 0 Then
  29.  
  30.     ReDim gListViewSelected(gListViewTotalSelected) As Long
  31.   
  32.     For Counter = 1 To ListViewControl.ListItems.Count
  33.      
  34.        On Error GoTo ext:
  35.        If ListViewControl.ListItems(Counter).Selected = True Then
  36.        
  37.          gListViewSelected(SelectedCount) = Counter
  38.         
  39.      
  40.        
  41.       
  42.  On Error Resume Next
  43.        Set A = frmMain.LstPlay.ListItems.Add(SelectedCount, ListViewControl.ListItems(Counter).Key, ListViewControl.ListItems(Counter).Text, , 4)
  44.        A.SubItems(1) = ListViewControl.ListItems(Counter).SubItems(1)
  45.        
  46.        frmMain.LstHistory.ListItems.Remove frmMain.LstHistory.ListItems(Counter).Key
  47.        Counter = Counter - 1
  48.        
  49.     SelectedCount = SelectedCount + 1
  50.        End If
  51.      
  52.     Next Counter
  53. ext:
  54.   End If
  55.  
  56.   
  57.   
  58. End Sub
  59.  
  60. Public Sub ListViewDelSelectedItems(ByVal FormToUse As Form, ByVal ListViewControl As Control)
  61. Dim Counter As Long, SelectedCount As Long
  62.  
  63. SelectedCount = 1
  64.   gListViewTotalSelected = SendMessage(ListViewControl.hwnd, LVM_GETSELECTEDCOUNT, 0, 0)
  65.  
  66.   If gListViewTotalSelected > 0 Then
  67.  ReDim gListViewSelected(gListViewTotalSelected) As Long
  68.    For Counter = 1 To ListViewControl.ListItems.Count
  69.      On Error GoTo ext:
  70.        If ListViewControl.ListItems(Counter).Selected = True Then
  71.        
  72.          gListViewSelected(SelectedCount) = Counter
  73.         On Error Resume Next
  74.       ListViewControl.ListItems.Remove ListViewControl.ListItems(Counter).Key
  75.        Counter = Counter - 1
  76.        SelectedCount = SelectedCount + 1
  77.        End If
  78.      Next Counter
  79. ext:
  80.   End If
  81.   End Sub
  82.  
  83. Public Sub ListViewSetAsNext(ByVal FormToUse As Form, ByVal ListViewControl As Control)
  84.  
  85.   Dim Counter As Long, SelectedCount As Long
  86.   Dim T As String, A As String
  87.  
  88.   
  89.   SelectedCount = 1
  90.   gListViewTotalSelected = SendMessage(ListViewControl.hwnd, LVM_GETSELECTEDCOUNT, 0, 0)
  91.  
  92.   If gListViewTotalSelected > 0 Then
  93.  
  94.     ReDim gListViewSelected(gListViewTotalSelected) As Long
  95.   
  96.     For Counter = 1 To ListViewControl.ListItems.Count
  97.      
  98.        On Error GoTo ext:
  99.        If ListViewControl.ListItems(Counter).Selected = True Then
  100.        
  101.          gListViewSelected(SelectedCount) = Counter
  102.         
  103.      
  104.        
  105.       
  106.  On Error Resume Next
  107.  
  108.  
  109.  
  110.  
  111.      T = frmMain.LstPlay.ListItems(Counter).Text
  112.      k = frmMain.LstPlay.ListItems(Counter).Key
  113.      A = frmMain.LstPlay.ListItems(Counter).SubItems(1)
  114.          
  115.        
  116.        ListViewControl.ListItems.Remove ListViewControl.ListItems(Counter).Key
  117.       
  118.        
  119.   MsgBox T, A
  120.        
  121.      Set x = frmMain.LstPlay.ListItems.Add(SelectedCount, k, T, , 4)
  122.     x.SubItems(1) = A
  123.        
  124.     SelectedCount = SelectedCount + 1
  125.      Counter = Counter - 1
  126.        End If
  127.      
  128.     Next Counter
  129. ext:
  130.   End If
  131.  
  132.   
  133.   
  134. End Sub
  135.  
  136. Public Sub SetListViewToWholeRowSelect(ByVal ListViewhWnd As Long)
  137.     
  138.   Dim lStyle As Long
  139.   
  140.   lStyle = SendMessage(ListViewhWnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
  141.   lStyle = lStyle Or LVS_EX_FULLROWSELECT
  142.   
  143.   Call SendMessage(ListViewhWnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, ByVal lStyle)
  144.  
  145. End Sub
  146.  
  147.  
  148.  
  149.  
  150.