Möglichkeiten zur Größenanpassung von Steuerelementen in veränderbaren Fenstern?

Question

Ich habe zwei DataGridView-Steuerelemente, mit drei Schaltflächen vertikal zwischen ihnen, in einem VB 2005-Formular, das in der Größe geändert werden muss.

Der folgende Code funktioniert und macht was ich will. Es nimmt den Unterschied zwischen der neuen Größe und der Standardgröße, teilt den Höhenunterschied zwischen den beiden DataGridViews auf und bewegt die Dinge richtig herum.

Was mich daran hindert, ist, dass ich die Standardeinstellungen in den ResizeEnd-Handler hart-codiert habe. Wie würde ich die Standardgröße überschreiten, damit ich mich nicht wiederhole?

Noch besser, gibt es eine Möglichkeit, es mit Ankern, Andocken und anderen Sachen zu tun, so dass ich nicht einmal Code schreiben muss?

Vielen Dank im Voraus!

Private Sub dlgShowAssets_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd 


    Dim defaultWindowSize As New System.Drawing.Size(759, 619) 
    Dim defaultAssetDGVSize As New System.Drawing.Size(730, 153) 
    Dim defaultAssetDGVPos As New System.Drawing.Point(9, 186) 

    Dim defaultButton1Pos As New System.Drawing.Point(9, 345) 
    Dim defaultButton2Pos As New System.Drawing.Point(100, 345) 
    Dim defaultButton3Pos As New System.Drawing.Point(191, 345) 

    Dim defaultDetailDGVSize As New System.Drawing.Size(730, 177) 
    Dim defaultDetailDGVPos As New System.Drawing.Point(9, 374) 

    Dim deltaX As Integer = Me.Size.Width - defaultWindowSize.Width 
    Dim deltaY As Integer = Me.Size.Height - defaultWindowSize.Height 
    Dim deltaSize As New System.Drawing.Size(deltaX, deltaY/2) 
    Dim deltaPos As New System.Drawing.Point(0, deltaY/2) 


    Me.AssetDataGridView.Size = defaultAssetDGVSize + deltaSize 

    Me.btnAddAsset.Location = defaultButton1Pos + deltaPos 
    Me.btnEditAsset.Location = defaultButton2Pos + deltaPos 
    Me.btnDeleteAsset.Location = defaultButton3Pos + deltaPos 

    Me.AssetIdentifierDataGridView.Size = defaultDetailDGVSize + deltaSize 
    Me.AssetIdentifierDataGridView.Location = defaultDetailDGVPos + deltaPos 

End Sub 

Answer 1

Sie können das TableLayoutPanel-Steuerelement verwenden.