home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / Bars.frm (.txt) next >
Encoding:
Visual Basic Form  |  2002-04-18  |  8.6 KB  |  262 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmBarsDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Bars Demonstration"
  6.    ClientHeight    =   4965
  7.    ClientLeft      =   2055
  8.    ClientTop       =   1545
  9.    ClientWidth     =   5595
  10.    Icon            =   "Bars.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   331
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   373
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin AriadIFceCompTest.EventList lstEvents 
  20.       Height          =   1230
  21.       Left            =   135
  22.       TabIndex        =   8
  23.       Top             =   3600
  24.       Width           =   5325
  25.       _ExtentX        =   9393
  26.       _ExtentY        =   2170
  27.    End
  28.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  29.       Height          =   30
  30.       Left            =   135
  31.       TabIndex        =   7
  32.       Top             =   3015
  33.       Width           =   5325
  34.       _ExtentX        =   9393
  35.       _ExtentY        =   53
  36.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  37.          Name            =   "Tahoma"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Caption         =   ""
  46.       TextColor       =   0
  47.    End
  48.    Begin VB.CommandButton cmdColor 
  49.       Caption         =   "&Colours..."
  50.       BeginProperty Font 
  51.          Name            =   "Tahoma"
  52.          Size            =   8.25
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   375
  60.       Left            =   1575
  61.       TabIndex        =   4
  62.       Top             =   1485
  63.       Width           =   1185
  64.    End
  65.    Begin VB.ComboBox cboBackStyle 
  66.       BeginProperty Font 
  67.          Name            =   "Tahoma"
  68.          Size            =   8.25
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   315
  76.       ItemData        =   "Bars.frx":0E42
  77.       Left            =   1575
  78.       List            =   "Bars.frx":0E4C
  79.       Style           =   2  'Dropdown List
  80.       TabIndex        =   3
  81.       Top             =   990
  82.       Width           =   1950
  83.    End
  84.    Begin VB.ComboBox cboOrientation 
  85.       BeginProperty Font 
  86.          Name            =   "Tahoma"
  87.          Size            =   8.25
  88.          Charset         =   0
  89.          Weight          =   400
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   315
  95.       ItemData        =   "Bars.frx":0E65
  96.       Left            =   1575
  97.       List            =   "Bars.frx":0E6F
  98.       Style           =   2  'Dropdown List
  99.       TabIndex        =   1
  100.       Top             =   315
  101.       Width           =   1950
  102.    End
  103.    Begin AIFCmp1.asxBars barWierd 
  104.       Height          =   2670
  105.       Left            =   4410
  106.       Top             =   135
  107.       Width           =   1005
  108.       _ExtentX        =   1773
  109.       _ExtentY        =   4710
  110.       BackColor       =   12583104
  111.       HighlightColor  =   16744703
  112.       ShadowColor     =   8388736
  113.    End
  114.    Begin AIFCmp1.asxBars barDemo 
  115.       Height          =   2760
  116.       Left            =   135
  117.       Top             =   90
  118.       Width           =   1275
  119.       _ExtentX        =   2249
  120.       _ExtentY        =   4868
  121.    End
  122.    Begin AIFCmp1.asxPowerButton btnAction 
  123.       Cancel          =   -1  'True
  124.       Default         =   -1  'True
  125.       Height          =   420
  126.       Index           =   2
  127.       Left            =   4230
  128.       TabIndex        =   5
  129.       Top             =   3105
  130.       Width           =   1230
  131.       _ExtentX        =   2170
  132.       _ExtentY        =   741
  133.       Picture         =   "Bars.frx":0E89
  134.       Caption         =   "C&lose"
  135.       CaptionOffsetX  =   8
  136.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  137.          Name            =   "Tahoma"
  138.          Size            =   8.25
  139.          Charset         =   0
  140.          Weight          =   400
  141.          Underline       =   0   'False
  142.          Italic          =   0   'False
  143.          Strikethrough   =   0   'False
  144.       EndProperty
  145.       PictureAlignment=   3
  146.    End
  147.    Begin AIFCmp1.asxPowerButton btnAction 
  148.       Height          =   420
  149.       Index           =   1
  150.       Left            =   2970
  151.       TabIndex        =   6
  152.       Top             =   3105
  153.       Width           =   1230
  154.       _ExtentX        =   2170
  155.       _ExtentY        =   741
  156.       Picture         =   "Bars.frx":0FE3
  157.       Caption         =   "&About..."
  158.       CaptionOffsetX  =   8
  159.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  160.          Name            =   "Tahoma"
  161.          Size            =   8.25
  162.          Charset         =   0
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       PictureAlignment=   3
  169.    End
  170.    Begin VB.Label lblHdr 
  171.       AutoSize        =   -1  'True
  172.       Caption         =   "&BackStyle:"
  173.       BeginProperty Font 
  174.          Name            =   "Tahoma"
  175.          Size            =   8.25
  176.          Charset         =   0
  177.          Weight          =   400
  178.          Underline       =   0   'False
  179.          Italic          =   0   'False
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       Height          =   195
  183.       Index           =   1
  184.       Left            =   1575
  185.       TabIndex        =   2
  186.       Top             =   765
  187.       Width           =   750
  188.    End
  189.    Begin VB.Label lblHdr 
  190.       AutoSize        =   -1  'True
  191.       Caption         =   "&Orientation:"
  192.       BeginProperty Font 
  193.          Name            =   "Tahoma"
  194.          Size            =   8.25
  195.          Charset         =   0
  196.          Weight          =   400
  197.          Underline       =   0   'False
  198.          Italic          =   0   'False
  199.          Strikethrough   =   0   'False
  200.       EndProperty
  201.       Height          =   195
  202.       Index           =   0
  203.       Left            =   1575
  204.       TabIndex        =   0
  205.       Top             =   90
  206.       Width           =   870
  207.    End
  208.    Begin VB.Shape Shape1 
  209.       BackColor       =   &H00C000C0&
  210.       BackStyle       =   1  'Opaque
  211.       BorderStyle     =   0  'Transparent
  212.       FillColor       =   &H00800080&
  213.       FillStyle       =   7  'Diagonal Cross
  214.       Height          =   2805
  215.       Left            =   4320
  216.       Top             =   90
  217.       Width           =   1185
  218.    End
  219. Attribute VB_Name = "frmBarsDemonstration"
  220. Attribute VB_GlobalNameSpace = False
  221. Attribute VB_Creatable = False
  222. Attribute VB_PredeclaredId = True
  223. Attribute VB_Exposed = False
  224. Option Explicit
  225. DefInt A-Z
  226. Private Sub barDemo_Click()
  227.  lstEvents.Add "barDemo_Click()"
  228. End Sub
  229. Private Sub barDemo_DblClick()
  230.  lstEvents.Add "barDemo_DblClick()"
  231. End Sub
  232. Private Sub barDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  233.  lstEvents.Add "barDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  234. End Sub
  235. Private Sub barDemo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  236.  'lstEvents.Add "barDemo_MouseMove(" & Button & "," & Shift & "," & X & "," & Y & ")"
  237. End Sub
  238. Private Sub barDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  239.  lstEvents.Add "barDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  240. End Sub
  241. Private Sub btnAction_Click(Index As Integer)
  242.  Select Case Index
  243.   Case 1: barDemo.About
  244.   Case 2: Unload Me
  245.  End Select
  246. End Sub
  247. Private Sub cboBackStyle_Click()
  248.  barDemo.BackStyle = cboBackStyle.ListIndex
  249.  barWierd.BackStyle = cboBackStyle.ListIndex
  250. End Sub
  251. Private Sub cboOrientation_Click()
  252.  barDemo.Orientation = cboOrientation.ListIndex
  253.  barWierd.Orientation = cboOrientation.ListIndex
  254. End Sub
  255. Private Sub cmdColor_Click()
  256.  PropPage.ShowPicker hWnd, "Object Colour", barDemo, ppickColor
  257. End Sub
  258. Private Sub Form_Load()
  259.  cboOrientation.ListIndex = ifcoHorizontal
  260.  cboBackStyle.ListIndex = ifbsOpaque
  261. End Sub
  262.