SftButton/OCX 3.0 - Button Control

Special Sample (VB6)

This sample illustrates special effects.

The source code is located at C:\Program Files (x86)\Softelvdm\SftButton OCX 3.0\Samples\VB6\Special\Form1.frm or C:\Program Files\Softelvdm\SftButton OCX 3.0\Samples\VB6\Special\Form1.frm (on 32-bit Windows versions).

Option Explicit

Dim LastPicture As Integer

Private Sub CloseButton_Click()
    End
End Sub

Private Sub SftButton1_HoverOn()
    ' The cursor is over the button, change the font
    ' and button text
    SftButton1.Font.Underline = True
    SftButton1.Text = "Click Me, Please"
End Sub

Private Sub SftButton1_HoverOff()
    ' The cursor has left the button, change the font
    ' and button text back to their original settings
    SftButton1.Font.Underline = False
    SftButton1.Text = "Click Me"
End Sub

Private Sub PicTimer_Timer()
    ' Update the button bitmap every so often to get the
    ' spinning globe effect
    With SftButton2
        Set .Image1.Picture = WImage(LastPicture).Picture
        LastPicture = LastPicture + 1
        If LastPicture >= 16 Then LastPicture = 0
    End With
End Sub

Private Sub BorderTimer_Timer()
    ' Change the button border
    With SftButton3
       If .Pressed Or .DarkEdgeColor <> vb3DDKShadow Then
            .DarkEdgeColor = vb3DDKShadow
            .ShadowEdgeColor = vbButtonShadow
            .LightEdgeColor = vb3DLight
            .WhiteEdgeColor = vb3DHighlight
        Else
            .DarkEdgeColor = vb3DHighlight
            .ShadowEdgeColor = vb3DHighlight
            .LightEdgeColor = vb3DHighlight
            .WhiteEdgeColor = vb3DHighlight
        End If
    End With
End Sub

Private Sub PressedTimer_Timer()
    ' Toggle the button and drop down button state
    With SftButton4
        If .Pressed Then
            If .DropDownPressed Then
                .Pressed = False
            Else
                .DropDownPressed = True
            End If
        Else
            If .DropDownPressed Then
                .DropDownPressed = False
            Else
                .Pressed = True
            End If
        End If
    End With
End Sub