home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{20976770-692B-4564-84B5-CCC822AA2B7A}#1.4#0"; "CmdBtnX5.ocx"
- Begin VB.Form frmEffects
- BorderStyle = 3 'Fixed Dialog
- Caption = "Effects Demonstration"
- ClientHeight = 4350
- ClientLeft = 1950
- ClientTop = 1545
- ClientWidth = 6180
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "Effects.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 290
- ScaleMode = 3 'Pixel
- ScaleWidth = 412
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.Frame Frame1
- Caption = "Demonstrate..."
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1635
- Left = 135
- TabIndex = 0
- Top = 2070
- Width = 3615
- Begin VB.OptionButton optDemo
- Caption = "More Hover Buttons"
- Height = 240
- Index = 2
- Left = 360
- TabIndex = 3
- Top = 1035
- Width = 1950
- End
- Begin VB.OptionButton optDemo
- Caption = "Hover Buttons"
- Height = 240
- Index = 1
- Left = 360
- TabIndex = 2
- Top = 720
- Width = 1950
- End
- Begin VB.OptionButton optDemo
- Caption = "Hyperlink Captions"
- Height = 240
- Index = 0
- Left = 360
- TabIndex = 1
- Top = 405
- Value = -1 'True
- Width = 1950
- End
- End
- Begin CommandButtonXDemo.pucTextTip pucSimpleTip1
- Height = 1005
- Left = 135
- TabIndex = 6
- Top = 945
- Width = 5910
- _extentx = 10901
- _extenty = 1773
- font = "Effects.frx":014A
- text = $"Effects.frx":0172
- End
- Begin CommandButtonXCtl.CommandButtonX cmdxDemo
- Height = 1545
- Left = 3870
- TabIndex = 4
- Top = 2160
- Width = 2175
- _extentx = 3836
- _extenty = 2725
- dropdownpicture = "Effects.frx":0270
- oledropmode = 1
- picturealignment= 3
- caption = "Demo"
- font = "Effects.frx":02F2
- End
- Begin CommandButtonXCtl.CommandButtonX cmdClose
- Cancel = -1 'True
- Default = -1 'True
- Height = 375
- Left = 4905
- TabIndex = 5
- Tag = "Close this demonstration window"
- Top = 3825
- Width = 1140
- _extentx = 2011
- _extenty = 661
- dropdownpicture = "Effects.frx":031A
- captionoffsetx = 8
- picturealignment= 3
- caption = "C&lose"
- font = "Effects.frx":039C
- picture = "Effects.frx":03C4
- End
- Begin CommandButtonXDemo.pucLogoPane LogoPane1
- Align = 1 'Align Top
- Height = 780
- Left = 0
- Top = 0
- Width = 6180
- _extentx = 11377
- _extenty = 1376
- picture = "Effects.frx":051E
- End
- Attribute VB_Name = "frmEffects"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- DefInt A-Z
- Private Selected
- Private Sub cmdClose_Click()
- Unload Me
- End Sub
- Private Sub cmdxDemo_MouseEnter()
- With cmdxDemo
- Select Case Selected
- Case 0
- .ForeColor = QBColor(9)
- .Font.Underline = -1
- Case 1
- .BorderStyle = cbxbyLight
- Case 2
- .BackColor = vbHighlight
- If .buttonpushed Then
- .ForeColor = vbButtonText
- Else
- .ForeColor = vbHighlightText
- End If
- End Select
- End With
- End Sub
- Private Sub cmdxDemo_MouseExit()
- With cmdxDemo
- Select Case Selected
- Case 0
- .ForeColor = vbButtonText
- .Font.Underline = 0
- Case 1
- .BorderStyle = cbxbyNone
- Case 2
- .BackColor = vbButtonFace
- .ForeColor = vbButtonText
- End Select
- End With
- End Sub
- Private Sub Form_Load()
- cmdxDemo.Caption = "CommandButtonX" & vbCr & "Demonstration" & vbCr & "Control"
- End Sub
- Private Sub optDemo_Click(Index As Integer)
- Selected = Index
- With cmdxDemo
- .BackColor = vbButtonFace
- Select Case Index
- Case 0
- .BorderStyle = cbxbyStandard
- Case 1
- .BorderStyle = cbxbyNone
- Case 2
- .BorderStyle = cbxbySingle
- End Select
- End With
- End Sub
-