Neue Form in Alter Form Laden
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von Goldy.
-
-
Einsteiger schrieb:
Dispose -
-
Schlüsselwort: MDI
Hat doch jeder schon gesagt -.-
bei den Deklarationen, kannst du doch erst auswählen in welchem Steuerelemnt das Event isch also z.B. TextBox1, Label1 ...
und daneben kannst du doch das Event selber auswählen.
Links gehst du jetzt auf Allgemein und Rechts auf Dispose(Boolean)
Ich hätt' ja jetz auch kein Plan was du meinst Dispose findest du wo?
PS schaut lustig (luschtig) aus wie du "isch" und "bisch" schreibst (schreibsch ^^) Hier schreibt aber auch jeder sowas von Hochdeutsch xD
link_275Hello World
-
-
Hey Leute
Ich meld mich nochmal
Also ich habe es immer noch nicht geschaft
Meine Codes sehen nun wie folgt aus :
Form1:
Spoiler anzeigen VB.NET-Quellcode
- Public Class Taschenrechner
- Private Sub DateiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateiToolStripMenuItem.Click
- End Sub
- Private Sub ButtonsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonsToolStripMenuItem.Click
- Dim f As Taschenrechner2
- f = New Taschenrechner2
- f.Show(Me)
- End Sub
- Private Sub CheckBoxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxToolStripMenuItem.Click
- Taschenrechner3.Show()
- End Sub
- Private Sub RadioButtonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonToolStripMenuItem.Click
- Taschenrechner4.Show()
- End Sub
- Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
- End
- End Sub
- Private Sub Taschenrechner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
Form2 :
Spoiler anzeigen VB.NET-Quellcode
- Public Class Taschenrechner2
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- TextBox2.Text = "+"
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- TextBox2.Text = "-"
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- TextBox2.Text = "*"
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- TextBox2.Text = "/"
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- TextBox2.Text = "√"
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- TextBox2.Text = "x²"
- End Sub
- Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
- TextBox2.Text = "x³"
- End Sub
- Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
- TextBox2.Text = "x^y"
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- If TextBox2.Text = "+" Then
- TextBox4.Text = Val(TextBox1.Text) + Val(TextBox3.Text)
- ElseIf TextBox2.Text = "-" Then
- TextBox4.Text = Val(TextBox1.Text) - Val(TextBox3.Text)
- ElseIf TextBox2.Text = "*" Then
- TextBox4.Text = Val(TextBox1.Text) * Val(TextBox3.Text)
- ElseIf TextBox2.Text = "/" Then
- TextBox4.Text = Val(TextBox1.Text) / Val(TextBox3.Text)
- ElseIf TextBox2.Text = "√" Then
- TextBox4.Text = Val(TextBox1.Text) ^ 0.5
- ElseIf TextBox2.Text = "x²" Then
- TextBox4.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
- ElseIf TextBox2.Text = "x³" Then
- TextBox4.Text = Val(TextBox1.Text) * Val(TextBox1.Text) * Val(TextBox1.Text)
- ElseIf TextBox2.Text = "x^y" Then
- TextBox4.Text = Val(TextBox1.Text) ^ Val(TextBox3.Text)
- End If
- End Sub
- Private Sub Taschenrechner2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
Form 3 :
Spoiler anzeigen VB.NET-Quellcode
- Public Class Taschenrechner3
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If TextBox3.Text = "+" Then
- TextBox4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
- ElseIf TextBox3.Text = "-" Then
- TextBox4.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
- ElseIf TextBox3.Text = "*" Then
- TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
- ElseIf TextBox3.Text = "/" Then
- TextBox4.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
- ElseIf TextBox3.Text = "√" Then
- TextBox4.Text = Val(TextBox1.Text) ^ 0.5
- ElseIf TextBox3.Text = "x²" Then
- TextBox4.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
- ElseIf TextBox3.Text = "x³" Then
- TextBox4.Text = Val(TextBox1.Text) * Val(TextBox1.Text) * Val(TextBox1.Text)
- ElseIf TextBox3.Text = "x^y" Then
- TextBox4.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)
- End If
- End Sub
- Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
- TextBox3.Text = "+"
- End Sub
- Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
- TextBox3.Text = "-"
- End Sub
- Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
- TextBox3.Text = "*"
- End Sub
- Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
- TextBox3.Text = "/"
- End Sub
- Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
- TextBox3.Text = "√"
- End Sub
- Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
- TextBox3.Text = "x²"
- End Sub
- Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
- TextBox3.Text = "x³"
- End Sub
- Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
- TextBox3.Text = "x^y"
- End Sub
- Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
- End Sub
- End Class
Form 4:
Spoiler anzeigen VB.NET-Quellcode
- Public Class Taschenrechner4
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If RadioButton1.Checked Then
- TextBox1.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
- ElseIf RadioButton2.Checked Then
- TextBox1.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
- ElseIf RadioButton3.Checked Then
- TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
- ElseIf RadioButton4.Checked Then
- TextBox1.Text = Val(TextBox2.Text) / Val(TextBox3.Text)
- ElseIf RadioButton8.Checked Then
- TextBox1.Text = Val(TextBox2.Text) ^ 0.5
- ElseIf RadioButton7.Checked Then
- TextBox1.Text = Val(TextBox2.Text) * Val(TextBox2.Text)
- ElseIf RadioButton6.Checked Then
- TextBox1.Text = Val(TextBox2.Text) * Val(TextBox2.Text) * Val(TextBox2.Text)
- ElseIf RadioButton5.Checked Then
- TextBox1.Text = Val(TextBox2.Text) ^ Val(TextBox3.Text)
- End If
- End Sub
- Private Sub Taschenrechner4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
So in der Form 1 ist ein MenuStrip.
Wenn ich nun auf Buttons klicke soll mir Form 2 angezeigt werden aber in Form 1 Ohne eine neue Form zu laden.
Ich hoffe man weis nun was ich meine :0
MfG
GoldyDieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Goldy“ ()
-
VB.NET-Quellcode
- <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
- Partial Class Taschenrechner
- Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
- <System.Diagnostics.DebuggerNonUserCode()> _
- Protected Overrides Sub Dispose(ByVal disposing As Boolean)
- Try
- If disposing AndAlso components IsNot Nothing Then
- components.Dispose()
- End If
- Finally
- MyBase.Dispose(disposing)
- End Try
- End Sub
- 'Wird vom Windows Form-Designer benötigt.
- Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
- <System.Diagnostics.DebuggerStepThrough()> _
- Private Sub InitializeComponent()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
- Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.ButtonsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.CheckBoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.RadioButtonToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.Label2 = New System.Windows.Forms.Label()
- Me.MenuStrip1.SuspendLayout()
- Me.SuspendLayout()
- '
- 'Label1
- '
- Me.Label1.AutoSize = True
- Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label1.Location = New System.Drawing.Point(149, 55)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(212, 20)
- Me.Label1.TabIndex = 0
- Me.Label1.Text = "Taschenrechner by Goldy"
- '
- 'MenuStrip1
- '
- Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
- Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
- Me.MenuStrip1.Name = "MenuStrip1"
- Me.MenuStrip1.Size = New System.Drawing.Size(517, 24)
- Me.MenuStrip1.TabIndex = 1
- Me.MenuStrip1.Text = "MenuStrip1"
- '
- 'DateiToolStripMenuItem
- '
- Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ButtonsToolStripMenuItem, Me.CheckBoxToolStripMenuItem, Me.RadioButtonToolStripMenuItem, Me.BeendenToolStripMenuItem})
- Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
- Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
- Me.DateiToolStripMenuItem.Text = "Datei"
- '
- 'ButtonsToolStripMenuItem
- '
- Me.ButtonsToolStripMenuItem.Name = "ButtonsToolStripMenuItem"
- Me.ButtonsToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
- Me.ButtonsToolStripMenuItem.Text = "Buttons"
- '
- 'CheckBoxToolStripMenuItem
- '
- Me.CheckBoxToolStripMenuItem.Name = "CheckBoxToolStripMenuItem"
- Me.CheckBoxToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
- Me.CheckBoxToolStripMenuItem.Text = "CheckBox"
- '
- 'RadioButtonToolStripMenuItem
- '
- Me.RadioButtonToolStripMenuItem.Name = "RadioButtonToolStripMenuItem"
- Me.RadioButtonToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
- Me.RadioButtonToolStripMenuItem.Text = "RadioButton"
- '
- 'BeendenToolStripMenuItem
- '
- Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
- Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
- Me.BeendenToolStripMenuItem.Text = "Beenden"
- '
- 'Label2
- '
- Me.Label2.AutoSize = True
- Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label2.Location = New System.Drawing.Point(45, 100)
- Me.Label2.Name = "Label2"
- Me.Label2.Size = New System.Drawing.Size(432, 13)
- Me.Label2.TabIndex = 2
- Me.Label2.Text = "Unter ""Datei"" können Sie einen der 3 Taschenrechner Versionen benutzen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
- '
- 'Taschenrechner
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(517, 234)
- Me.Controls.Add(Me.Label2)
- Me.Controls.Add(Me.Label1)
- Me.Controls.Add(Me.MenuStrip1)
- Me.MainMenuStrip = Me.MenuStrip1
- Me.Name = "Taschenrechner"
- Me.Text = "Taschenrechner by Goldy"
- Me.MenuStrip1.ResumeLayout(False)
- Me.MenuStrip1.PerformLayout()
- Me.ResumeLayout(False)
- Me.PerformLayout()
- End Sub
- Friend WithEvents Label1 As System.Windows.Forms.Label
- Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
- Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
- Friend WithEvents ButtonsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
- Friend WithEvents CheckBoxToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
- Friend WithEvents RadioButtonToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
- Friend WithEvents Label2 As System.Windows.Forms.Label
- Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
- Private Sub Taschenrechner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub ButtonsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonsToolStripMenuItem.Click
- 'Wird vom Windows Form-Designer benötigt.
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
- InitializeComponent()
- Me.TextBox1 = New System.Windows.Forms.TextBox()
- Me.TextBox2 = New System.Windows.Forms.TextBox()
- Me.TextBox3 = New System.Windows.Forms.TextBox()
- Me.Button1 = New System.Windows.Forms.Button()
- Me.Button2 = New System.Windows.Forms.Button()
- Me.Button3 = New System.Windows.Forms.Button()
- Me.Button4 = New System.Windows.Forms.Button()
- Me.Button5 = New System.Windows.Forms.Button()
- Me.TextBox4 = New System.Windows.Forms.TextBox()
- Me.SuspendLayout()
- '
- 'TextBox1
- '
- Me.TextBox1.Location = New System.Drawing.Point(145, 115)
- Me.TextBox1.Name = "TextBox1"
- Me.TextBox1.Size = New System.Drawing.Size(226, 20)
- Me.TextBox1.TabIndex = 0
- '
- 'TextBox2
- '
- Me.TextBox2.Location = New System.Drawing.Point(239, 155)
- Me.TextBox2.Name = "TextBox2"
- Me.TextBox2.Size = New System.Drawing.Size(37, 20)
- Me.TextBox2.TabIndex = 1
- '
- 'TextBox3
- '
- Me.TextBox3.Location = New System.Drawing.Point(145, 194)
- Me.TextBox3.Name = "TextBox3"
- Me.TextBox3.Size = New System.Drawing.Size(226, 20)
- Me.TextBox3.TabIndex = 2
- '
- 'Button1
- '
- Me.Button1.Location = New System.Drawing.Point(23, 61)
- Me.Button1.Name = "Button1"
- Me.Button1.Size = New System.Drawing.Size(75, 23)
- Me.Button1.TabIndex = 3
- Me.Button1.Text = "+"
- Me.Button1.UseVisualStyleBackColor = True
- '
- 'Button2
- '
- Me.Button2.Location = New System.Drawing.Point(145, 61)
- Me.Button2.Name = "Button2"
- Me.Button2.Size = New System.Drawing.Size(75, 23)
- Me.Button2.TabIndex = 4
- Me.Button2.Text = "-"
- Me.Button2.UseVisualStyleBackColor = True
- '
- 'Button3
- '
- Me.Button3.Location = New System.Drawing.Point(296, 61)
- Me.Button3.Name = "Button3"
- Me.Button3.Size = New System.Drawing.Size(75, 23)
- Me.Button3.TabIndex = 5
- Me.Button3.Text = "*"
- Me.Button3.UseVisualStyleBackColor = True
- '
- 'Button4
- '
- Me.Button4.Location = New System.Drawing.Point(416, 61)
- Me.Button4.Name = "Button4"
- Me.Button4.Size = New System.Drawing.Size(75, 23)
- Me.Button4.TabIndex = 6
- Me.Button4.Text = "/"
- Me.Button4.UseVisualStyleBackColor = True
- '
- 'Button5
- '
- Me.Button5.Location = New System.Drawing.Point(23, 232)
- Me.Button5.Name = "Button5"
- Me.Button5.Size = New System.Drawing.Size(468, 23)
- Me.Button5.TabIndex = 7
- Me.Button5.Text = "="
- Me.Button5.UseVisualStyleBackColor = True
- '
- 'TextBox4
- '
- Me.TextBox4.Location = New System.Drawing.Point(145, 275)
- Me.TextBox4.Name = "TextBox4"
- Me.TextBox4.Size = New System.Drawing.Size(226, 20)
- Me.TextBox4.TabIndex = 8
- '
- 'UserControl1
- '
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
- Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.Controls.Add(Me.TextBox4)
- Me.Controls.Add(Me.Button5)
- Me.Controls.Add(Me.Button4)
- Me.Controls.Add(Me.Button3)
- Me.Controls.Add(Me.Button2)
- Me.Controls.Add(Me.Button1)
- Me.Controls.Add(Me.TextBox3)
- Me.Controls.Add(Me.TextBox2)
- Me.Controls.Add(Me.TextBox1)
- Me.Name = "UserControl1"
- Me.Size = New System.Drawing.Size(538, 314)
- Me.ResumeLayout(False)
- Me.PerformLayout()
- End Sub
- Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
- Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
- Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
- Friend WithEvents Button1 As System.Windows.Forms.Button
- Friend WithEvents Button2 As System.Windows.Forms.Button
- Friend WithEvents Button3 As System.Windows.Forms.Button
- Friend WithEvents Button4 As System.Windows.Forms.Button
- Friend WithEvents Button5 As System.Windows.Forms.Button
- Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
- End Class
Problem ist nun das sich die beiden Überlappen
-
Benutzer online 1
1 Besucher
-
Ähnliche Themen
-
HSVFan - - Sonstige Problemstellungen
-
4 Benutzer haben hier geschrieben
- Gast (19)
- RodFromGermany (5)
- Link (2)
- thefiloe (1)