SftButton/OCX 3.0 - Button Control

Special Sample (VB.NET)

This sample illustrates special effects.

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

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    Application.Exit()
End Sub

Private WorldIndex As Integer = 0

Private Sub SetImage()
    ' Update the button with the next image in the image list
    ' to get the spinning globe effect
    AxSftButton2.Image1.NETImageObject = ImageList1.Images(WorldIndex)
    WorldIndex = WorldIndex + 1
    If WorldIndex >= ImageList1.Images.Count() Then WorldIndex = 0
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ' Update the button bitmap every so often to get the
    ' spinning globe effect
    SetImage()
End Sub

Private Sub AxSftButton1_HoverOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxSftButton1.HoverOn
    ' The cursor is over the button, change the font
    ' and button text
    AxSftButton1.Font = New Font(AxSftButton1.Font, FontStyle.Underline)
    AxSftButton1.Text = "Click Me, Please"
End Sub

Private Sub AxSftButton1_HoverOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxSftButton1.HoverOff
    ' The cursor has left the button, change the font
    ' and button text back to their original settings
    AxSftButton1.Font = New Font(AxSftButton1.Font, FontStyle.Regular)
    AxSftButton1.Text = "Click Me"
End Sub

Private Sub BorderTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorderTimer.Tick
    ' Change the button border
    If AxSftButton3.Pressed Or Color.op_Inequality(AxSftButton3.DarkEdgeColor, SystemColors.ControlDarkDark) Then
        AxSftButton3.DarkEdgeColor = SystemColors.ControlDarkDark
        AxSftButton3.ShadowEdgeColor = SystemColors.ControlDark
        AxSftButton3.LightEdgeColor = SystemColors.ControlLight
        AxSftButton3.WhiteEdgeColor = SystemColors.ControlLightLight
    Else
        AxSftButton3.DarkEdgeColor = SystemColors.ControlLightLight
        AxSftButton3.ShadowEdgeColor = SystemColors.ControlLightLight
        AxSftButton3.LightEdgeColor = SystemColors.ControlLightLight
        AxSftButton3.WhiteEdgeColor = SystemColors.ControlLightLight
    End If
End Sub


Private Sub PressedTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PressedTimer.Tick
    ' Toggle the button and drop down button state
    If AxSftButton4.Pressed Then
        If AxSftButton4.DropDownPressed Then
            AxSftButton4.Pressed = False
        Else
            AxSftButton4.DropDownPressed = True
        End If
    Else
        If AxSftButton4.DropDownPressed Then
            AxSftButton4.DropDownPressed = False
        Else
            AxSftButton4.Pressed = True
        End If
    End If
End Sub
End Class