1 ''' // ****************************************************************
   2 ''' // Tooltip Demo
   3 ''' // Demo
   4 ''' // (c)digital-ecom GmbH, 2009
   5 
   6 ''' // Main: Create some dummy controls and show User Form.
   7 ''' // ****************************************************************
   8 
   9 Option Explicit
  10 Option Private Module
  11 
  12 ''' // Main:
  13 Sub showTooltipDemo()
  14 Dim objListView As ListView
  15 
  16     Set objListView = dlgTooltipDemo.ListView1
  17 
  18     Call ListView_Create(objListView)
  19     Call ListView_Data(objListView)
  20 
  21     dlgTooltipDemo.Show
  22 End Sub
  23 
  24 Sub ListView_Create(ByRef objListView As ListView)
  25     objListView.View = lvwReport
  26     objListView.LabelEdit = lvwManual
  27     objListView.FullRowSelect = True
  28 
  29     objListView.ListItems.Clear
  30     objListView.ColumnHeaders.Clear
  31 
  32     objListView.ColumnHeaders.Add , , "Product ID", 70
  33     objListView.ColumnHeaders.Add , , "Customer ID", 70
  34     objListView.ColumnHeaders.Add , , "Turnover", 100
  35 End Sub
  36 
  37 Sub ListView_Data(ByRef objListView As ListView)
  38 Dim WS As Worksheet
  39 Dim lr As Long, i As Long
  40 Dim L_Item As ListItem
  41 
  42     Set WS = ThisWorkbook.Worksheets("DemoData")
  43     lr = Tools.Get_Last_Row(WS)
  44 
  45     For i = 2 To lr
  46         Set L_Item = objListView.ListItems.Add(, , WS.Cells(i, 1).Value)
  47 
  48         L_Item.SubItems(1) = WS.Cells(i, 4).Value
  49         L_Item.SubItems(2) = Int((100 - 1 + 1) * Rnd + 1)
  50     Next
  51 End Sub
  52