|
You last visited: Today at 10:54
Advertisement
[VB]FormBorderStyle und Checkboxen
Discussion on [VB]FormBorderStyle und Checkboxen within the .NET Languages forum part of the Coders Den category.
07/19/2010, 19:46
|
#1
|
elite*gold: 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"
|
|
|
|
07/19/2010, 20:11
|
#2
|
elite*gold: 966
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!
|
|
|
|
|
07/19/2010, 20:30
|
#3
|
elite*gold: 0
Join Date: Jan 2010
Posts: 460
Received Thanks: 125
|
Klapp nicht sobald ich ein Kästchen ankreuze wird aus dem style "None"?
|
|
|
|
|
07/19/2010, 20:45
|
#4
|
elite*gold: 966
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 
|
|
|
|
|
07/20/2010, 10:04
|
#5
|
elite*gold: 0
Join Date: Jan 2010
Posts: 460
Received Thanks: 125
|
Ja ich Kreuz ja nur eins an und welcher Style wird : "None"
|
|
|
|
|
07/20/2010, 12:07
|
#6
|
elite*gold: 966
Join Date: Apr 2010
Posts: 1,105
Received Thanks: 681
|
Bei mir funktioniert's einwandfrei. Wenn du willst kriegste die Source.
|
|
|
|
|
07/20/2010, 13:40
|
#7
|
elite*gold: 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
|
|
|
|
|
07/24/2010, 12:56
|
#8
|
elite*gold: 0
Join Date: Oct 2009
Posts: 4,851
Received Thanks: 3,417
|
Quote:
Originally Posted by Str33tWalk3r
Nein.
Hat sich erledigt.
|
#closerequest
|
|
|
|
|
07/24/2010, 18:57
|
#9
|
elite*gold: 10
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
|
|
|
|
|
|
07/25/2010, 15:08
|
#10
|
elite*gold: 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
|
|
|
|
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 +1. The time now is 10:59.
|
|
![[VB]FormBorderStyle und Checkboxen](https://www.elitepvpers.com/forum/iconimages/net-languages/vb-formborderstyle-und-checkboxen_ltr.gif){kind=small}
