home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / cmdbtnx5.msi / Cabs.w1.cab / Menu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-11-23  |  13.2 KB  |  374 lines
  1. VERSION 5.00
  2. Object = "{20976770-692B-4564-84B5-CCC822AA2B7A}#1.4#0"; "CmdBtnX5.ocx"
  3. Begin VB.Form frmMenu 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "CommandButtonX 5 Demonstration Program"
  6.    ClientHeight    =   6540
  7.    ClientLeft      =   1950
  8.    ClientTop       =   1545
  9.    ClientWidth     =   6360
  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            =   "Menu.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   436
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   424
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.Frame Frame1 
  28.       Caption         =   "Available Demonstrations:"
  29.       BeginProperty Font 
  30.          Name            =   "Tahoma"
  31.          Size            =   8.25
  32.          Charset         =   0
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   4155
  39.       Left            =   1710
  40.       TabIndex        =   2
  41.       Top             =   1260
  42.       Width           =   4500
  43.       Begin CommandButtonXCtl.CommandButtonX cmdDemo 
  44.          Height          =   390
  45.          Index           =   1
  46.          Left            =   270
  47.          TabIndex        =   3
  48.          Top             =   540
  49.          Width           =   1500
  50.          _ExtentX        =   2646
  51.          _ExtentY        =   688
  52.          DropDownPicture =   "Menu.frx":014A
  53.          CaptionOffsetX  =   8
  54.          PictureAlignment=   3
  55.          Caption         =   "&General"
  56.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  57.             Name            =   "Tahoma"
  58.             Size            =   8.25
  59.             Charset         =   0
  60.             Weight          =   400
  61.             Underline       =   0   'False
  62.             Italic          =   0   'False
  63.             Strikethrough   =   0   'False
  64.          EndProperty
  65.          Picture         =   "Menu.frx":01CC
  66.       End
  67.       Begin CommandButtonXCtl.CommandButtonX cmdDemo 
  68.          Height          =   390
  69.          Index           =   2
  70.          Left            =   270
  71.          TabIndex        =   5
  72.          Top             =   1125
  73.          Width           =   1500
  74.          _ExtentX        =   2646
  75.          _ExtentY        =   688
  76.          DropDownPicture =   "Menu.frx":0766
  77.          CaptionOffsetX  =   8
  78.          PictureAlignment=   3
  79.          Caption         =   "&Colors"
  80.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  81.             Name            =   "Tahoma"
  82.             Size            =   8.25
  83.             Charset         =   0
  84.             Weight          =   400
  85.             Underline       =   0   'False
  86.             Italic          =   0   'False
  87.             Strikethrough   =   0   'False
  88.          EndProperty
  89.          Picture         =   "Menu.frx":07E8
  90.       End
  91.       Begin CommandButtonXCtl.CommandButtonX cmdDemo 
  92.          Height          =   390
  93.          Index           =   3
  94.          Left            =   270
  95.          TabIndex        =   7
  96.          Top             =   1710
  97.          Width           =   1500
  98.          _ExtentX        =   2646
  99.          _ExtentY        =   688
  100.          DropDownPicture =   "Menu.frx":0D82
  101.          CaptionOffsetX  =   8
  102.          PictureAlignment=   3
  103.          Caption         =   "&Pictures"
  104.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  105.             Name            =   "Tahoma"
  106.             Size            =   8.25
  107.             Charset         =   0
  108.             Weight          =   400
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          Picture         =   "Menu.frx":0E04
  114.       End
  115.       Begin CommandButtonXCtl.CommandButtonX cmdDemo 
  116.          Height          =   390
  117.          Index           =   4
  118.          Left            =   270
  119.          TabIndex        =   9
  120.          Top             =   2295
  121.          Width           =   1500
  122.          _ExtentX        =   2646
  123.          _ExtentY        =   688
  124.          DropDownPicture =   "Menu.frx":139E
  125.          CaptionOffsetX  =   8
  126.          PictureAlignment=   3
  127.          Caption         =   "&Effects"
  128.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  129.             Name            =   "Tahoma"
  130.             Size            =   8.25
  131.             Charset         =   0
  132.             Weight          =   400
  133.             Underline       =   0   'False
  134.             Italic          =   0   'False
  135.             Strikethrough   =   0   'False
  136.          EndProperty
  137.          Picture         =   "Menu.frx":1420
  138.       End
  139.       Begin CommandButtonXCtl.CommandButtonX cmdDemo 
  140.          Height          =   390
  141.          Index           =   5
  142.          Left            =   270
  143.          TabIndex        =   11
  144.          Top             =   2880
  145.          Width           =   1500
  146.          _ExtentX        =   2646
  147.          _ExtentY        =   688
  148.          DropDownPicture =   "Menu.frx":157A
  149.          CaptionOffsetX  =   8
  150.          PictureAlignment=   3
  151.          Caption         =   "&Drag and Drop"
  152.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  153.             Name            =   "Tahoma"
  154.             Size            =   8.25
  155.             Charset         =   0
  156.             Weight          =   400
  157.             Underline       =   0   'False
  158.             Italic          =   0   'False
  159.             Strikethrough   =   0   'False
  160.          EndProperty
  161.          Picture         =   "Menu.frx":15FC
  162.       End
  163.       Begin CommandButtonXCtl.CommandButtonX cmdDemo 
  164.          Height          =   390
  165.          Index           =   7
  166.          Left            =   270
  167.          TabIndex        =   13
  168.          Top             =   3465
  169.          Width           =   1500
  170.          _ExtentX        =   2646
  171.          _ExtentY        =   688
  172.          DropDownPicture =   "Menu.frx":1756
  173.          CaptionOffsetX  =   8
  174.          MaskColor       =   -2147483633
  175.          PictureAlignment=   3
  176.          Caption         =   "D&rop Downs"
  177.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  178.             Name            =   "Tahoma"
  179.             Size            =   8.25
  180.             Charset         =   0
  181.             Weight          =   400
  182.             Underline       =   0   'False
  183.             Italic          =   0   'False
  184.             Strikethrough   =   0   'False
  185.          EndProperty
  186.          Picture         =   "Menu.frx":17D8
  187.       End
  188.       Begin VB.Label lblDemo 
  189.          AutoSize        =   -1  'True
  190.          Caption         =   "Your buttons can act as drop downs with the change of a value"
  191.          Height          =   390
  192.          Index           =   5
  193.          Left            =   1890
  194.          TabIndex        =   14
  195.          Top             =   3465
  196.          Width           =   2490
  197.          WordWrap        =   -1  'True
  198.       End
  199.       Begin VB.Label lblDemo 
  200.          AutoSize        =   -1  'True
  201.          Caption         =   "CommandButtonX now supports OLE Drag and Drop!"
  202.          Height          =   390
  203.          Index           =   4
  204.          Left            =   1890
  205.          TabIndex        =   12
  206.          Top             =   2880
  207.          Width           =   2490
  208.          WordWrap        =   -1  'True
  209.       End
  210.       Begin VB.Label lblDemo 
  211.          AutoSize        =   -1  'True
  212.          Caption         =   "Miscellaneous tips for creating hover or hyperlink effects"
  213.          Height          =   390
  214.          Index           =   3
  215.          Left            =   1890
  216.          TabIndex        =   10
  217.          Top             =   2295
  218.          Width           =   2505
  219.          WordWrap        =   -1  'True
  220.       End
  221.       Begin VB.Label lblDemo 
  222.          AutoSize        =   -1  'True
  223.          Caption         =   "Several different picture properties allow custom looks"
  224.          Height          =   390
  225.          Index           =   2
  226.          Left            =   1890
  227.          TabIndex        =   8
  228.          Top             =   1710
  229.          Width           =   2490
  230.          WordWrap        =   -1  'True
  231.       End
  232.       Begin VB.Label lblDemo 
  233.          AutoSize        =   -1  'True
  234.          Caption         =   "Need to use non-standard colors? It's easy, as this demo shows!"
  235.          Height          =   390
  236.          Index           =   1
  237.          Left            =   1890
  238.          TabIndex        =   6
  239.          Top             =   1125
  240.          Width           =   2490
  241.          WordWrap        =   -1  'True
  242.       End
  243.       Begin VB.Label lblDemo 
  244.          AutoSize        =   -1  'True
  245.          Caption         =   "A generalised look at the features supported by CommandButtonX"
  246.          Height          =   390
  247.          Index           =   0
  248.          Left            =   1890
  249.          TabIndex        =   4
  250.          Top             =   540
  251.          Width           =   2490
  252.          WordWrap        =   -1  'True
  253.       End
  254.    End
  255.    Begin CommandButtonXCtl.CommandButtonX cmdDemo 
  256.       Cancel          =   -1  'True
  257.       Default         =   -1  'True
  258.       Height          =   390
  259.       Index           =   0
  260.       Left            =   4680
  261.       TabIndex        =   16
  262.       Top             =   5625
  263.       Width           =   1500
  264.       _ExtentX        =   2646
  265.       _ExtentY        =   688
  266.       DropDownPicture =   "Menu.frx":1D72
  267.       CaptionOffsetX  =   8
  268.       PictureAlignment=   3
  269.       Caption         =   "E&xit"
  270.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  271.          Name            =   "Tahoma"
  272.          Size            =   8.25
  273.          Charset         =   0
  274.          Weight          =   400
  275.          Underline       =   0   'False
  276.          Italic          =   0   'False
  277.          Strikethrough   =   0   'False
  278.       EndProperty
  279.       Picture         =   "Menu.frx":1DF4
  280.    End
  281.    Begin CommandButtonXCtl.CommandButtonX cmdDemo 
  282.       Height          =   390
  283.       Index           =   6
  284.       Left            =   3150
  285.       TabIndex        =   15
  286.       Top             =   5625
  287.       Width           =   1500
  288.       _ExtentX        =   2646
  289.       _ExtentY        =   688
  290.       DropDownPicture =   "Menu.frx":1F4E
  291.       CaptionOffsetX  =   8
  292.       MaskColor       =   -2147483633
  293.       PictureAlignment=   3
  294.       Caption         =   "&About..."
  295.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  296.          Name            =   "Tahoma"
  297.          Size            =   8.25
  298.          Charset         =   0
  299.          Weight          =   400
  300.          Underline       =   0   'False
  301.          Italic          =   0   'False
  302.          Strikethrough   =   0   'False
  303.       EndProperty
  304.       Picture         =   "Menu.frx":1FD0
  305.    End
  306.    Begin CommandButtonXDemo.pucLogoPane LogoPane1 
  307.       Align           =   3  'Align Left
  308.       Height          =   6540
  309.       Left            =   0
  310.       Top             =   0
  311.       Width           =   1545
  312.       _ExtentX        =   2725
  313.       _ExtentY        =   11536
  314.       Picture         =   "Menu.frx":212A
  315.    End
  316.    Begin VB.Label lblHdr 
  317.       AutoSize        =   -1  'True
  318.       Caption         =   "Please select a demonstration from the list below:"
  319.       BeginProperty Font 
  320.          Name            =   "MS Sans Serif"
  321.          Size            =   8.25
  322.          Charset         =   0
  323.          Weight          =   400
  324.          Underline       =   0   'False
  325.          Italic          =   0   'False
  326.          Strikethrough   =   0   'False
  327.       EndProperty
  328.       Height          =   195
  329.       Index           =   1
  330.       Left            =   1710
  331.       TabIndex        =   1
  332.       Top             =   855
  333.       Width           =   3570
  334.    End
  335.    Begin VB.Label lblHdr 
  336.       AutoSize        =   -1  'True
  337.       Caption         =   "Welcome to the demonstration program for CommandButtonX version 5, an extended button control."
  338.       BeginProperty Font 
  339.          Name            =   "Tahoma"
  340.          Size            =   8.25
  341.          Charset         =   0
  342.          Weight          =   700
  343.          Underline       =   0   'False
  344.          Italic          =   0   'False
  345.          Strikethrough   =   0   'False
  346.       EndProperty
  347.       Height          =   585
  348.       Index           =   0
  349.       Left            =   1710
  350.       TabIndex        =   0
  351.       Top             =   135
  352.       Width           =   4470
  353.       WordWrap        =   -1  'True
  354.    End
  355. Attribute VB_Name = "frmMenu"
  356. Attribute VB_GlobalNameSpace = False
  357. Attribute VB_Creatable = False
  358. Attribute VB_PredeclaredId = True
  359. Attribute VB_Exposed = False
  360. Option Explicit
  361. DefInt A-Z
  362. Private Sub cmdDemo_Click(Index As Integer)
  363.     Select Case Index
  364.         Case 0: Unload Me
  365.         Case 1: frmGeneral.Show 1
  366.         Case 2: frmColors.Show 1
  367.         Case 3: frmPictures.Show 1
  368.         Case 4: frmEffects.Show 1
  369.         Case 5: frmOLEDragAndDrop.Show 1
  370.         Case 6: cmdDemo(Index).About
  371.         Case 7: frmDropDown.Show 1
  372.     End Select
  373. End Sub
  374.