可以用窗体的Resize事件来实现,改变窗体大小时,控件大小跟窗体成比例,不过如果最小化的时候就会出错,所以还得腊笑把最小化的事件给去了,代码如下:\x0d\x0aPrivate Sub Form_Resize()\x0d\x0aIf Me.WindowState 1 Then '如果不是最小亩局烂化\x0d\x0aCommand1.Width = Me.Width / 5 '按钮宽度是窗体的1/5\x0d\x0aCommand1.Height = Me.Height / 5 '按钮高度是窗体的1/5\x0d\x0aEnd If\x0d\x0aEnd Sub\x0d\x0a参数可以自己设定,其它的也是如此,细节还得自己弄了,如果想让控件居中可以这样:\x0d\x0aPrivate Sub Form_Resize()\x0d\x0aIf Me.WindowState 1 Then '如果不是迅漏最小化\x0d\x0aCommand1.Width = Me.Width / 5 '按钮宽度是窗体的1/5\x0d\x0aCommand1.Height = Me.Height / 5 '按钮高度是窗体的1/5\x0d\x0aCommand1.Left = (Me.Width - Command1.Width) / 2 '按钮左边\x0d\x0aCommand1.Top = (Me.Height - Command1.Height) / 2 '按钮顶边\x0d\x0aEnd If\x0d\x0aEnd Sub\x0d\x0a这样就可以随窗体改变而改变了。
成都创新互联主营扶余网站建设的网络公司,主营网站建设方案,重庆APP软件开发,扶余h5微信小程序开发搭建,扶余网站营销推广欢迎扶余等地区企业咨询
可以算出缩放前后的height 和width 的比例,再利用这比例对控件的大小和位置进行变化。
你设一下你控件的anchor和dock两个属性,可以达到你满意的组合效果。包括位置和大小比例变化。