Progress Bar And CheckBox Checks

[reapher99]

Q1. How to make message box appeared once after the progress bar full. How to make the message box close everything.

Q2. How to make the check box choose only one without any check boxes appeared.

[Hassan]

1:

If ProgressBar1.Value=ProgressBar1.Maximum Then
Msgbox("100% progress !")
End
End If

2: Rephrase please ?

[Null::Void]

do you mean like if checkbox1 is selected the rest are disabled if so

If Checkbox1.checked = True Then
Checkbox2.enabled = fasle
checkbox3.enabled = false 'and so on
End If

Chuck that inside a timer

[Hassan]

do you mean like if checkbox1 is selected the rest are disabled if so

If Checkbox1.checked = True Then
Checkbox2.enabled = fasle
checkbox3.enabled = false 'and so on
End If

Chuck that inside a timer

@reapher99: First add this method to your class:

Sub TickCheckBox(CheckBoxToTick As CheckBox)
        For Each Ctrl As Control In Me.Controls
            If Ctrl.GetType() Is GetType(CheckBox) Then
                If Not Ctrl Is CheckBoxToTick Then
                    Dim Chk As CheckBox = Ctrl
                    Chk.Checked = False
                End If
            End If
        Next
        CheckBoxToTick.Checked = True
End Sub

Then call it passing the name of the checkbox you want to enable. This will enable the checkbox you want and uncheck every other checkbox on the form.

Example Call:
Suppose you are having couple of CheckBoxes in your form. The following call will check the CheckBox2 and uncheck all others.

TickCheckBox(CheckBox2)

[reapher99]

Thank you, Hassan

[Hassan]

No problem. Marked Solved.