home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / msmega.zip / BMPLSTSA.ZIP / CHECKLST.FRM < prev    next >
Text File  |  1995-09-21  |  3KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2910
  6.    ClientLeft      =   1935
  7.    ClientTop       =   1935
  8.    ClientWidth     =   4230
  9.    Height          =   3315
  10.    Left            =   1875
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2910
  13.    ScaleWidth      =   4230
  14.    Top             =   1590
  15.    Width           =   4350
  16.    Begin PictureBox picUnchecked 
  17.       AutoSize        =   -1  'True
  18.       BorderStyle     =   0  'None
  19.       Height          =   165
  20.       Left            =   480
  21.       Picture         =   CHECKLST.FRX:0000
  22.       ScaleHeight     =   165
  23.       ScaleWidth      =   165
  24.       TabIndex        =   2
  25.       Top             =   2760
  26.       Visible         =   0   'False
  27.       Width           =   165
  28.    End
  29.    Begin PictureBox picChecked 
  30.       AutoSize        =   -1  'True
  31.       BorderStyle     =   0  'None
  32.       Height          =   165
  33.       Left            =   240
  34.       Picture         =   CHECKLST.FRX:00D2
  35.       ScaleHeight     =   165
  36.       ScaleWidth      =   165
  37.       TabIndex        =   1
  38.       Top             =   2760
  39.       Visible         =   0   'False
  40.       Width           =   165
  41.    End
  42.    Begin BmpList BmpList1 
  43.       BackColor       =   &H00FFFFFF&
  44.       BlinkInterval   =   500
  45.       BorderEffect    =   0  'None
  46.       BorderStyle     =   1  'Fixed Single
  47.       BottomMargin    =   60
  48.       ColAlignment    =   CHECKLST.FRX:01A4
  49.       ColDelim        =   "    "
  50.       ColWidth        =   CHECKLST.FRX:01E6
  51.       DividerEffect   =   0  'None
  52.       Dividers        =   0  'None
  53.       FindCol         =   -1
  54.       Height          =   2415
  55.       HScroll         =   -1  'True
  56.       ItemHeight      =   600
  57.       ItemPlacement   =   2  'Left
  58.       ItemWidth       =   1800
  59.       Left            =   240
  60.       LeftMargin      =   120
  61.       MultiColumn     =   0   'False
  62.       MultiSelect     =   0  'None
  63.       NumColumns      =   0
  64.       SortCol         =   ""
  65.       Sorted          =   0   'False
  66.       TabIndex        =   0
  67.       Top             =   240
  68.       TopMargin       =   60
  69.       ValueCol        =   -1
  70.       VertGap         =   30
  71.       Width           =   3750
  72.    End
  73. End
  74. Option Explicit
  75.  
  76. Sub BmpList1_Click ()
  77.     If BmpList1.ItemData(BmpList1.ListIndex) Then
  78.         BmpList1.Picture(BmpList1.ListIndex) = picUnchecked.Picture
  79.     Else
  80.         BmpList1.Picture(BmpList1.ListIndex) = picChecked.Picture
  81.     End If
  82.  
  83.     BmpList1.ItemData(BmpList1.ListIndex) = Not BmpList1.ItemData(BmpList1.ListIndex)
  84. End Sub
  85.  
  86. Sub Form_Load ()
  87.     BmpList1.AddItem "Install Software"
  88.     BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  89.     BmpList1.ItemData(BmpList1.NewIndex) = False
  90.  
  91.     BmpList1.AddItem "Install Sample Files"
  92.     BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  93.     BmpList1.ItemData(BmpList1.NewIndex) = False
  94.  
  95.     BmpList1.AddItem "Install Clip Art Files"
  96.     BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  97.     BmpList1.ItemData(BmpList1.NewIndex) = False
  98.  
  99.     BmpList1.AddItem "Install Sound Files"
  100.     BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  101.     BmpList1.ItemData(BmpList1.NewIndex) = False
  102.  
  103.     BmpList1.AddItem "Read Version History"
  104.     BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  105.     BmpList1.ItemData(BmpList1.NewIndex) = False
  106. End Sub
  107.  
  108.