home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / cmdbtnx5.msi / Cabs.w1.cab / Effects.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-09  |  5.6 KB  |  186 lines
  1. VERSION 5.00
  2. Object = "{20976770-692B-4564-84B5-CCC822AA2B7A}#1.4#0"; "CmdBtnX5.ocx"
  3. Begin VB.Form frmEffects 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Effects Demonstration"
  6.    ClientHeight    =   4350
  7.    ClientLeft      =   1950
  8.    ClientTop       =   1545
  9.    ClientWidth     =   6180
  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            =   "Effects.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   290
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   412
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.Frame Frame1 
  29.       Caption         =   "Demonstrate..."
  30.       BeginProperty Font 
  31.          Name            =   "Tahoma"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   1635
  40.       Left            =   135
  41.       TabIndex        =   0
  42.       Top             =   2070
  43.       Width           =   3615
  44.       Begin VB.OptionButton optDemo 
  45.          Caption         =   "More Hover Buttons"
  46.          Height          =   240
  47.          Index           =   2
  48.          Left            =   360
  49.          TabIndex        =   3
  50.          Top             =   1035
  51.          Width           =   1950
  52.       End
  53.       Begin VB.OptionButton optDemo 
  54.          Caption         =   "Hover Buttons"
  55.          Height          =   240
  56.          Index           =   1
  57.          Left            =   360
  58.          TabIndex        =   2
  59.          Top             =   720
  60.          Width           =   1950
  61.       End
  62.       Begin VB.OptionButton optDemo 
  63.          Caption         =   "Hyperlink Captions"
  64.          Height          =   240
  65.          Index           =   0
  66.          Left            =   360
  67.          TabIndex        =   1
  68.          Top             =   405
  69.          Value           =   -1  'True
  70.          Width           =   1950
  71.       End
  72.    End
  73.    Begin CommandButtonXDemo.pucTextTip pucSimpleTip1 
  74.       Height          =   1005
  75.       Left            =   135
  76.       TabIndex        =   6
  77.       Top             =   945
  78.       Width           =   5910
  79.       _extentx        =   10901
  80.       _extenty        =   1773
  81.       font            =   "Effects.frx":014A
  82.       text            =   $"Effects.frx":0172
  83.    End
  84.    Begin CommandButtonXCtl.CommandButtonX cmdxDemo 
  85.       Height          =   1545
  86.       Left            =   3870
  87.       TabIndex        =   4
  88.       Top             =   2160
  89.       Width           =   2175
  90.       _extentx        =   3836
  91.       _extenty        =   2725
  92.       dropdownpicture =   "Effects.frx":0270
  93.       oledropmode     =   1
  94.       picturealignment=   3
  95.       caption         =   "Demo"
  96.       font            =   "Effects.frx":02F2
  97.    End
  98.    Begin CommandButtonXCtl.CommandButtonX cmdClose 
  99.       Cancel          =   -1  'True
  100.       Default         =   -1  'True
  101.       Height          =   375
  102.       Left            =   4905
  103.       TabIndex        =   5
  104.       Tag             =   "Close this demonstration window"
  105.       Top             =   3825
  106.       Width           =   1140
  107.       _extentx        =   2011
  108.       _extenty        =   661
  109.       dropdownpicture =   "Effects.frx":031A
  110.       captionoffsetx  =   8
  111.       picturealignment=   3
  112.       caption         =   "C&lose"
  113.       font            =   "Effects.frx":039C
  114.       picture         =   "Effects.frx":03C4
  115.    End
  116.    Begin CommandButtonXDemo.pucLogoPane LogoPane1 
  117.       Align           =   1  'Align Top
  118.       Height          =   780
  119.       Left            =   0
  120.       Top             =   0
  121.       Width           =   6180
  122.       _extentx        =   11377
  123.       _extenty        =   1376
  124.       picture         =   "Effects.frx":051E
  125.    End
  126. Attribute VB_Name = "frmEffects"
  127. Attribute VB_GlobalNameSpace = False
  128. Attribute VB_Creatable = False
  129. Attribute VB_PredeclaredId = True
  130. Attribute VB_Exposed = False
  131. Option Explicit
  132. DefInt A-Z
  133. Private Selected
  134. Private Sub cmdClose_Click()
  135.  Unload Me
  136. End Sub
  137. Private Sub cmdxDemo_MouseEnter()
  138.     With cmdxDemo
  139.         Select Case Selected
  140.          Case 0
  141.             .ForeColor = QBColor(9)
  142.             .Font.Underline = -1
  143.          Case 1
  144.             .BorderStyle = cbxbyLight
  145.          Case 2
  146.             .BackColor = vbHighlight
  147.             If .buttonpushed Then
  148.                 .ForeColor = vbButtonText
  149.             Else
  150.                 .ForeColor = vbHighlightText
  151.             End If
  152.         End Select
  153.     End With
  154. End Sub
  155. Private Sub cmdxDemo_MouseExit()
  156.     With cmdxDemo
  157.         Select Case Selected
  158.          Case 0
  159.             .ForeColor = vbButtonText
  160.             .Font.Underline = 0
  161.          Case 1
  162.             .BorderStyle = cbxbyNone
  163.          Case 2
  164.             .BackColor = vbButtonFace
  165.             .ForeColor = vbButtonText
  166.         End Select
  167.     End With
  168. End Sub
  169. Private Sub Form_Load()
  170.  cmdxDemo.Caption = "CommandButtonX" & vbCr & "Demonstration" & vbCr & "Control"
  171. End Sub
  172. Private Sub optDemo_Click(Index As Integer)
  173.  Selected = Index
  174.  With cmdxDemo
  175.   .BackColor = vbButtonFace
  176.   Select Case Index
  177.    Case 0
  178.     .BorderStyle = cbxbyStandard
  179.    Case 1
  180.     .BorderStyle = cbxbyNone
  181.    Case 2
  182.     .BorderStyle = cbxbySingle
  183.   End Select
  184.  End With
  185. End Sub
  186.