home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / TLSTVBX2 / TLSTVBX2.ZIP / FORM1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-06  |  3.5 KB  |  114 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3960
  6.    ClientLeft      =   1125
  7.    ClientTop       =   2355
  8.    ClientWidth     =   7800
  9.    Height          =   4365
  10.    Left            =   1065
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   264
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   520
  15.    Top             =   2010
  16.    Width           =   7920
  17.    Begin CommandButton cmd 
  18.       Caption         =   "GO"
  19.       Height          =   345
  20.       Index           =   1
  21.       Left            =   6600
  22.       TabIndex        =   4
  23.       Top             =   990
  24.       Width           =   1020
  25.    End
  26.    Begin PictureBox pic 
  27.       AutoRedraw      =   -1  'True
  28.       AutoSize        =   -1  'True
  29.       BorderStyle     =   0  'None
  30.       Height          =   195
  31.       Left            =   285
  32.       Picture         =   FORM1.FRX:0000
  33.       ScaleHeight     =   13
  34.       ScaleMode       =   3  'Pixel
  35.       ScaleWidth      =   18
  36.       TabIndex        =   3
  37.       Top             =   225
  38.       Width           =   270
  39.    End
  40.    Begin CommandButton cmd 
  41.       Caption         =   "Quit"
  42.       Height          =   345
  43.       Index           =   0
  44.       Left            =   6600
  45.       TabIndex        =   1
  46.       Top             =   570
  47.       Width           =   1020
  48.    End
  49.    Begin TListBox lst 
  50.       BackColor       =   &H00C0C0C0&
  51.       FontBold        =   0   'False
  52.       FontItalic      =   0   'False
  53.       FontName        =   "MS Sans Serif"
  54.       FontSize        =   9.75
  55.       FontStrikethru  =   0   'False
  56.       FontUnderline   =   0   'False
  57.       ForeColor       =   &H00000000&
  58.       Height          =   3120
  59.       Left            =   240
  60.       MultiSelect     =   2  'Extended
  61.       TabIndex        =   0
  62.       Top             =   585
  63.       TransparentBitmap=   -1  'True
  64.       Width           =   6120
  65.    End
  66.    Begin Label lbl 
  67.       AutoSize        =   -1  'True
  68.       BackStyle       =   0  'Transparent
  69.       Caption         =   "Column 0"
  70.       FontBold        =   -1  'True
  71.       FontItalic      =   0   'False
  72.       FontName        =   "MS Sans Serif"
  73.       FontSize        =   9.75
  74.       FontStrikethru  =   0   'False
  75.       FontUnderline   =   0   'False
  76.       Height          =   240
  77.       Index           =   0
  78.       Left            =   630
  79.       TabIndex        =   2
  80.       Top             =   180
  81.       Width           =   960
  82.    End
  83.    DefInt A-Z
  84. Sub cmd_Click (index As Integer)
  85.    If index = 0 Then
  86.       Unload Me
  87.       Exit Sub
  88.       End If
  89.    Dim rc As rect, lDum As Long
  90.    lst.ItemForeColor(4) = QBColor(4)
  91.    'lst.Columns = 2
  92. End Sub
  93. Sub Form_Load ()
  94.    ' You can have up to 10 tabstops, that is from 0 to 9
  95.    lst.TabStops(0) = 80
  96.    ' GTList offsets the bitmap 3 pixels from the left
  97.    ' and offsets the text 2 pixels from the right of
  98.    ' the bitmap.  Hence, we add 5 to set the label
  99.    lbl(0).Left = lst.TabStops(0) + lst.Left + pic.Width + 5
  100.    For x = 0 To screen.FontCount - 1
  101.       lst.AddItem "Item " & x & Chr(9) & screen.Fonts(x)
  102.       Next
  103.    pic.Picture = LoadPicture("bitmap2.bmp")
  104.    lst.ItemImage(0) = pic.Picture
  105.    lst.ItemForeColor(2) = QBColor(1)
  106.    For x = 1 To screen.FontCount - 1
  107.       lst.ItemImage(x) = pic.Picture
  108.       Next
  109.    lst.ListIndex = 0
  110.    'tlist1.AddItem "George Rallos"
  111.    'tlist1.AddItem "Rallos Torralba"
  112.    'tlist1.ListIndex = 0
  113. End Sub
  114.