C# winform 控件定位随着窗体的变化而变化解决方案

C# winform 控件定位随着窗体的变化而变化
目前的窗体为 C# winform 控件定位随着窗体的变化而变化解决方案
我最大化后的窗体为

现在是里面的图标根本就没有等比例改为显示位置，加急求解，在线等！！！谢谢高手助解决此问题！！！
[解决办法]


Public Class Form1
    Dim x As Single = 0
    Dim y As Single = 0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '得到原始窗体大小
        x = Me.Width
        y = Me.Height
        setTag(Me)
    End Sub
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        '得到现在窗体的大小，然后根据原始大小计算缩放比例
        Dim newx As Single = Me.Width / x
        Dim newy As Single = Me.Height / y
        setControls(newx, newy, Me)
    End Sub
    '递归取控件的原始大小和位置，用tag来纪录
    Private Sub setTag(ByVal obj As Object)
        For Each con As Control In obj.Controls
            con.Tag = con.Width & ":" & con.Height & ":" & con.Left & ":" & con.Top & ":" & con.Font.Size
            '如果是容器控件，则递归继续纪录
            If con.Controls.Count &gt; 0 Then
                setTag(con)
            End If
        Next
    End Sub
    '递归重新设定控件的大小和位置
    Private Sub setControls(ByVal newx As Single, ByVal newy As Single, ByVal obj As Object)
        For Each con As Control In obj.Controls
            con.AutoSize = False
            Dim mytag() As String = con.Tag.ToString.Split(":")
            con.Width = mytag(0) * newx
            con.Height = mytag(1) * newy
            con.Left = mytag(2) * newx
            con.Top = mytag(3) * newy
            '计算字体缩放比例，缩放字体
            Dim currentSize As Single = (mytag(1) * newy * mytag(4)) / mytag(1)
            con.Font = New Font(con.Font.Name, currentSize, _
                con.Font.Style, con.Font.Unit)
            '如果是容器控件，则递归继续缩放
            If con.Controls.Count &gt; 0 Then
                setControls(newx, newy, con)
            End If
        Next

    End Sub
End Class

这段代码是COPY网上的,可以借鉴下思路
[解决办法]

引用:

Quote: 引用:

 
 
Public Class Form1
    Dim x As Single = 0
    Dim y As Single = 0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '得到原始窗体大小
        x = Me.Width
        y = Me.Height
        setTag(Me)
    End Sub
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        '得到现在窗体的大小，然后根据原始大小计算缩放比例
        Dim newx As Single = Me.Width / x
        Dim newy As Single = Me.Height / y
        setControls(newx, newy, Me)
    End Sub
    '递归取控件的原始大小和位置，用tag来纪录
    Private Sub setTag(ByVal obj As Object)
        For Each con As Control In obj.Controls
            con.Tag = con.Width & ":" & con.Height & ":" & con.Left & ":" & con.Top & ":" & con.Font.Size
            '如果是容器控件，则递归继续纪录
            If con.Controls.Count &gt; 0 Then
                setTag(con)
            End If
        Next
    End Sub
    '递归重新设定控件的大小和位置
    Private Sub setControls(ByVal newx As Single, ByVal newy As Single, ByVal obj As Object)
        For Each con As Control In obj.Controls
            con.AutoSize = False
            Dim mytag() As String = con.Tag.ToString.Split(":")
            con.Width = mytag(0) * newx
            con.Height = mytag(1) * newy
            con.Left = mytag(2) * newx
            con.Top = mytag(3) * newy
            '计算字体缩放比例，缩放字体
            Dim currentSize As Single = (mytag(1) * newy * mytag(4)) / mytag(1)
            con.Font = New Font(con.Font.Name, currentSize, _
                con.Font.Style, con.Font.Unit)
            '如果是容器控件，则递归继续缩放
            If con.Controls.Count &gt; 0 Then
                setControls(newx, newy, con)
            End If
        Next

    End Sub
End Class

这段代码是COPY网上的,可以借鉴下思路

这个是差不多是可以根据窗体的大小而更改显示位置的，但他把我的控件大小也给更改了啊，能不能不要改更控件的大小啊

public static void AutoScale(Form frm)
        {
            frm.Tag = frm.Width.ToString() + "," + frm.Height.ToString();
            frm.SizeChanged += new EventHandler(frm_SizeChanged);
        }

        static void frm_SizeChanged(object sender, EventArgs e)
        {
            string[] tmp = ((Form)sender).Tag.ToString().Split(',');
            float width = (float)((Form)sender).Width / (float)Convert.ToInt16(tmp[0]);
            float heigth = (float)((Form)sender).Height / (float)Convert.ToInt16(tmp[1]);

            ((Form)sender).Tag = ((Form)sender).Width.ToString() + "," + ((Form)sender).Height; 
 

            foreach (Control control in ((Form)sender).Controls)
            {
                control.Scale(new SizeF(width, heigth));

            }
        }

这个也可以实现的，但同样也是更改了控件的大小了，这样就不是我所需要的啦

代码里面不是有控件的缩放吗?你把那段代码注释掉试下...
[解决办法]
第一种按比例位置对齐


public static void AutoScale(Form frm)
        {
            frm.Tag = frm.Width.ToString() + "," + frm.Height.ToString();
            frm.SizeChanged += new EventHandler(frm_SizeChanged);
        }

        static void frm_SizeChanged(object sender, EventArgs e)
        {
            string[] tmp = ((Form)sender).Tag.ToString().Split(',');
            float width = (float)((Form)sender).Width / (float)Convert.ToInt16(tmp[0]);
            float heigth = (float)((Form)sender).Height / (float)Convert.ToInt16(tmp[1]);

            ((Form)sender).Tag = ((Form)sender).Width.ToString() + "," + ((Form)sender).Height;

            foreach (Control control in ((Form)sender).Controls)
            {
                control.Location =new Point((int) (control.Location.X * width +  (width-1)* control.Width/2),(int)(control.Location.Y * heigth + (heigth - 1) * control.Height/2));
            }
        }

第二种按绝对位置对齐，我觉得你想要的可能是第二种，除了中的图标代码实现，其他的可以设置Anchor属性实现。


public static void AutoScale(Form frm)
        {
            frm.Tag = frm.Width.ToString() + "," + frm.Height.ToString();
            frm.SizeChanged += new EventHandler(frm_SizeChanged);
            foreach (Control control in frm.Controls)
            {
                if (control.Anchor==AnchorStyles.None)
                {
                    control.Tag = control.Top.ToString() + "," + control.Left.ToString();
                }
            }
        }

        static void frm_SizeChanged(object sender, EventArgs e)
        {
            string[] tmp = ((Form)sender).Tag.ToString().Split(',');
            float width = (float)((Form)sender).Width / (float)Convert.ToInt16(tmp[0]);
            float heigth = (float)((Form)sender).Height / (float)Convert.ToInt16(tmp[1]);

            ((Form)sender).Tag = ((Form)sender).Width.ToString() + "," + ((Form)sender).Height;

            foreach (Control control in ((Form)sender).Controls)
            {
                 if (control.Anchor==AnchorStyles.None)
                {
                    string[] coltmp=control.Tag.ToString().Split(',');
                    control.Left = (int)(Convert.ToInt16(coltmp[1]) * width + control.Width / 2 * (width - 1)); 
 
                    control.Top = (int)(Convert.ToInt16(coltmp[0]) * heigth + control.Height / 2 * (heigth - 1));
                    control.Tag = control.Top.ToString() + "," + control.Left.ToString();
                }

            }
        }

C# winform 控件定位随着窗体的变化而

热点推荐