mdllistview.bas

利用ＶＢ和ＡＣＥＳＳ联合制作的一个人事和物品管理系统

Attribute VB_Name = "mdlListView"


Option Explicit




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

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

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


Public Sub ImagesToCombo(ByVal objs As clsITypes, 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 AllImagesTypeToCombo(ByRef cbo As ComboBox)
  Dim objs As New clsITypes
  Dim rstTypes As clsITypes
  
  Set rstTypes = objs.Find
  ImagesToCombo objs, cbo
  
  Set objs = Nothing
  Set rstTypes = Nothing
  
End Sub