如何成比例的缩放窗体？谁又好方法..收买。。

2003-11-18 02:59:28 150 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ADF4002分频器避坑指南：常见配置错误及解决方案本文深入解析了ADF4002分频器在实战应用中的常见陷阱与解决方案。内容涵盖寄存器配置逻辑、硬件PCB布局要点、软件驱动时序细节及系统化调试方法，重点阐述了如何避免因配置错误导致芯片无法正常工作的问题，帮助工程师高效完成高精度频率合成系统设计。阅读详情

如何成比例的缩放窗体的width和height,并且，窗体里有picbox，textbox等空间，让他们跟着窗体的变化也成比例放大或缩小。

Private Sub Form_Resize()
Dim lngScale As Long
' With Form
'
' End With

With fraVender
lngScale = .Width / .Height
.Width = Me.ScaleWidth
.Height = .Width / lngScale
End With

With picMiddle
lngScale = .Width / .Height
.Move 0, fraVender.Top + fraVender.Height + 10, Me.ScaleWidth, .Width / lngScale
End With

With DataGrd
lngScale = .Width / .Height
.Move 0, picMiddle.Top + picMiddle.Height + 10, Me.ScaleWidth, .Width / lngScale
End With

With picFoot
lngScale = .Width / .Height
.Move 0, DataGrd.Top + DataGrd.Height + 10, Me.ScaleWidth, .Width / lngScale
End With
End Sub

我是这样做的，达不到想要得结果，我觉得还差的远，高手指点一下。。。先谢了

...全文