home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / Demonstration.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  7.9 KB  |  236 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Ariad Interface Components version 1.2 Demonstration"
  6.    ClientHeight    =   4245
  7.    ClientLeft      =   825
  8.    ClientTop       =   1065
  9.    ClientWidth     =   7350
  10.    Icon            =   "Demonstration.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   283
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   490
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.ListBox lstControls 
  19.       BeginProperty Font 
  20.          Name            =   "Tahoma"
  21.          Size            =   8.25
  22.          Charset         =   0
  23.          Weight          =   400
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   3270
  29.       IntegralHeight  =   0   'False
  30.       ItemData        =   "Demonstration.frx":0E42
  31.       Left            =   135
  32.       List            =   "Demonstration.frx":0E76
  33.       Sorted          =   -1  'True
  34.       TabIndex        =   1
  35.       Top             =   315
  36.       Width           =   1680
  37.    End
  38.    Begin AIFCmp1.asxPowerButton btnAction 
  39.       Cancel          =   -1  'True
  40.       Height          =   420
  41.       Index           =   2
  42.       Left            =   5985
  43.       TabIndex        =   5
  44.       Top             =   3645
  45.       Width           =   1230
  46.       _ExtentX        =   2170
  47.       _ExtentY        =   741
  48.       Picture         =   "Demonstration.frx":0F31
  49.       Caption         =   "E&xit"
  50.       CaptionOffsetX  =   8
  51.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  52.          Name            =   "Tahoma"
  53.          Size            =   8.25
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       PictureAlignment=   3
  61.    End
  62.    Begin AIFCmp1.asxPowerButton btnAction 
  63.       Height          =   420
  64.       Index           =   1
  65.       Left            =   4725
  66.       TabIndex        =   4
  67.       Top             =   3645
  68.       Width           =   1230
  69.       _ExtentX        =   2170
  70.       _ExtentY        =   741
  71.       Picture         =   "Demonstration.frx":108B
  72.       Caption         =   "&About..."
  73.       CaptionOffsetX  =   8
  74.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  75.          Name            =   "Tahoma"
  76.          Size            =   8.25
  77.          Charset         =   0
  78.          Weight          =   400
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       PictureAlignment=   3
  84.    End
  85.    Begin AIFCmp1.asxPowerButton btnAction 
  86.       Default         =   -1  'True
  87.       Height          =   420
  88.       Index           =   0
  89.       Left            =   2565
  90.       TabIndex        =   3
  91.       Top             =   3645
  92.       Width           =   2130
  93.       _ExtentX        =   3757
  94.       _ExtentY        =   741
  95.       Picture         =   "Demonstration.frx":11E5
  96.       Caption         =   "&View Demonstration..."
  97.       CaptionOffsetX  =   8
  98.       Enabled         =   0   'False
  99.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  100.          Name            =   "Tahoma"
  101.          Size            =   8.25
  102.          Charset         =   0
  103.          Weight          =   400
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       PictureAlignment=   3
  109.    End
  110.    Begin AIFCmp1.asxFontLabel flbData 
  111.       Height          =   3030
  112.       Left            =   1935
  113.       TabIndex        =   2
  114.       Top             =   495
  115.       Width           =   5280
  116.       _ExtentX        =   9313
  117.       _ExtentY        =   5345
  118.       Caption         =   "Please select a control from the list displayed to the left"
  119.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  120.          Name            =   "Tahoma"
  121.          Size            =   8.25
  122.          Charset         =   0
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       WordWrap        =   -1  'True
  129.    End
  130.    Begin AIFCmp1.asxPanel pnlTitle 
  131.       Height          =   330
  132.       Left            =   1935
  133.       Top             =   90
  134.       Width           =   5280
  135.       _ExtentX        =   9313
  136.       _ExtentY        =   582
  137.       BorderStyle     =   0
  138.       Picture         =   "Demonstration.frx":133F
  139.       UseMaskColor    =   0   'False
  140.       BackColor       =   -2147483632
  141.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  142.          Name            =   "Arial"
  143.          Size            =   9.75
  144.          Charset         =   0
  145.          Weight          =   700
  146.          Underline       =   0   'False
  147.          Italic          =   0   'False
  148.          Strikethrough   =   0   'False
  149.       EndProperty
  150.       CaptionAlignment=   3
  151.       PictureAlignment=   5
  152.       PictureOffsetX  =   -5
  153.       CaptionOffsetX  =   5
  154.    End
  155.    Begin VB.Label lblHdr 
  156.       AutoSize        =   -1  'True
  157.       Caption         =   "&Controls:"
  158.       BeginProperty Font 
  159.          Name            =   "Tahoma"
  160.          Size            =   8.25
  161.          Charset         =   0
  162.          Weight          =   400
  163.          Underline       =   0   'False
  164.          Italic          =   0   'False
  165.          Strikethrough   =   0   'False
  166.       EndProperty
  167.       Height          =   195
  168.       Left            =   135
  169.       TabIndex        =   0
  170.       Top             =   90
  171.       Width           =   660
  172.    End
  173. Attribute VB_Name = "frmDemonstration"
  174. Attribute VB_GlobalNameSpace = False
  175. Attribute VB_Creatable = False
  176. Attribute VB_PredeclaredId = True
  177. Attribute VB_Exposed = False
  178. Option Explicit
  179. DefInt A-Z
  180. Private Sub btnAction_Click(Index As Integer)
  181.  Select Case Index
  182.   Case 0: GoSub ShowDemos
  183.   Case 1: flbData.About
  184.   Case 2: Unload Me
  185.  End Select
  186. Exit Sub
  187. ShowDemos:
  188.  Select Case lstControls
  189.   Case "Bars": frmBarsDemonstration.Show 1
  190.   Case "Button Strip": frmButtonStripDemonstration.Show 1
  191.   Case "Power Button", "Tool Button": frmPowerButtonDemonstration.Show 1
  192.   Case "Font Label": frmFontLabelDemonstration.Show 1
  193.   Case "Generic Container": frmGenericContainerDemonstration.Show 1
  194.   Case "Label": frmLabelDemonstration.Show 1
  195.   Case "Line Header": frmLineHeaderExDemonstration.Show 1
  196.   Case "Menu Event": frmMenuEventDemonstration.Show 1
  197.   Case "Pager": frmPagerDemonstration.Show 1
  198.   Case "Panel": frmPanelDemonstration.Show 1
  199.   Case "Power Banner": frmPowerBannerDemonstration.Show 1
  200.   Case "Status Bar": frmStatusBarDemonstration.Show 1
  201.   Case "System Button": frmSysButtonDemonstration.Show 1
  202.   Case "Toolbar": frmToolbarDemonstration.Show 1
  203.   Case "Toolbox": frmToolboxDemonstration.Show 1
  204.  End Select
  205. Return
  206. End Sub
  207. Private Sub Form_Unload(Cancel As Integer)
  208.  Set PropPage = Nothing
  209. End Sub
  210. Private Sub lstControls_Click()
  211.  Dim D$
  212.  pnlTitle.Caption = lstControls
  213.  Select Case lstControls
  214.   Case "Bars": D$ = BAR$
  215.   Case "Button Strip": D$ = BSTRIP$
  216.   Case "Power Button", "Tool Button": D$ = PBUTTON$
  217.   Case "Font Label": D$ = FLABEL$
  218.   Case "Generic Container": D$ = GENCONT$
  219.   Case "Label": D$ = LABEL$
  220.   Case "Line Header": D$ = LINEHDR$
  221.   Case "Menu Event": D$ = MENUEV$
  222.   Case "Pager": D$ = PAGER$
  223.   Case "Panel": D$ = PANEL$
  224.   Case "Power Banner": D$ = PBANNER$
  225.   Case "Status Bar": D$ = STATUSBAR$
  226.   Case "System Button": D$ = SYSBTN$
  227.   Case "Toolbar": D$ = TOOLBAR$
  228.   Case "Toolbox": D$ = TOOLBOX$
  229.  End Select
  230.  flbData.Caption = D$
  231.  btnAction(0).Enabled = -1
  232. End Sub
  233. Private Sub lstControls_DblClick()
  234.  btnAction_Click 0
  235. End Sub
  236.