Form Öffnen und an Anderer Form Fixieren

  • VB.NET
  • .NET (FX) 4.0

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Pasta.

    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    @xX-Nick-Xx Du musst die Location des Slave-Dialogs bei Move und Resize des Master-Dialogs nachziehen.
    Achte auf Minimize.
    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!

    Hab es nun so Gelöst :D

    VB.NET-Quellcode

    1. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    2. If Button7.Text = ("►") Then
    3. Me.Size = New Size(1059, 761)
    4. Button7.Text = ("◄")
    5. Else
    6. Button7.Text = ("►")
    7. Me.Size = New Size(714, 761)
    8. End If
    9. End Sub


    Danke für eure Hilfe :)

    Das ergibt aber nur bei vorgegebener Formgröße Sinn, du verbaust dir jegliche Flexibilität.
    Sei es drum. :D
    Irgendeinen Status über Control.Name abzufragen ist nicht gut, ich habe das ganze mal mit einer Property gelöst.:

    Code

    VB.NET-Quellcode

    1. Public Class FormMain
    3. Private defaultFormWidth As Integer = 430
    4. Private extenderWidth As Integer = 200
    6. Private _formExtended As Boolean = False
    7. Private Property FormExtended() As Boolean
    8. Get
    9. Return _formExtended
    10. End Get
    11. Set(value As Boolean)
    12. _formExtended = value
    13. ToggleFormExtender(extenderWidth)
    14. End Set
    15. End Property
    17. Private Sub ToggleFormExtender(ByVal ExWidth As Integer)
    18. If FormExtended Then
    19. Width = Width + ExWidth
    20. PanelExtendedForm.Width = ExWidth
    21. Else
    22. Width = Width - ExWidth
    23. PanelExtendedForm.Width = 0
    24. End If
    25. End Sub
    27. Private Sub FormMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    28. Width = defaultFormWidth
    29. With ButtonToggleEx
    30. .Width = 23
    31. .Height = 23
    32. .Text = "►"
    33. End With
    34. PanelExtendedForm.BackColor = SystemColors.ActiveCaption
    35. FormExtended = My.Settings.FormExtended
    36. LabelStatusEx.Text = _formExtended.ToString
    37. End Sub
    39. Private Sub ButtonToggleEx_Click(sender As Object, e As EventArgs) Handles ButtonToggleEx.Click
    40. If FormExtended Then
    41. ButtonToggleEx.Text = "►"
    42. FormExtended = False
    43. Else
    44. ButtonToggleEx.Text = "◄"
    45. FormExtended = True
    46. End If
    47. LabelStatusEx.Text = _formExtended.ToString
    48. End Sub
    50. Private Sub FormMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize
    51. If FormExtended Then
    52. ButtonToggleEx.Location = New Point((Width - extenderWidth - 48), 12)
    53. Else
    54. ButtonToggleEx.Location = New Point((Width - 48), 12)
    55. End If
    56. End Sub
    57. End Class


    Das ist wesentlich flexibler, z.B. kann jederzeit der Status als Boolean abgefragt werden.
    edit: Ich habe es nochmal leicht überarbeitet und eine Testsolution angehängt.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Pasta“ ()

Facebook
Telefonspende