home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / fstrip5.exe / %MAINDIR% / CollectionString.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  4.5 KB  |  138 lines
  1. VERSION 5.00
  2. Object = "{9973B72E-F1FF-4E96-AA76-225706910672}#3.0#0"; "FlatStrip5.ocx"
  3. Begin VB.Form frmCollectionString 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "CollectionString Property Demonstration"
  6.    ClientHeight    =   7170
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7875
  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.    Icon            =   "CollectionString.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   478
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   525
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.CommandButton cmdUpdate 
  28.       Caption         =   "&Update"
  29.       Height          =   330
  30.       Left            =   5265
  31.       TabIndex        =   4
  32.       Top             =   6615
  33.       Width           =   1140
  34.    End
  35.    Begin VB.TextBox txtData 
  36.       Height          =   1545
  37.       Left            =   180
  38.       MultiLine       =   -1  'True
  39.       ScrollBars      =   2  'Vertical
  40.       TabIndex        =   3
  41.       Top             =   4905
  42.       Width           =   7440
  43.    End
  44.    Begin VB.CommandButton cmdClose 
  45.       Cancel          =   -1  'True
  46.       Caption         =   "C&lose"
  47.       Default         =   -1  'True
  48.       Height          =   330
  49.       Left            =   6480
  50.       TabIndex        =   0
  51.       Top             =   6615
  52.       Width           =   1140
  53.    End
  54.    Begin FlatStripDemonstration.pucTextTip pucTextTip1 
  55.       Height          =   3120
  56.       Left            =   180
  57.       TabIndex        =   1
  58.       Top             =   900
  59.       Width           =   7440
  60.       _ExtentX        =   13123
  61.       _ExtentY        =   5503
  62.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  63.          Name            =   "Tahoma"
  64.          Size            =   8.25
  65.          Charset         =   0
  66.          Weight          =   400
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       Text            =   $"CollectionString.frx":014A
  72.    End
  73.    Begin FlatStripCtl.FlatStrip ftsDemo 
  74.       Height          =   285
  75.       Left            =   180
  76.       Top             =   4185
  77.       Width           =   7440
  78.       _ExtentX        =   13123
  79.       _ExtentY        =   503
  80.       ShowClientArea  =   0   'False
  81.       ActiveTab       =   1
  82.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  83.          Name            =   "Tahoma"
  84.          Size            =   8.25
  85.          Charset         =   0
  86.          Weight          =   400
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       TabCount        =   4
  92.       Tab1Caption     =   "FlatStrip"
  93.       Tab1Selected    =   -1  'True
  94.       Tab2Caption     =   "Demonstration"
  95.       Tab3Caption     =   "Sample"
  96.       Tab4Caption     =   "Tabs"
  97.    End
  98.    Begin VB.Label lblHdr 
  99.       AutoSize        =   -1  'True
  100.       Caption         =   "&CollectionString:"
  101.       Height          =   195
  102.       Left            =   180
  103.       TabIndex        =   2
  104.       Top             =   4680
  105.       Width           =   1170
  106.    End
  107.    Begin FlatStripDemonstration.pucLogoPane pucLogoPane1 
  108.       Align           =   1  'Align Top
  109.       Height          =   750
  110.       Left            =   0
  111.       Top             =   0
  112.       Width           =   7875
  113.       _ExtentX        =   13891
  114.       _ExtentY        =   1323
  115.       Picture         =   "CollectionString.frx":048A
  116.    End
  117. Attribute VB_Name = "frmCollectionString"
  118. Attribute VB_GlobalNameSpace = False
  119. Attribute VB_Creatable = False
  120. Attribute VB_PredeclaredId = True
  121. Attribute VB_Exposed = False
  122. Option Explicit
  123. Private Sub cmdClose_Click()
  124.     Unload Me
  125. End Sub
  126. Private Sub cmdUpdate_Click()
  127.     'set new collection data
  128.     ftsDemo.CollectionString = txtData.Text
  129.     'and retrieve new value
  130.     txtData.Text = ftsDemo.CollectionString
  131. End Sub
  132. Private Sub Form_Load()
  133.     txtData.Text = ftsDemo.CollectionString
  134. End Sub
  135. Private Sub ftsDemo_Change(ByVal PreviousTab As Long, FlatTab As FlatStripCtl.FlatTab)
  136.     txtData.Text = ftsDemo.CollectionString
  137. End Sub
  138.