mdllistview.bas

来自「超市进销存管理系统源码 vb版 不知道可以不可以用」· BAS 代码 · 共 57 行

Attribute VB_Name = "mdlListView"
Option Explicit




'从列表或树型图中得到一个客户对象
Public Function GetMerchFromControl(ByVal lvw As Object, _
                                    ByRef obj As clsMerch) As Boolean
  '如果列表中没有被选择的项，则直接退出
  If lvw.SelectedItem Is Nothing Then
    GetMerchFromControl = False
    Exit Function
  End If

  Dim objs As New clsMerchs
  Dim ID As Long
  '去除Listview中列表项的KEY属性前的字母“A”，即为该客户的ID值
  ID = GetID(lvw.SelectedItem.Key)

  On Error Resume Next '为了防止未查找到，因此加入了错误判断语句
  Set obj = objs.Find(ID).Item(1)
  GetMerchFromControl = (Err.Number = 0)
End Function


Public Sub MerchsToCombo(ByVal objs As clsMTypes, ByRef cbo As ComboBox)
  '传入参数为客户的集合类与列表框
  Dim i As Long
  
  cbo.Clear '清除当前的列表内容
  
  For i = 1 To objs.Count
    '将每个“客户”都加入到该列表中，调用了单独的函数，没有全部做到这
    '个函数中，为什么呢？参看AddMerchToLvw函数
    Call cbo.AddItem(objs.Item(i).TypeName, i - 1)
    cbo.ItemData(i - 1) = objs.Item(i).ID
  Next i
  
End Sub

Public Sub AllMerchsTypeToCombo(ByRef cbo As ComboBox)
  Dim objs As New clsMTypes
  Dim rstTypes As clsMTypes
  
  Set rstTypes = objs.Find
  MerchsToCombo objs, cbo
  
  Set objs = Nothing
  Set rstTypes = Nothing
  
End Sub