Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › .NET Languages
[VB]FormBorderStyle und Checkboxen [VB]FormBorderStyle und Checkboxen
You last visited: Today at 06:54

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[VB]FormBorderStyle und Checkboxen

Discussion on [VB]FormBorderStyle und Checkboxen within the .NET Languages forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2010
Posts: 460
Received Thanks: 125
[VB]FormBorderStyle und Checkboxen

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"
Str33tWalk3r is offline  
Thanks
1 User
Old   #2


 
Jeoni's Avatar
 
elite*gold: 966
The Black Market: 14/0/0
Join Date: Apr 2010
Posts: 1,105
Received Thanks: 681
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!
Jeoni is offline  
Thanks
1 User
Old   #3
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2010
Posts: 460
Received Thanks: 125
Klapp nicht sobald ich ein Kästchen ankreuze wird aus dem style "None"?
Str33tWalk3r is offline  
Thanks
1 User
Old   #4


 
Jeoni's Avatar
 
elite*gold: 966
The Black Market: 14/0/0
Join Date: Apr 2010
Posts: 1,105
Received Thanks: 681
Man darf nur 1 Kästchen ankreuzen. Ich würde dafür RadioButtons nehmen. Grund siehste ja dann
Jeoni is offline  
Old   #5
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2010
Posts: 460
Received Thanks: 125
Ja ich Kreuz ja nur eins an und welcher Style wird : "None"
Str33tWalk3r is offline  
Thanks
1 User
Old   #6


 
Jeoni's Avatar
 
elite*gold: 966
The Black Market: 14/0/0
Join Date: Apr 2010
Posts: 1,105
Received Thanks: 681
Bei mir funktioniert's einwandfrei. Wenn du willst kriegste die Source.
Jeoni is offline  
Old   #7
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2010
Posts: 460
Received Thanks: 125
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
Str33tWalk3r is offline  
Thanks
1 User
Old   #8
 
Jay Niize's Avatar
 
elite*gold: 0
The Black Market: 39/0/0
Join Date: Oct 2009
Posts: 4,851
Received Thanks: 3,417
Quote:
Originally Posted by Str33tWalk3r View Post
Nein.
Hat sich erledigt.
#closerequest
Jay Niize is offline  
Old   #9
 
xmanix's Avatar
 
elite*gold: 10
The Black Market: 0/0/0
Join Date: May 2008
Posts: 340
Received Thanks: 306
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
xmanix is offline  
Old   #10
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2010
Posts: 460
Received Thanks: 125
@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
Str33tWalk3r is offline  
Reply

« speedhack programmieren mit vb | Vb.net offset »

Similar Threads Similar Threads
checkboxen abfragen
06/26/2010 - AutoIt - 5 Replies
ich bräuchte auch mal eure hilfe, ich finde einfach keine vernünftige lösung um checkboxen abzufragen, ich poste sie einfach mal: $Checkbox1 = GUICtrlCreateCheckbox("macro nutzen", 424, 96, 97, 17) $Checkbox2 = GUICtrlCreateCheckbox("macro nutzen", 424, 152, 97, 17) $Checkbox3 = GUICtrlCreateCheckbox("macro nutzen", 424, 200, 97, 17) für jede aktive checkbox (true) sollen jewals 2 variablen aus einer .ini in eine .dll geschrieben werden, doch das ist nicht das problem, das einzigste ist...
[VB08] Alle Checkboxen anhaken
04/01/2010 - Coding Tutorials - 7 Replies
Hallo, hier ein TuT wie ihr alle Checkboxen anhaken könnt. Credits to me :D http://www.youtube.com/watch?v=dDfy3BLWdMY Abonnieren, Bewerten, Kommentieren und ne PM mit dem Inhalt was ich als nächstes machen soll ;D LG



All times are GMT +2. The time now is 06:54.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.