Visual Basic调整富文本框的大小

时间:2014-04-29 06:07:45

标签: vb.net text widget

我正在试图弄清楚如何制作这些小部件,在我的例子中,两个Rich Text框小部件保持固定在适当的位置,这样我就可以调整它们所在的形状并且不会丢失它的间距。这里有一些屏幕上限,以更好地显示我在说什么。 enter image description here

在我运行它之前,上面是我的窗体在visual studio中的样子。这也是我希望我的表单看起来的样子。我希望保留两个富文本框之间的空格。

enter image description here

以上是我运行此程序时会发生的事情。我的问题是如何设置说“锚点”或类似的东西来保持小部件到位,这样当我调整窗体大小时它将保留间距。换句话说,当我运行程序时,它看起来与第一张图像中的相同。

完整代码:(我不确定这是否会有所帮助,但这就是我所拥有的)

Public Class Form1
    'Decloration 
    Private widthOffset As Integer = 30
    Private heightOffset As Integer = 30

    Private preWidth As Integer
    Private preHeight As Integer
    Private postWidth As Integer
    Private postHeight As Integer


    Private Sub RichTextBox1_Resize(sender As Object, e As EventArgs) Handles RichTextBox1.Resize
        RichTextBox1.Width = Me.Width - widthOffset
        RichTextBox1.Height = Me.Height - heightOffset

        RichTextBox2.Width = Me.Width - widthOffset
        RichTextBox2.Height = Me.Height - heightOffset

    End Sub

    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        RichTextBox1.Width = Me.Width - widthOffset
        RichTextBox1.Height = Me.Height - heightOffset

        RichTextBox2.Width = Me.Width - widthOffset
        RichTextBox2.Height = Me.Height - heightOffset

    End Sub
End Class

1 个答案:

答案 0 :(得分:2)

在WinForms中,您可以将控件添加到TableLayoutPanel,将每个控件的ColumnStyles设置为绝对大小或百分比大小,以便它们保持相同的大小或调整容器的大小。调整大小。

更多信息:Walkthrough: Arranging Controls on Windows Forms Using a TableLayoutPanel

  

FlowLayoutPanel控件和TableLayoutPanel控件提供   直观的方式来安排表单上的控件。两者都提供了   自动,可配置的控制相对位置的能力   包含在其中的子控件,并且都为您提供动态布局   运行时的功能,因此他们可以调整大小和重新定位子控件   随着父表单的维度发生变化。布局面板可以   嵌套在布局面板中,以实现   复杂的用户界面。