Maximum 1 form

Status
Niet open voor verdere reacties.

Stress

Gebruiker
Lid geworden
7 feb 2010
Berichten
76
Hallo iedereen,

Ik ben met een project bezig dat ik klik op een button dat een nieuwe form open gaat met de titel: Search. Wat werkt. Maar, ik wil dat hij controleert dat er maar maximum 1 form kan zijn, en bij een 2e form dat hij een bericht moet weergeven. Ik heb dit:
Code:
Dim nieuw As New Form
        nieuw.Visible = True
        nieuw.Text = "Search"
        If nieuw.Text = "Search" > 2 Then
            MessageBox.Show("Je kan maar 1 form openen.")
        End If

Iemand die me kan helpen?

Groetjes,
Stress
 
ten eerste wil ik even zeggen dat je code gedeeltelijk niet werkt.
als je een form laat zien kan je die niet nog een keer laten zien.
dus als je er nog een keer op klikt opent de code niet nog een keer die form.
dus het is niet nodig om te controleren of er meerde forms open zijn.
 
Ik heb nog wel gevonden dat je met deze code:
Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCountForms.Click
        Dim AppFormsCount As Integer
        AppFormsCount = 0
        For Each Form In My.Application.OpenForms
            AppFormsCount = AppFormsCount + 1
        Next
        MsgBox("#Forms : " & CStr(AppFormsCount))
    End Sub
de forms kunt tellen die je open hebt.
 
:o:o:o
Kan nog veel simpeler:
Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCountForms.Click
        Dim AppFormsCount As Integer
        AppFormsCount = My.Application.OpenForms.Count
        MsgBox("#Forms : " & CStr(AppFormsCount))
    End Sub
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan