Toggle Sample (VB.NET)

This sample illustrates toggle buttons.

The source code is located at C:\Program Files (x86)\Softelvdm\SftButton OCX 4.0\Samples\Visual Studio - VB.NET\Toggle\Form1.vb.

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

Private Sub ChangePicture_Button3()
    ' Change the pictures based on the button's Pressed status
    If AxSftButton3.Pressed Then
        AxSftButton3.Image1.NETImageObject = ImageList1.Images(1)
        AxSftButton3.Image2.NETImageObject = ImageList1.Images(0)
    Else
        AxSftButton3.Image1.NETImageObject = ImageList1.Images(0)
        AxSftButton3.Image2.NETImageObject = ImageList1.Images(1)
    End If
End Sub

Private Sub axSftButton3_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxSftButton3.ClickEvent
    ChangePicture_Button3()
End Sub

Private Sub axSftButton3_DblClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxSftButton3.DblClick
    ChangePicture_Button3()
End Sub
End Class