home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / datalist / datalist.exe / %MAINDIR% / SAMPLES / Sample5 / FORM1.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1998-03-09  |  5.9 KB  |  160 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4800
  5.    ClientLeft      =   1530
  6.    ClientTop       =   2175
  7.    ClientWidth     =   6000
  8.    Height          =   5250
  9.    Left            =   1470
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   4800
  13.    ScaleWidth      =   6000
  14.    Top             =   1785
  15.    Width           =   6120
  16.    Begin DataList.GTList GTList1 
  17.       Bindings        =   "Form1.frx":0000
  18.       Height          =   4335
  19.       Left            =   240
  20.       TabIndex        =   0
  21.       Top             =   240
  22.       Width           =   5535
  23.       _Version        =   65536
  24.       Virtual         =   -1  'True
  25.       DefColCaptionBorderStyle=   3
  26.       VirtualItemCount=   1000000
  27.       BeginProperty DefColCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  28.          name            =   "MS Sans Serif"
  29.          charset         =   0
  30.          weight          =   400
  31.          size            =   8.25
  32.          underline       =   0   'False
  33.          italic          =   0   'False
  34.          strikethrough   =   0   'False
  35.       EndProperty
  36.       BeginProperty DefFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  37.          name            =   "MS Sans Serif"
  38.          charset         =   0
  39.          weight          =   400
  40.          size            =   8.25
  41.          underline       =   0   'False
  42.          italic          =   0   'False
  43.          strikethrough   =   0   'False
  44.       EndProperty
  45.       BeginProperty ScrollTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  46.          name            =   "MS Sans Serif"
  47.          charset         =   0
  48.          weight          =   400
  49.          size            =   8.25
  50.          underline       =   0   'False
  51.          italic          =   0   'False
  52.          strikethrough   =   0   'False
  53.       EndProperty
  54.       BeginProperty ExtendTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          name            =   "MS Sans Serif"
  56.          charset         =   0
  57.          weight          =   400
  58.          size            =   8.25
  59.          underline       =   0   'False
  60.          italic          =   0   'False
  61.          strikethrough   =   0   'False
  62.       EndProperty
  63.       CDs.Count       =   3
  64.       CDs.CD(0).SubItemSource=   0
  65.       CDs.CD(0).SubColumn=   7
  66.       CDs.CD(0).WordWrap=   0
  67.       CDs.CD(0).CaptionWordWrap=   0
  68.       CDs.CD(0).FontDefined=   -1  'True
  69.       BeginProperty CDs.CD(0).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.          name            =   "MS Sans Serif"
  71.          charset         =   0
  72.          weight          =   400
  73.          size            =   8.25
  74.          underline       =   0   'False
  75.          italic          =   0   'False
  76.          strikethrough   =   0   'False
  77.       EndProperty
  78.       CDs.CD(0).CaptionFontDefined=   -1  'True
  79.       BeginProperty CDs.CD(0).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  80.          name            =   "MS Sans Serif"
  81.          charset         =   0
  82.          weight          =   400
  83.          size            =   8.25
  84.          underline       =   0   'False
  85.          italic          =   0   'False
  86.          strikethrough   =   0   'False
  87.       EndProperty
  88.       CDs.CD(0).Width =   2646
  89.       CDs.CD(0).Caption=   "1st Number"
  90.       CDs.CD(0).Key   =   ""
  91.       CDs.CD(0).DataField=   "1st Number"
  92.       CDs.CD(1).SubItemSource=   1
  93.       CDs.CD(1).SubColumn=   4
  94.       CDs.CD(1).WordWrap=   0
  95.       CDs.CD(1).CaptionWordWrap=   0
  96.       CDs.CD(1).FontDefined=   -1  'True
  97.       BeginProperty CDs.CD(1).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  98.          name            =   "MS Sans Serif"
  99.          charset         =   0
  100.          weight          =   400
  101.          size            =   8.25
  102.          underline       =   0   'False
  103.          italic          =   0   'False
  104.          strikethrough   =   0   'False
  105.       EndProperty
  106.       CDs.CD(1).CaptionFontDefined=   -1  'True
  107.       BeginProperty CDs.CD(1).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  108.          name            =   "MS Sans Serif"
  109.          charset         =   0
  110.          weight          =   400
  111.          size            =   8.25
  112.          underline       =   0   'False
  113.          italic          =   0   'False
  114.          strikethrough   =   0   'False
  115.       EndProperty
  116.       CDs.CD(1).Width =   2646
  117.       CDs.CD(1).Caption=   "2nd Number"
  118.       CDs.CD(1).Key   =   ""
  119.       CDs.CD(1).DataField=   "2nd Number"
  120.       CDs.CD(2).SubItemSource=   2
  121.       CDs.CD(2).WordWrap=   0
  122.       CDs.CD(2).CaptionWordWrap=   0
  123.       CDs.CD(2).FontDefined=   -1  'True
  124.       BeginProperty CDs.CD(2).Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  125.          name            =   "MS Sans Serif"
  126.          charset         =   0
  127.          weight          =   400
  128.          size            =   8.25
  129.          underline       =   0   'False
  130.          italic          =   0   'False
  131.          strikethrough   =   0   'False
  132.       EndProperty
  133.       CDs.CD(2).CaptionFontDefined=   -1  'True
  134.       BeginProperty CDs.CD(2).CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  135.          name            =   "MS Sans Serif"
  136.          charset         =   0
  137.          weight          =   400
  138.          size            =   8.25
  139.          underline       =   0   'False
  140.          italic          =   0   'False
  141.          strikethrough   =   0   'False
  142.       EndProperty
  143.       CDs.CD(2).Width =   2646
  144.       CDs.CD(2).Caption=   "Total"
  145.       CDs.CD(2).Key   =   ""
  146.       CDs.CD(2).DataField=   "Total"
  147.       LImgs.Count     =   1
  148.       _ExtentX        =   9763
  149.       _ExtentY        =   7646
  150.       _StockProps     =   81
  151.    End
  152. Attribute VB_Name = "Form1"
  153. Attribute VB_Creatable = False
  154. Attribute VB_Exposed = False
  155. Private Sub GTList1_ListItemDataRequest(ListItem As Object, ByVal Index As Long)
  156.     ListItem.SubItems(0).Text = Str$(Index)
  157.     ListItem.SubItems(1).Text = Str$(7)
  158.     ListItem.SubItems(2).Text = Str$(Index * 7)
  159. End Sub
  160.