[Solved] Progress Bar And CheckBox Checks

Progress Bar And CheckBox Checks

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.

1:

Code:

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

2: Rephrase please ?

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

Code:

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

Chuck that inside a timer

Originally Posted by Null::Void

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

Code:

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:

Code:

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.

Code:

TickCheckBox(CheckBox2)

Thank you, Hassan

No problem. Marked Solved.

SolvedProgress Bar And CheckBox Checks

Post a Reply

Similar Threads

Tags for this Thread