RTB Fullscreen

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    RTB Fullscreen

    Hallo Leute,
    wie kann ich die Richtextbox in meiner Form durch einen Button auf die volle Größe der Form bringen und wieder zurück durch Button oder Klick.
    Geht um bessere Lesbarkeit des Textes
    Die RTB nimmt jetzt circa ein Viertel der Größe der Form ein und soll über alles drüber den ganzen Platz einnehmen, und evtl. noch die Schriftgrösse erhöhen

    Danke für Hilfe

    Button-Click abbonnieren, darin die Size-Property der RTB setzen. Wann du vergrößerst und wann verkleinerst hältst du in einer Flag fest, oder abhängig von der bestehenden Size.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    estrichbeton schrieb:

    wie kann ich die Richtextbox in meiner Form durch einen Button auf die volle Größe der Form bringen und wieder zurück
    Zuerst merkst du dir die .Location-Eigenschaft und die .Size-Eigenschaft deiner RTB.
    Dann setzt du die .Location-Eigenschaft auf die linke obere Ecke deiner Form. (= New Point(0, 0))
    Als Nächstes übernimmst du die .Size-Eigenschaft deiner Form für die .Size-Eigenschaft der RTB.
    Die RTB musst du aber im Vordergrund halten.
    Einen Nachteil hat das Ganze Vorgehen - du wirst auch deinen Bedienbutton mit der RTB überdecken...
    Da wäre vielleicht ein ContextMenü der RTB vorzuziehen.
    Wenn wieder Retour die gemerkten Eigenschaften anwenden...

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VB1963“ ()

    estrichbeton schrieb:

    bessere Lesbarkeit des Textes
    da müsstest Du die Fontgröße ändern, das ist aber, sofern der RichText in sich verschieden formatiert ist, nicht trivial.
    Also:
    Form mit 2 Button, 2 Panels und einer RTB.
    Panel2 füllt die Form aus, Panel1 ist Member von Panel2 und ist klein.
    Panel2 bekommt die RTB mit Dock = Fill.
    Nun wird mit dem Button nur noch die RTB zwischen den Panels hin- und her geschoben. Das mit Visible = True / False ist nötig, da sonst das Panel vor der RTB liegen würde:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Panel1.Visible = True
    3. Panel1.Controls.Add(Me.RichTextBox1)
    4. End Sub
    6. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    7. Panel2.Controls.Add(Me.RichTextBox1)
    8. Panel1.Visible = False
    9. End Sub
    Form1.Designer.vb

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    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.Button1 = New System.Windows.Forms.Button()
    26. Me.Panel1 = New System.Windows.Forms.Panel()
    27. Me.Panel2 = New System.Windows.Forms.Panel()
    28. Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
    29. Me.Button2 = New System.Windows.Forms.Button()
    30. Me.Panel1.SuspendLayout()
    31. Me.Panel2.SuspendLayout()
    32. Me.SuspendLayout()
    33. '
    34. 'Button1
    35. '
    36. Me.Button1.Location = New System.Drawing.Point(13, 13)
    37. Me.Button1.Name = "Button1"
    38. Me.Button1.Size = New System.Drawing.Size(75, 23)
    39. Me.Button1.TabIndex = 0
    40. Me.Button1.Text = "Button1"
    41. Me.Button1.UseVisualStyleBackColor = True
    42. '
    43. 'Panel1
    44. '
    45. Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    46. Me.Panel1.Controls.Add(Me.RichTextBox1)
    47. Me.Panel1.Location = New System.Drawing.Point(3, 3)
    48. Me.Panel1.Name = "Panel1"
    49. Me.Panel1.Size = New System.Drawing.Size(218, 178)
    50. Me.Panel1.TabIndex = 1
    51. '
    52. 'Panel2
    53. '
    54. Me.Panel2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    55. Or System.Windows.Forms.AnchorStyles.Left) _
    56. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    57. Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
    58. Me.Panel2.Controls.Add(Me.Panel1)
    59. Me.Panel2.Location = New System.Drawing.Point(13, 42)
    60. Me.Panel2.Name = "Panel2"
    61. Me.Panel2.Size = New System.Drawing.Size(694, 370)
    62. Me.Panel2.TabIndex = 0
    63. '
    64. 'RichTextBox1
    65. '
    66. Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
    67. Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
    68. Me.RichTextBox1.Name = "RichTextBox1"
    69. Me.RichTextBox1.Size = New System.Drawing.Size(218, 178)
    70. Me.RichTextBox1.TabIndex = 0
    71. Me.RichTextBox1.Text = ""
    72. '
    73. 'Button2
    74. '
    75. Me.Button2.Location = New System.Drawing.Point(94, 12)
    76. Me.Button2.Name = "Button2"
    77. Me.Button2.Size = New System.Drawing.Size(75, 23)
    78. Me.Button2.TabIndex = 1
    79. Me.Button2.Text = "Button2"
    80. Me.Button2.UseVisualStyleBackColor = True
    81. '
    82. 'Form1
    83. '
    84. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    85. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    86. Me.ClientSize = New System.Drawing.Size(719, 424)
    87. Me.Controls.Add(Me.Button2)
    88. Me.Controls.Add(Me.Panel2)
    89. Me.Controls.Add(Me.Button1)
    90. Me.Name = "Form1"
    91. Me.Text = "Form1"
    92. Me.Panel1.ResumeLayout(False)
    93. Me.Panel2.ResumeLayout(False)
    94. Me.ResumeLayout(False)
    96. End Sub
    97. Friend WithEvents Button1 As System.Windows.Forms.Button
    98. Friend WithEvents Panel1 As System.Windows.Forms.Panel
    99. Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
    100. Friend WithEvents Panel2 As System.Windows.Forms.Panel
    101. Friend WithEvents Button2 As System.Windows.Forms.Button
    103. End Class

    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!

    Ich habe es jetzt gelöst mit einem Button für "Vollbild" und Doppelclick für ursprüngliche Größe.

    Danke für Eure Hilfe

    VB.NET-Quellcode

    1. Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
    3. ' Original Position 19,41 Size 641,406
    5. RichTextBox1.Location = (New Point(0, 0))
    6. RichTextBox1.Size = (New Size(1266, 849))
    7. RichTextBox1.BringToFront()
    8. End Sub
    10. Private Sub RichTextBox1_MouseDown(ByVal sender As Object, _
    11. ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDoubleClick
    13. RichTextBox1.Location = (New Point(19, 41))
    14. RichTextBox1.Size = (New Size(641, 406))
    16. End Sub

    estrichbeton schrieb:

    ursprüngliche Größe
    Wo kommt die denn in Deinem Snippet her?
    Was passiert, wenn Du Deine Form in ihrer Größe veränderst?
    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!

    RodFromGermany schrieb:

    estrichbeton schrieb:

    ursprüngliche Größe
    Wo kommt die denn in Deinem Snippet her?
    Was passiert, wenn Du Deine Form in ihrer Größe veränderst?


    Die Größe der Form wird nicht verändert.
    Sollte die Anwendung irgendwann man laufen wird sie auf Geräten mit festen Werten instaliert.

    ....aber ich verstehe das Problem und werde das mal ausprobieren.
    Vielen Dank

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

    estrichbeton schrieb:

    wird nicht verändert
    Solche Aussagen sind einfach nicht richtig. :D
    Wenn Du Dich gleich bemühst, so was variabel zu machen, ersparst Du Dir viel Nacharbeit.
    Du kannst die Form im Designer in ihrer Größe verändern, da siehst Du z.B. sofort, wenn ein Control die falsche Anchor-Property hat.
    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!