home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / EventList.ctl < prev    next >
Encoding:
Text File  |  2002-04-18  |  1.4 KB  |  65 lines
  1. VERSION 5.00
  2. Begin VB.UserControl EventList 
  3.    ClientHeight    =   1680
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   3450
  7.    ScaleHeight     =   1680
  8.    ScaleWidth      =   3450
  9.    Begin VB.ListBox lstItems 
  10.       BeginProperty Font 
  11.          Name            =   "Tahoma"
  12.          Size            =   8.25
  13.          Charset         =   0
  14.          Weight          =   400
  15.          Underline       =   0   'False
  16.          Italic          =   0   'False
  17.          Strikethrough   =   0   'False
  18.       EndProperty
  19.       Height          =   1425
  20.       IntegralHeight  =   0   'False
  21.       Left            =   0
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   2535
  25.    End
  26. End
  27. Attribute VB_Name = "EventList"
  28. Attribute VB_GlobalNameSpace = False
  29. Attribute VB_Creatable = True
  30. Attribute VB_PredeclaredId = False
  31. Attribute VB_Exposed = False
  32. Option Explicit
  33. DefInt A-Z
  34.  
  35. Sub Add(Data$)
  36.  Static Count As Long
  37.  Count = Count + 1
  38.  lstItems.AddItem Count & vbTab & Data$
  39.  lstItems.ListIndex = lstItems.NewIndex
  40. End Sub
  41.  
  42.  
  43. Sub Clear()
  44.  lstItems.Clear
  45. End Sub
  46.  
  47.  
  48. Private Sub UserControl_InitProperties()
  49.  UserControl_Resize
  50. End Sub
  51.  
  52.  
  53. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  54.  UserControl_Resize
  55. End Sub
  56.  
  57.  
  58. Private Sub UserControl_Resize()
  59.  On Error Resume Next
  60.   lstItems.Move 0, 0, ScaleWidth, ScaleHeight
  61.  On Error GoTo 0
  62. End Sub
  63.  
  64.  
  65.