Neue Form in Alter Form Laden

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von Goldy.

    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)

    Gruß Einsteiger

    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_275
    Hello World

    Hey Leute :D

    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

    1. Public Class Taschenrechner
    4. Private Sub DateiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateiToolStripMenuItem.Click
    6. End Sub
    8. Private Sub ButtonsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonsToolStripMenuItem.Click
    10. Dim f As Taschenrechner2
    12. f = New Taschenrechner2
    14. f.Show(Me)
    16. End Sub
    17. Private Sub CheckBoxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxToolStripMenuItem.Click
    19. Taschenrechner3.Show()
    20. End Sub
    21. Private Sub RadioButtonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonToolStripMenuItem.Click
    23. Taschenrechner4.Show()
    24. End Sub
    26. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    27. End
    28. End Sub
    30. Private Sub Taschenrechner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    32. End Sub
    33. End Class


    Form2 :

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Taschenrechner2
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. TextBox2.Text = "+"
    6. End Sub
    8. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    9. TextBox2.Text = "-"
    10. End Sub
    12. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    13. TextBox2.Text = "*"
    14. End Sub
    16. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    17. TextBox2.Text = "/"
    18. End Sub
    19. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    20. TextBox2.Text = "√"
    21. End Sub
    22. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    23. TextBox2.Text = "x²"
    24. End Sub
    25. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    26. TextBox2.Text = "x³"
    27. End Sub
    28. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    29. TextBox2.Text = "x^y"
    30. End Sub
    32. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    33. If TextBox2.Text = "+" Then
    34. TextBox4.Text = Val(TextBox1.Text) + Val(TextBox3.Text)
    35. ElseIf TextBox2.Text = "-" Then
    36. TextBox4.Text = Val(TextBox1.Text) - Val(TextBox3.Text)
    37. ElseIf TextBox2.Text = "*" Then
    38. TextBox4.Text = Val(TextBox1.Text) * Val(TextBox3.Text)
    39. ElseIf TextBox2.Text = "/" Then
    40. TextBox4.Text = Val(TextBox1.Text) / Val(TextBox3.Text)
    41. ElseIf TextBox2.Text = "√" Then
    42. TextBox4.Text = Val(TextBox1.Text) ^ 0.5
    43. ElseIf TextBox2.Text = "x²" Then
    44. TextBox4.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
    45. ElseIf TextBox2.Text = "x³" Then
    46. TextBox4.Text = Val(TextBox1.Text) * Val(TextBox1.Text) * Val(TextBox1.Text)
    47. ElseIf TextBox2.Text = "x^y" Then
    48. TextBox4.Text = Val(TextBox1.Text) ^ Val(TextBox3.Text)
    49. End If
    50. End Sub
    52. Private Sub Taschenrechner2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    54. End Sub
    55. End Class


    Form 3 :

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Taschenrechner3
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. If TextBox3.Text = "+" Then
    5. TextBox4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    6. ElseIf TextBox3.Text = "-" Then
    7. TextBox4.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
    8. ElseIf TextBox3.Text = "*" Then
    9. TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
    10. ElseIf TextBox3.Text = "/" Then
    11. TextBox4.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
    12. ElseIf TextBox3.Text = "√" Then
    13. TextBox4.Text = Val(TextBox1.Text) ^ 0.5
    14. ElseIf TextBox3.Text = "x²" Then
    15. TextBox4.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
    16. ElseIf TextBox3.Text = "x³" Then
    17. TextBox4.Text = Val(TextBox1.Text) * Val(TextBox1.Text) * Val(TextBox1.Text)
    18. ElseIf TextBox3.Text = "x^y" Then
    19. TextBox4.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)
    21. End If
    23. End Sub
    25. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    26. TextBox3.Text = "+"
    27. End Sub
    29. Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
    30. TextBox3.Text = "-"
    31. End Sub
    33. Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
    34. TextBox3.Text = "*"
    35. End Sub
    37. Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
    38. TextBox3.Text = "/"
    39. End Sub
    41. Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
    42. TextBox3.Text = "√"
    43. End Sub
    45. Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
    46. TextBox3.Text = "x²"
    47. End Sub
    49. Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
    50. TextBox3.Text = "x³"
    51. End Sub
    53. Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
    54. TextBox3.Text = "x^y"
    55. End Sub
    57. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    59. End Sub
    60. End Class


    Form 4:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Taschenrechner4
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. If RadioButton1.Checked Then
    5. TextBox1.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
    6. ElseIf RadioButton2.Checked Then
    7. TextBox1.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
    8. ElseIf RadioButton3.Checked Then
    9. TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
    10. ElseIf RadioButton4.Checked Then
    11. TextBox1.Text = Val(TextBox2.Text) / Val(TextBox3.Text)
    12. ElseIf RadioButton8.Checked Then
    13. TextBox1.Text = Val(TextBox2.Text) ^ 0.5
    14. ElseIf RadioButton7.Checked Then
    15. TextBox1.Text = Val(TextBox2.Text) * Val(TextBox2.Text)
    16. ElseIf RadioButton6.Checked Then
    17. TextBox1.Text = Val(TextBox2.Text) * Val(TextBox2.Text) * Val(TextBox2.Text)
    18. ElseIf RadioButton5.Checked Then
    19. TextBox1.Text = Val(TextBox2.Text) ^ Val(TextBox3.Text)
    21. End If
    22. End Sub
    24. Private Sub Taschenrechner4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    26. End Sub
    27. 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

    Goldy

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Goldy“ ()

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Taschenrechner
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.Label1 = New System.Windows.Forms.Label()
    26. Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
    27. Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    28. Me.ButtonsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    29. Me.CheckBoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    30. Me.RadioButtonToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    31. Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    32. Me.Label2 = New System.Windows.Forms.Label()
    33. Me.MenuStrip1.SuspendLayout()
    34. Me.SuspendLayout()
    35. '
    36. 'Label1
    37. '
    38. Me.Label1.AutoSize = True
    39. Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    40. Me.Label1.Location = New System.Drawing.Point(149, 55)
    41. Me.Label1.Name = "Label1"
    42. Me.Label1.Size = New System.Drawing.Size(212, 20)
    43. Me.Label1.TabIndex = 0
    44. Me.Label1.Text = "Taschenrechner by Goldy"
    45. '
    46. 'MenuStrip1
    47. '
    48. Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
    49. Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
    50. Me.MenuStrip1.Name = "MenuStrip1"
    51. Me.MenuStrip1.Size = New System.Drawing.Size(517, 24)
    52. Me.MenuStrip1.TabIndex = 1
    53. Me.MenuStrip1.Text = "MenuStrip1"
    54. '
    55. 'DateiToolStripMenuItem
    56. '
    57. Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ButtonsToolStripMenuItem, Me.CheckBoxToolStripMenuItem, Me.RadioButtonToolStripMenuItem, Me.BeendenToolStripMenuItem})
    58. Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
    59. Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
    60. Me.DateiToolStripMenuItem.Text = "Datei"
    61. '
    62. 'ButtonsToolStripMenuItem
    63. '
    64. Me.ButtonsToolStripMenuItem.Name = "ButtonsToolStripMenuItem"
    65. Me.ButtonsToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
    66. Me.ButtonsToolStripMenuItem.Text = "Buttons"
    67. '
    68. 'CheckBoxToolStripMenuItem
    69. '
    70. Me.CheckBoxToolStripMenuItem.Name = "CheckBoxToolStripMenuItem"
    71. Me.CheckBoxToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
    72. Me.CheckBoxToolStripMenuItem.Text = "CheckBox"
    73. '
    74. 'RadioButtonToolStripMenuItem
    75. '
    76. Me.RadioButtonToolStripMenuItem.Name = "RadioButtonToolStripMenuItem"
    77. Me.RadioButtonToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
    78. Me.RadioButtonToolStripMenuItem.Text = "RadioButton"
    79. '
    80. 'BeendenToolStripMenuItem
    81. '
    82. Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
    83. Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(140, 22)
    84. Me.BeendenToolStripMenuItem.Text = "Beenden"
    85. '
    86. 'Label2
    87. '
    88. Me.Label2.AutoSize = True
    89. Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    90. Me.Label2.Location = New System.Drawing.Point(45, 100)
    91. Me.Label2.Name = "Label2"
    92. Me.Label2.Size = New System.Drawing.Size(432, 13)
    93. Me.Label2.TabIndex = 2
    94. Me.Label2.Text = "Unter ""Datei"" können Sie einen der 3 Taschenrechner Versionen benutzen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
    95. '
    96. 'Taschenrechner
    97. '
    98. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    99. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    100. Me.ClientSize = New System.Drawing.Size(517, 234)
    101. Me.Controls.Add(Me.Label2)
    102. Me.Controls.Add(Me.Label1)
    103. Me.Controls.Add(Me.MenuStrip1)
    104. Me.MainMenuStrip = Me.MenuStrip1
    105. Me.Name = "Taschenrechner"
    106. Me.Text = "Taschenrechner by Goldy"
    107. Me.MenuStrip1.ResumeLayout(False)
    108. Me.MenuStrip1.PerformLayout()
    109. Me.ResumeLayout(False)
    110. Me.PerformLayout()
    112. End Sub
    113. Friend WithEvents Label1 As System.Windows.Forms.Label
    114. Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
    115. Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    116. Friend WithEvents ButtonsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    117. Friend WithEvents CheckBoxToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    118. Friend WithEvents RadioButtonToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    119. Friend WithEvents Label2 As System.Windows.Forms.Label
    120. Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    122. Private Sub Taschenrechner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    124. End Sub
    126. Private Sub ButtonsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonsToolStripMenuItem.Click
    129. 'Wird vom Windows Form-Designer benötigt.
    131. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    132. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    133. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    135. InitializeComponent()
    136. Me.TextBox1 = New System.Windows.Forms.TextBox()
    137. Me.TextBox2 = New System.Windows.Forms.TextBox()
    138. Me.TextBox3 = New System.Windows.Forms.TextBox()
    139. Me.Button1 = New System.Windows.Forms.Button()
    140. Me.Button2 = New System.Windows.Forms.Button()
    141. Me.Button3 = New System.Windows.Forms.Button()
    142. Me.Button4 = New System.Windows.Forms.Button()
    143. Me.Button5 = New System.Windows.Forms.Button()
    144. Me.TextBox4 = New System.Windows.Forms.TextBox()
    145. Me.SuspendLayout()
    146. '
    147. 'TextBox1
    148. '
    149. Me.TextBox1.Location = New System.Drawing.Point(145, 115)
    150. Me.TextBox1.Name = "TextBox1"
    151. Me.TextBox1.Size = New System.Drawing.Size(226, 20)
    152. Me.TextBox1.TabIndex = 0
    153. '
    154. 'TextBox2
    155. '
    156. Me.TextBox2.Location = New System.Drawing.Point(239, 155)
    157. Me.TextBox2.Name = "TextBox2"
    158. Me.TextBox2.Size = New System.Drawing.Size(37, 20)
    159. Me.TextBox2.TabIndex = 1
    160. '
    161. 'TextBox3
    162. '
    163. Me.TextBox3.Location = New System.Drawing.Point(145, 194)
    164. Me.TextBox3.Name = "TextBox3"
    165. Me.TextBox3.Size = New System.Drawing.Size(226, 20)
    166. Me.TextBox3.TabIndex = 2
    167. '
    168. 'Button1
    169. '
    170. Me.Button1.Location = New System.Drawing.Point(23, 61)
    171. Me.Button1.Name = "Button1"
    172. Me.Button1.Size = New System.Drawing.Size(75, 23)
    173. Me.Button1.TabIndex = 3
    174. Me.Button1.Text = "+"
    175. Me.Button1.UseVisualStyleBackColor = True
    176. '
    177. 'Button2
    178. '
    179. Me.Button2.Location = New System.Drawing.Point(145, 61)
    180. Me.Button2.Name = "Button2"
    181. Me.Button2.Size = New System.Drawing.Size(75, 23)
    182. Me.Button2.TabIndex = 4
    183. Me.Button2.Text = "-"
    184. Me.Button2.UseVisualStyleBackColor = True
    185. '
    186. 'Button3
    187. '
    188. Me.Button3.Location = New System.Drawing.Point(296, 61)
    189. Me.Button3.Name = "Button3"
    190. Me.Button3.Size = New System.Drawing.Size(75, 23)
    191. Me.Button3.TabIndex = 5
    192. Me.Button3.Text = "*"
    193. Me.Button3.UseVisualStyleBackColor = True
    194. '
    195. 'Button4
    196. '
    197. Me.Button4.Location = New System.Drawing.Point(416, 61)
    198. Me.Button4.Name = "Button4"
    199. Me.Button4.Size = New System.Drawing.Size(75, 23)
    200. Me.Button4.TabIndex = 6
    201. Me.Button4.Text = "/"
    202. Me.Button4.UseVisualStyleBackColor = True
    203. '
    204. 'Button5
    205. '
    206. Me.Button5.Location = New System.Drawing.Point(23, 232)
    207. Me.Button5.Name = "Button5"
    208. Me.Button5.Size = New System.Drawing.Size(468, 23)
    209. Me.Button5.TabIndex = 7
    210. Me.Button5.Text = "="
    211. Me.Button5.UseVisualStyleBackColor = True
    212. '
    213. 'TextBox4
    214. '
    215. Me.TextBox4.Location = New System.Drawing.Point(145, 275)
    216. Me.TextBox4.Name = "TextBox4"
    217. Me.TextBox4.Size = New System.Drawing.Size(226, 20)
    218. Me.TextBox4.TabIndex = 8
    219. '
    220. 'UserControl1
    221. '
    222. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    223. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    224. Me.Controls.Add(Me.TextBox4)
    225. Me.Controls.Add(Me.Button5)
    226. Me.Controls.Add(Me.Button4)
    227. Me.Controls.Add(Me.Button3)
    228. Me.Controls.Add(Me.Button2)
    229. Me.Controls.Add(Me.Button1)
    230. Me.Controls.Add(Me.TextBox3)
    231. Me.Controls.Add(Me.TextBox2)
    232. Me.Controls.Add(Me.TextBox1)
    233. Me.Name = "UserControl1"
    234. Me.Size = New System.Drawing.Size(538, 314)
    235. Me.ResumeLayout(False)
    236. Me.PerformLayout()
    238. End Sub
    239. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    240. Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    241. Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    242. Friend WithEvents Button1 As System.Windows.Forms.Button
    243. Friend WithEvents Button2 As System.Windows.Forms.Button
    244. Friend WithEvents Button3 As System.Windows.Forms.Button
    245. Friend WithEvents Button4 As System.Windows.Forms.Button
    246. Friend WithEvents Button5 As System.Windows.Forms.Button
    247. Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    252. End Class


    Problem ist nun das sich die beiden Überlappen :S

Facebook
Telefonspende