WPF窗口及控件自动调整大小问题求助（VB.net）

核心调整思路 #

你当前布局里的ViewBox是阻碍自适应的关键——它是按比例缩放内容而非让控件根据自身尺寸动态调整。结合需求，我们可以通过调整布局结构、配置控件属性实现完全自动的尺寸适配：

• 移除ViewBox，改用ScrollViewer直接包裹Grid，让布局基于控件实际尺寸流动
• 配置Grid行定义，让DataGrid所在行高度随内容自动变化，Button行自动跟随
• 关闭DataGrid内部滚动，强制它根据行总数计算自身高度
• 设置窗口自动适配内容，让窗口高度随内部控件尺寸变化自动调整

具体实现代码 #

XAML布局示例

<Window x:Class="YourWindowClass"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        <!-- 窗口自动适配内容宽高 -->
        SizeToContent="WidthAndHeight"
        <!-- 可选：设置最小窗口尺寸防止过小 -->
        MinWidth="600" MinHeight="300">
    <ScrollViewer VerticalScrollBarVisibility="Auto"
                  HorizontalScrollBarVisibility="Auto">
        <Grid Margin="10">
            <Grid.RowDefinitions>
                <!-- 顶部控件行：高度自动适应内容 -->
                <RowDefinition Height="Auto"/>
                <!-- DataGrid行：高度自动适应内容 -->
                <RowDefinition Height="Auto"/>
                <!-- Button行：高度自动适应内容 -->
                <RowDefinition Height="Auto"/>
            </Grid.RowDefinitions>

            <!-- 顶部Label、TextBox等控件示例 -->
            <StackPanel Grid.Row="0" Orientation="Horizontal" Margin="0 0 0 10">
                <Label Content="输入内容：" Margin="0 0 5 0"/>
                <TextBox Width="200"/>
            </StackPanel>

            <!-- DataGrid配置：禁止内部垂直滚动，让高度随内容变化 -->
            <DataGrid x:Name="YourDataGrid"
                      Grid.Row="1"
                      Margin="0 0 0 10"
                      VerticalScrollBarVisibility="Disabled"
                      AutoGenerateColumns="True"
                      <!-- 可选：设置列宽自动适配 -->
                      AutoGeneratingColumn="YourDataGrid_AutoGeneratingColumn"/>

            <!-- Button自动跟随DataGrid下方 -->
            <Button Grid.Row="2" Content="提交" Width="100" HorizontalAlignment="Right"/>
        </Grid>
    </ScrollViewer>
</Window>

VB.net代码补充

确保DataTable绑定正确，数据更新时UI能及时响应：

' 在窗口类中初始化DataTable并绑定
Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    Dim dt As New DataTable()
    ' 添加测试列
    dt.Columns.Add("ID", GetType(Integer))
    dt.Columns.Add("Name", GetType(String))
    
    ' 绑定到DataGrid
    YourDataGrid.ItemsSource = dt.DefaultView
End Sub

' 可选：DataGrid列宽自动适配事件
Private Sub YourDataGrid_AutoGeneratingColumn(sender As Object, e As DataGridAutoGeneratingColumnEventArgs)
    e.Column.Width = New DataGridLength(1, DataGridLengthUnitType.Auto)
End Sub

关键要点说明 #

1. ViewBox的问题：ViewBox会将所有内容按比例缩放，忽略控件实际需要的尺寸，导致DataGrid无法根据行数自动扩展高度，因此必须移除。
2. Grid行的Height设置：Height="Auto"会让行高完全由内部控件的实际高度决定，DataGrid扩展时，Grid的行高会同步变大，Button所在的行自然会被挤到下方。
3. DataGrid的VerticalScrollBarVisibility：设为Disabled后，DataGrid不会出现内部垂直滚动条，而是根据总行数计算自身高度，直到所有行都能显示，此时Grid的行高会适配这个高度。
4. 窗口SizeToContent：设为WidthAndHeight后，窗口会自动计算内部所有控件的总尺寸，调整自身宽高，无需硬编码设置Height属性。

如果需要限制窗口最大高度，可以给窗口添加MaxHeight属性，当内容超过最大高度时，外层的ScrollViewer会显示滚动条，保证内容可访问。

内容的提问来源于stack exchange，提问作者mmartinez04