Click Event funktioniert auf anderen PCs nicht, bei mir jedoch schon?

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Click Event funktioniert auf anderen PCs nicht, bei mir jedoch schon?

    Hallo :)

    Und zwar hab ich in meinem Project ein ".MouseDoubleClick" Event, welches bei Doppelklick auf Textboxen diese vergrößert/verkleinert.

    Ganz simpel.

    Problem: Bei mir funktioniert das alles wunderbar (Sowohl während des Debuggings, als auch wenn ich die compilierte Exe ausführe)
    Auf anderen PCs (zwei hab ich jetzt getestet, bei beiden das selbe Resultat) funktioniert alles wunderbar, bis auf diese ".MouseDoubleClick" Events.
    Leider weiß ich nicht, warum das bei mir einwandfrei funktioniert, auf anderen PCs/Laptops aber nicht :/
    Weiß da jemand was?

    PS: alle anderen Funktionalitäten funktionieren auch auf den anderen PCs
    Danke!

    Grüße,
    Kevin

    Viercnt schrieb:

    diese ".MouseDoubleClick" Events
    kommen in welchem Code vor?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hier ist der Code den ich verwende:

    VB.NET-Quellcode

    1. Private Sub txt_Resize_MouseClick(sender As Object, e As MouseEventArgs) Handles txt_AFSusceptibility.MouseDoubleClick, txt_BH.MouseDoubleClick, txt_BP.MouseDoubleClick, ... [ein paar mehr Doubleclick Handler]
    3. Dim send As TextBox = TryCast(sender, TextBox)
    4. Dim SmallSize As Size = New Size(250, 20)
    5. Dim BigSize As Size = New Size(250, 120)
    6. Dim StartColor As Color
    8. If send.Size = SmallSize Then
    9. send.Multiline = True
    10. send.Parent.Size = New Size(434, 122)
    11. send.Size = New Size(250, 120)
    13. If cb_highlight.CheckState Then
    14. StartColor = send.BackColor
    15. send.BackColor = Color.Orange
    16. End If
    17. ElseIf send.Size = BigSize Then
    18. send.Multiline = False
    19. send.Size = New Size(250, 20)
    20. send.Parent.Size = New Size(434, 24)
    21. send.BackColor = StartColor
    22. End If
    23. End Sub


    PSS: Die Textboxen liegen auf Panels, in einem FlowLayoutPanel, ich resize die panels über send.parent.size dynamisch mit => Funktioniert (bei mir) auch super, aber wie gesagt, auf einem anderen PC nicht ^^'
    Danke!

    Grüße,
    Kevin

    @Viercnt Wie äußert sich das Nicht-Funktionieren? Mach da ggf. ne MessageBox rein.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Viercnt schrieb:

    ne Idee?

    RodFromGermany schrieb:

    Mach da ggf. ne MessageBox rein.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    So, endlich wieder im Büro.

    Habe mal Div. Messageboxen ausprobiert.

    Test 1:

    Visual Basic-Quellcode

    1. Private Sub txt_Resize_MouseClick(sender As Object, e As MouseEventArgs) Handles txt_AFSusceptibility.MouseDoubleClick, txt_BH.MouseDoubleClick, txt_BP.MouseDoubleClick, ... [ein paar mehr Doubleclick Handler]
    3. Dim send As TextBox = TryCast(sender, TextBox)
    4. Dim SmallSize As Size = New Size(250, 20)
    5. Dim BigSize As Size = New Size(250, 120)
    6. Dim StartColor As Color
    8. [b]Messagebox.Show("Test")[/b]
    10. If send.Size = SmallSize Then
    11. send.Multiline = True
    12. send.Parent.Size = New Size(434, 122)
    13. send.Size = New Size(250, 120)
    15. If cb_highlight.CheckState Then
    16. StartColor = send.BackColor
    17. send.BackColor = Color.Orange
    18. End If
    19. ElseIf send.Size = BigSize Then
    20. send.Multiline = False
    21. send.Size = New Size(250, 20)
    22. send.Parent.Size = New Size(434, 24)
    23. send.BackColor = StartColor
    24. End If
    25. End Sub

    Ergebnis: Doubleclick Event wird offensichtlich ausgelöst, Textbox wird nämlich angezeigt. Der Kram danach wird aber nicht abgefahren (Also auf den beiden anderen Rechnern, bei mir funktioniert es perfekt!)

    Test 2:

    Visual Basic-Quellcode

    1. Private Sub
    2. txt_Resize_MouseClick(sender As Object, e As MouseEventArgs) Handles
    3. txt_AFSusceptibility.MouseDoubleClick, txt_BH.MouseDoubleClick,
    4. txt_BP.MouseDoubleClick, ... [ein paar mehr Doubleclick Handler]
    6. Dim send As TextBox = TryCast(sender, TextBox)
    7. Dim SmallSize As Size = New Size(250, 20)
    8. Dim BigSize As Size = New Size(250, 120)
    9. Dim StartColor As Color
    11. If send.Size = SmallSize Then
    12. [b]Messagebox.Show("Test")[/b]
    13. send.Multiline = True
    14. send.Parent.Size = New Size(434, 122)
    15. send.Size = New Size(250, 120)
    17. If cb_highlight.CheckState Then
    18. StartColor = send.BackColor
    19. send.BackColor = Color.Orange
    20. End If
    21. ElseIf send.Size = BigSize Then
    22. send.Multiline = False
    23. send.Size = New Size(250, 20)
    24. send.Parent.Size = New Size(434, 24)
    25. send.BackColor = StartColor
    26. End If
    27. End Sub

    Ergebnis: Bei mir voll funktionsfähig, bei den beiden anderen PCs geschiet erneut nichts! (gar nichts, auch keine Messagebox)

    3. Test:

    Visual Basic-Quellcode

    1. Private Sub
    2. txt_Resize_MouseClick(sender As Object, e As MouseEventArgs) Handles
    3. txt_AFSusceptibility.MouseDoubleClick, txt_BH.MouseDoubleClick,
    4. txt_BP.MouseDoubleClick, ... [ein paar mehr Doubleclick Handler]
    6. Dim send As TextBox = TryCast(sender, TextBox)
    7. Dim SmallSize As Size = New Size(250, 20)
    8. Dim BigSize As Size = New Size(250, 120)
    9. Dim StartColor As Color
    11. If send.Size = SmallSize Then
    12. send.Multiline = True
    13. send.Parent.Size = New Size(434, 122)
    14. send.Size = New Size(250, 120)
    16. If cb_highlight.CheckState Then
    17. StartColor = send.BackColor
    18. send.BackColor = Color.Orange
    19. End If
    20. ElseIf send.Size = BigSize Then
    21. [b]Messagebox.Show("Test")[/b]
    22. send.Multiline = False
    23. send.Size = New Size(250, 20)
    24. send.Parent.Size = New Size(434, 24)
    25. send.BackColor = StartColor
    26. End If
    27. End Sub

    Ergebnis: Bei mir funktioniert das minimieren auch wieder wunderbar (Mit Msgbox natürlich), auf den beiden anderen PCs, komischerweise, kommt bei erstem Doppelklick (Der eigentlich maximieren sollte) nur die TextBox, jedoch wird nichts maximiert/minimiert :/

    bin langsam echt überfragt :(
    jmd. ne Idee?
    Danke!

    Grüße,
    Kevin

    Viercnt schrieb:

    jmd. ne Idee?
    Offensichtlich haben die Controls eine andere Größe.
    Nach If und ElseIf musst Du noch ein Else einfügen und nachsehen, was da passiert ist:

    VB.NET-Quellcode

    1. If send.Size = SmallSize Then
    2. ' ...
    3. ElseIf send.Size = BigSize Then
    4. ' ...
    5. Else
    6. MessageBox.Show(send.Size.ToString)
    7. End If
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!