[VB]FormBorderStyle und Checkboxen

07/19/2010 19:46 Str33tWalk3r#1
HI

ich hab ein problem und zwar :
Ich hab 5 checkboxen jedee steht für eine verschiedenen Art von Form Style
So ich will das wen ich eine check das dann der style wird und wenn ich sie entchecke das dann der Style "Siziable" wird. so das problem ist das es iwie nicht richtig geht hier ist der code :
PHP Code:
        If CheckBox1.Checked = False Then
            FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        Else
            If CheckBox2.Checked = False Then
                FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
            Else
                If CheckBox3.Checked = False Then
                    FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
                Else
                    If CheckBox4.Checked = False Then
                        FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
                    Else
                        If CheckBox5.Checked = False Then
                            FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable

                        End If
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox5.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged
        FormBorderStyle = Windows.Forms.FormBorderStyle.None

       

    End Sub
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox5.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged
        FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle

        

    End Sub
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox5.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged
        FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D

       

    End Sub
    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox5.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged

        FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow


    End Sub
    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox5.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged

        FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow

    End Sub 
bitte schnell antworten
danke

edit :
wen ich so wie ich es hier geschrieben habe mit dem code eins der kästchen ankreuz dann wird der style "None"
07/19/2010 20:11 Jeoni#2
PHP Code:
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub ChangeFormBorderStyle()
        If CheckBox1.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        ElseIf CheckBox2.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
        ElseIf CheckBox3.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
        ElseIf CheckBox4.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
        ElseIf CheckBox5.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
        End If
    End Sub 
Das müsste funktionieren!
07/19/2010 20:30 Str33tWalk3r#3
Klapp nicht sobald ich ein Kästchen ankreuze wird aus dem style "None"?
07/19/2010 20:45 Jeoni#4
Man darf nur 1 Kästchen ankreuzen. Ich würde dafür RadioButtons nehmen. Grund siehste ja dann :)
07/20/2010 10:04 Str33tWalk3r#5
Ja ich Kreuz ja nur eins an und welcher Style wird : "None"
07/20/2010 12:07 Jeoni#6
Bei mir funktioniert's einwandfrei. Wenn du willst kriegste die Source.
07/20/2010 13:40 Str33tWalk3r#7
Nein.
Hat sich erledigt.
Hab ein Paar If Sätze dazugemacht
PHP Code:
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        ChangeFormBorderStyle()
    End Sub

    Private Sub ChangeFormBorderStyle()
        If CheckBox1.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        ElseIf CheckBox2.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
        ElseIf CheckBox3.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
        ElseIf CheckBox4.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
        ElseIf CheckBox5.Checked Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
        ElseIf CheckBox1.Checked = False Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        ElseIf CheckBox2.Checked = False Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        ElseIf CheckBox3.Checked = False Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        ElseIf CheckBox4.Checked = False Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        ElseIf CheckBox5.Checked = False Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        End If

    End Sub 
Danke Jeoni
07/24/2010 12:56 Jay Niize#8
Quote:
Originally Posted by Str33tWalk3r View Post
Nein.
Hat sich erledigt.
#closerequest
07/24/2010 18:57 xmanix#9
kleiner tipp:

Quote:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
ChangeFormBorderStyle()
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
ChangeFormBorderStyle()
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
ChangeFormBorderStyle()
End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
ChangeFormBorderStyle()
End Sub

Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
ChangeFormBorderStyle()
End Sub

Private Sub ChangeFormBorderStyle()
If CheckBox1.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
ElseIf CheckBox2.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
ElseIf CheckBox3.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
ElseIf CheckBox4.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
ElseIf CheckBox5.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
ElseIf CheckBox1.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
ElseIf CheckBox2.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
ElseIf CheckBox3.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
ElseIf CheckBox4.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
ElseIf CheckBox5.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
End If

End Sub
kann man abkürzen

Quote:

Private Sub ChangeFormBorderStyle(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged
If CheckBox1.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
ElseIf CheckBox2.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
ElseIf CheckBox3.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
ElseIf CheckBox4.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
ElseIf CheckBox5.Checked Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.SizableToolWindow
ElseIf CheckBox1.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
ElseIf CheckBox2.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
ElseIf CheckBox3.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
ElseIf CheckBox4.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
ElseIf CheckBox5.Checked = False Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
End If

End Sub
07/25/2010 15:08 Str33tWalk3r#10
@jusikid
man kan auch einfahc den Thread untergehn lassen! dann brauch man das nicht closen

@xmanix
danke aber ich bleib bei dem von Jeoni und mit Teilen von mir