Bei wiederholtem Button_click Neues Ereignis stattfinden lassen

  • VB.NET

Es gibt 49 Antworten in diesem Thema. Der letzte Beitrag () ist von JamalR3.

    Bei wiederholtem Button_click Neues Ereignis stattfinden lassen

    Hallo an alle!

    Ich hab einen Button, und wenn ich drauf klicke erscheinen dann z.b. 2 textboxen hinzu. Und jetzt möchte ich, dass wenn ich nochmal drauf klicke, wieder 2 button unten drunter enstehen.

    ich hab mir das mit den erstellten textboxen so gedacht: ich setze sie auf visible = False. Bei button klick die ersten 2 textboxen.visible = true.

    Jetzt muss halt bei wiederholten Drücken neue textboxen erscheinen.


    Wie tuh ich das?

    Hallo JamalR3,

    warum erstellst du deine Textboxen nicht einfach erst zur Laufzeit und merkst dir deine letzte Positionierung.
    Darauf hin kannst du bei erneutem Button Click Event, deine Positioniert + X Rechnen und könntest somit die Textboxen bis ins unendliche erstellen.

    Jedem Container (Form, Panel, GroupBox etc) kannst du während der Laufzeit weitere Steuerelemente hinzufügen.
    Darüber hinaus, kannst du diesem neuen Steuerelement gleich Eigenschaften mitgeben, damit er so arbeitet wie du wünscht.

    VB.NET-Quellcode

    1. Public Class Form1
    2. 'Speicher für die Letzte Verticale Position
    3. Private intLetztePositionY As Integer = 0
    4. 'Speicher für die Anzahl der Button aufrufe
    5. Private intAnzahlButtonClicks As Integer = 0
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. 'Aufruf +1
    10. intAnzahlButtonClicks += 1
    11. 'Position +25 Pixel
    12. intLetztePositionY += 25
    14. 'Erstellt neues TextBox Steuerelement
    15. Dim textBoxLinks As TextBox = New TextBox()
    16. With textBoxLinks
    17. 'Vergibt einen Namen für das Element
    18. .Name = String.Format("TextboxLinks{0}", intAnzahlButtonClicks)
    19. 'Definiert die Größe
    20. .Size = New Size(120, 20)
    21. 'Definiert die Position
    22. .Location = New Point(25, intLetztePositionY)
    23. End With
    24. 'Fügt es der Form hinzu
    25. Me.Controls.Add(textBoxLinks)
    27. 'Erstellt neues TextBox Steuerelement
    28. Dim textBoxRechts As TextBox = New TextBox()
    29. With textBoxRechts
    30. 'Vergibt einen Namen für das Element
    31. .Name = String.Format("TextboxRechts{0}", intAnzahlButtonClicks)
    32. 'Definiert die Größe
    33. .Size = New Size(120, 20)
    34. 'Definiert die Position, 5 Pixel Rechts neben der Linken Textbox
    35. .Location = New Point(145, intLetztePositionY)
    36. End With
    37. Me.Controls.Add(textBoxRechts)
    38. End Sub
    39. End Class


    Hoffe das Hilft dir etwas weiter...

    ja, das geht, machs doch einfach do :D

    VB.NET-Quellcode

    1. Dim klickanzahl As String = "0"
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. If klickanzahl = "0" Then
    4. TextBox1.Hide() 'beim ersten klick
    5. klickanzahl = "1"
    6. Else
    7. TextBox2.Show() ' beim 2 klick
    8. End If
    9. End Sub

    währe die einfachste lösing :D

    Du nimmst klickanzahl einfach jedesmal + 1 also:

    klickanzahl += 1

    und gehst dann immer in dei If Zweige z.B.:

    VB.NET-Quellcode

    1. Dim klickanzahl As Integer = 0
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. If klickanzahl = 0 Then
    4. TextBox1.Hide()
    5. klickanzahl += 1
    6. ElseIf klickanzahl = 1 Then
    7. TextBox2.Show()
    8. klickanzahl += 1
    9. ElseIf klickanzahl = 2 Then
    10. ....'usw.
    11. End If
    12. End Sub


    So kannst du immer sehen wie oft schon geklickt wurde und dann ein anderes ereignis starten

    Gruß Einsteiger

    wow, danke hast mir super weitergeholen!!

    Jetzt ergibt sich meine nächste frage.

    Ich hab checkboxen, die vor den textboxen sind... wenn ich die checkbox auswähle und auf einen button klicke. soll diese textbox wieder verschwinden.

    und sobald wieder textboxen gebraucht werden, bei klick soll die textbox dahin kommen, wo die andere verschwunden ist..

    klingt vllt ein bisschen umständlich un kompliziert... ist dies aber möglich??

    Dann mach sowas:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. If CheckBox1.Checked Then 'Ist die CheckBox gecheckt?
    3. TextBox1.Visible = False 'Dann wird die dazugehörige TextBox unsichtbar
    4. EndIf
    5. If CheckBox2.Checked Then 'Es ist wichtig, dass es einzelne IfBlöcke sind(also nicht mit ElseIf, sonst führt er es nur efür eine aus)
    6. TextBox2.Visible = False
    7. EndIf
    8. If CheckBox3.CheckedThen
    9. ...
    10. End Sub



    Um die Lücke wieder zu füllen schaust du einfach wo TextBoxen unsichtbar (oder gelöscht) sind und fügst da die neue ein (oder machts die alte wieder sichtbar

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. If TextBox1.Visible = False Then 'Wenn da eine Lücke ist
    3. TextBox1.Visible = True 'dann wird diese aufgefüllt
    4. ElseIf TextBox2.Visible = False Then 'So fügt er nur an der ersten Lücke wieder eine TextBox eine, wenn du es in einzelnen If Blöcken machst dann fügt er in jede Lücke wieder eine ein.
    5. TextBox2.Visible = true
    6. ...
    7. EndIf
    8. End Sub


    Gruß Einsteiger

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

    alles umständlich
    also

    hier mal ein beispiel mit der transparenz

    If me.opacity = 1 Then
    Me.Opacity = 0.75
    Else
    Me.Opacity = 1
    End if

    If Me.opacity = 0.75 then
    me.opacity = 0.5
    else
    me.opayity = 1
    end if

    hoffe man kann mir folgen

    LG Lukas

    @ lukasoftware:

    danke, aber ich komm grad nich vorran

    Ich kann die textboxen sichtbar machen und alles:

    aber ich möchte einfach das wenn weitere eingaben nötig sind, bei button klick 2 neue textboxen erscheinen...
    wenn ich jetzt zum beispiel
    5 untereinander hab, und die eingabe aus der 3ten lösche, dass die zwei untereinander hochspringen. so dass übersichtlicher bleibt und nich so lückenvoll aussieht.

    ich verzweipfle schon fast dran -.-

    Quellcode

    VB.NET-Quellcode

    1. Public Class Form4
    7. Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Textbox3.visible = False
    10. TextBox4.Visible = False
    11. TextBox5.Visible = False
    12. TextBox6.Visible = False
    13. TextBox7.Visible = False
    14. TextBox8.Visible = False
    15. TextBox9.Visible = False
    16. TextBox10.Visible = False
    17. TextBox11.Visible = False
    18. TextBox12.Visible = False
    19. TextBox13.Visible = False
    20. TextBox14.Visible = False
    21. TextBox15.Visible = False
    22. TextBox16.Visible = False
    23. TextBox17.Visible = False
    24. TextBox18.Visible = False
    25. TextBox19.Visible = False
    26. TextBox20.Visible = False
    27. TextBox21.Visible = False
    28. TextBox22.Visible = False
    29. TextBox23.Visible = False
    30. TextBox24.Visible = False
    31. TextBox25.Visible = False
    32. TextBox26.Visible = False
    33. TextBox27.Visible = False
    34. TextBox28.Visible = False
    35. TextBox29.Visible = False
    36. TextBox30.Visible = False
    37. TextBox31.Visible = False
    38. TextBox32.Visible = False
    39. TextBox33.Visible = False
    40. TextBox34.Visible = False
    41. TextBox35.Visible = False
    42. TextBox36.Visible = False
    43. TextBox37.Visible = False
    44. TextBox38.Visible = False
    45. TextBox39.Visible = False
    46. TextBox40.Visible = False
    50. CheckBox2.Visible = False
    51. CheckBox3.Visible = False
    52. CheckBox4.Visible = False
    53. CheckBox5.Visible = False
    54. CheckBox6.Visible = False
    55. CheckBox7.Visible = False
    56. CheckBox8.Visible = False
    57. CheckBox9.Visible = False
    58. CheckBox10.Visible = False
    59. CheckBox11.Visible = False
    60. CheckBox12.Visible = False
    61. CheckBox13.Visible = False
    62. CheckBox14.Visible = False
    63. CheckBox15.Visible = False
    64. CheckBox16.Visible = False
    65. CheckBox17.Visible = False
    66. CheckBox18.Visible = False
    67. CheckBox19.Visible = False
    68. CheckBox20.Visible = False
    70. End Sub
    73. Dim Klickanzahl As Integer = 0
    75. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    78. If Klickanzahl = 0 Then
    80. TextBox3.Show()
    81. TextBox4.Show()
    82. CheckBox2.Show()
    84. Klickanzahl += 1
    86. ElseIf Klickanzahl = 1 Then
    88. TextBox5.Show()
    89. TextBox6.Show()
    90. CheckBox3.Show()
    92. Klickanzahl += 1
    94. ElseIf Klickanzahl = 2 Then
    96. TextBox7.Show()
    97. TextBox8.Show()
    98. CheckBox4.Show()
    100. Klickanzahl += 1
    102. ElseIf Klickanzahl = 3 Then
    104. TextBox9.Show()
    105. TextBox10.Show()
    106. CheckBox5.Show()
    108. Klickanzahl += 1
    109. ElseIf Klickanzahl = 4 Then
    111. TextBox11.Show()
    112. TextBox12.Show()
    113. CheckBox6.Show()
    115. Klickanzahl += 1
    117. ElseIf Klickanzahl = 5 Then
    119. TextBox13.Show()
    120. TextBox14.Show()
    121. CheckBox7.Show()
    123. Klickanzahl += 1
    125. ElseIf Klickanzahl = 6 Then
    127. TextBox15.Show()
    128. TextBox16.Show()
    129. CheckBox8.Show()
    131. Klickanzahl += 1
    133. ElseIf Klickanzahl = 7 Then
    135. TextBox17.Show()
    136. TextBox18.Show()
    137. CheckBox9.Show()
    139. Klickanzahl += 1
    141. ElseIf Klickanzahl = 8 Then
    143. TextBox19.Show()
    144. TextBox20.Show()
    145. CheckBox10.Show()
    147. Klickanzahl += 1
    149. ElseIf Klickanzahl = 9 Then
    151. TextBox21.Show()
    152. TextBox22.Show()
    153. CheckBox11.Show()
    155. Klickanzahl += 1
    157. ElseIf Klickanzahl = 10 Then
    159. TextBox23.Show()
    160. TextBox24.Show()
    161. CheckBox12.Show()
    163. Klickanzahl += 1
    165. ElseIf Klickanzahl = 11 Then
    167. TextBox25.Show()
    168. TextBox26.Show()
    169. CheckBox13.Show()
    171. Klickanzahl += 1
    173. ElseIf Klickanzahl = 12 Then
    175. TextBox27.Show()
    176. TextBox28.Show()
    177. CheckBox14.Show()
    179. Klickanzahl += 1
    181. ElseIf Klickanzahl = 13 Then
    183. TextBox29.Show()
    184. TextBox30.Show()
    185. CheckBox15.Show()
    187. Klickanzahl += 1
    189. ElseIf Klickanzahl = 14 Then
    191. TextBox31.Show()
    192. TextBox32.Show()
    193. CheckBox16.Show()
    195. Klickanzahl += 1
    197. ElseIf Klickanzahl = 15 Then
    199. TextBox33.Show()
    200. TextBox34.Show()
    201. CheckBox17.Show()
    203. Klickanzahl += 1
    205. ElseIf Klickanzahl = 16 Then
    207. TextBox35.Show()
    208. TextBox36.Show()
    209. CheckBox18.Show()
    211. Klickanzahl += 1
    213. ElseIf Klickanzahl = 17 Then
    215. TextBox37.Show()
    216. TextBox38.Show()
    217. CheckBox19.Show()
    219. Klickanzahl += 1
    221. ElseIf Klickanzahl = 18 Then
    222. TextBox39.Show()
    223. TextBox40.Show()
    224. CheckBox20.Show()
    226. Klickanzahl += 1
    228. End If
    231. End Sub
    234. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    235. If CheckBox1.Checked Then
    236. TextBox1.Visible = False
    237. TextBox2.Visible = False
    238. CheckBox1.Visible = False
    239. End If
    240. If CheckBox2.Checked Then
    241. TextBox3.Visible = False
    242. TextBox4.Visible = False
    243. CheckBox2.Visible = False
    244. End If
    245. If CheckBox3.Checked Then
    246. TextBox5.Visible = False
    247. TextBox6.Visible = False
    248. CheckBox3.Visible = False
    249. End If
    250. If CheckBox4.Checked Then
    251. TextBox7.Visible = False
    252. TextBox8.Visible = False
    253. CheckBox4.Visible = False
    254. End If
    255. If CheckBox5.Checked Then
    256. TextBox9.Visible = False
    257. TextBox10.Visible = False
    258. CheckBox5.Visible = False
    259. End If
    260. If CheckBox6.Checked Then
    261. TextBox11.Visible = False
    262. TextBox12.Visible = False
    263. CheckBox6.Visible = False
    264. End If
    265. If CheckBox7.Checked Then
    266. TextBox13.Visible = False
    267. TextBox14.Visible = False
    268. CheckBox7.Visible = False
    269. End If
    270. If CheckBox8.Checked Then
    271. TextBox15.Visible = False
    272. TextBox16.Visible = False
    273. CheckBox8.Visible = False
    274. End If
    275. If CheckBox9.Checked Then
    276. TextBox17.Visible = False
    277. TextBox18.Visible = False
    278. CheckBox9.Visible = False
    279. End If
    280. If CheckBox10.Checked Then
    281. TextBox19.Visible = False
    282. TextBox20.Visible = False
    283. CheckBox10.Visible = False
    284. End If
    285. If CheckBox11.Checked Then
    286. TextBox21.Visible = False
    287. TextBox22.Visible = False
    288. CheckBox11.Visible = False
    289. End If
    290. If CheckBox12.Checked Then
    291. TextBox23.Visible = False
    292. TextBox24.Visible = False
    293. CheckBox12.Visible = False
    294. End If
    295. If CheckBox13.Checked Then
    296. TextBox25.Visible = False
    297. TextBox26.Visible = False
    298. CheckBox13.Visible = False
    299. End If
    300. If CheckBox14.Checked Then
    301. TextBox27.Visible = False
    302. TextBox28.Visible = False
    303. CheckBox14.Visible = False
    304. End If
    305. If CheckBox15.Checked Then
    306. TextBox29.Visible = False
    307. TextBox30.Visible = False
    308. CheckBox15.Visible = False
    309. End If
    310. If CheckBox16.Checked Then
    311. TextBox31.Visible = False
    312. TextBox32.Visible = False
    313. CheckBox16.Visible = False
    314. End If
    315. If CheckBox17.Checked Then
    316. TextBox33.Visible = False
    317. TextBox34.Visible = False
    318. CheckBox17.Visible = False
    319. End If
    320. If CheckBox18.Checked Then
    321. TextBox35.Visible = False
    322. TextBox36.Visible = False
    323. CheckBox18.Visible = False
    324. End If
    325. If CheckBox19.Checked Then
    326. TextBox37.Visible = False
    327. TextBox38.Visible = False
    328. CheckBox19.Visible = False
    329. End If
    330. If CheckBox20.Checked Then
    331. TextBox39.Visible = False
    332. TextBox40.Visible = False
    333. CheckBox20.Visible = False
    334. End If
    343. End Sub
    344. End Class



    Edit by der_Kurt:
    Bei längeren Codes verwende bitte den Expander-Tag. Es ist grausam, sich an 340 Zeilen Code vorbeiscrollen zu müssen, wenn man weiterlesen will.
    * Expander-Tag eingefügt *

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

    ja funktionieren tut es ja... aber guck mal

    ich hab die klickanzahl bestimmt, z.b. beim 6ten klick, halt die 6 textbox erstellen... und wenn man nich mehr mehr braucht, den wert von textbox3 löscht, durch die checkbox, dass bei einem weiteren button klick, dort die textbox ersetzt wird un hinkommt, anstatt bei textbox7
    verstehst du mein kompliziertes problem??

    Du nimmst einfach das TextBox VisibleChanged - Event und sagst allen Textboxen unter der die Visible = False wird, dass sie hochrückensollen mit textBox4.Top += 25 (oder wie weit du sie halt hochrücken lassen willst. Das musst du halt Für jede Textbox machen. Das ist aufwändig.

    danke! ...

    kannst mir ein beispielcode geben für eine textbox?

    aber mein programmcode bisher scheint rihctig zu sein?


    ihc muss jetzt nur dasTextbox3.top += 25

    bei jeden einfügen
    oder soll noch was kommen?

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

Facebook
Telefonspende