home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / bmp_list / checklst.frm < prev    next >
Text File  |  1994-07-07  |  3KB  |  99 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.       BorderEffect    =   0  'None
  45.       BorderStyle     =   1  'Fixed Single
  46.       BottomMargin    =   60
  47.       ColDelim        =   "    "
  48.       Height          =   2415
  49.       ItemHeight      =   600
  50.       ItemPlacement   =   2  'Left
  51.       ItemWidth       =   1800
  52.       Left            =   240
  53.       LeftMargin      =   120
  54.       MultiColumn     =   0   'False
  55.       MultiSelect     =   0  'None
  56.       NumColumns      =   0
  57.       Sorted          =   0   'False
  58.       TabIndex        =   0
  59.       Top             =   240
  60.       TopMargin       =   60
  61.       VertGap         =   30
  62.       Width           =   3750
  63.    End
  64. End
  65. Option Explicit
  66.  
  67. Sub BmpList1_Click ()
  68.     If BmpList1.ItemData(BmpList1.ListIndex) Then
  69.         BmpList1.Picture(BmpList1.ListIndex) = picUnchecked.Picture
  70.     Else
  71.         BmpList1.Picture(BmpList1.ListIndex) = picChecked.Picture
  72.     End If
  73.  
  74.     BmpList1.ItemData(BmpList1.ListIndex) = Not BmpList1.ItemData(BmpList1.ListIndex)
  75. End Sub
  76.  
  77. Sub Form_Load ()
  78.     BmpList1.AddItem "Install Software"
  79.     BmpList1.Picture(0) = picUnchecked.Picture
  80.     BmpList1.ItemData(0) = False
  81.  
  82.     BmpList1.AddItem "Install Sample Files"
  83.     BmpList1.Picture(1) = picUnchecked.Picture
  84.     BmpList1.ItemData(1) = False
  85.  
  86.     BmpList1.AddItem "Install Clip Art Files"
  87.     BmpList1.Picture(2) = picUnchecked.Picture
  88.     BmpList1.ItemData(2) = False
  89.  
  90.     BmpList1.AddItem "Install Sound Files"
  91.     BmpList1.Picture(3) = picUnchecked.Picture
  92.     BmpList1.ItemData(3) = False
  93.  
  94.     BmpList1.AddItem "Read Version History"
  95.     BmpList1.Picture(4) = picUnchecked.Picture
  96.     BmpList1.ItemData(4) = False
  97. End Sub
  98.  
  99.