让VB控件大小随窗体改变而改变
End SubPrivate Sub Form_Resize（）Dim i As IntegerOn Error Resume Next'当发生错误（有的控件（如图像框）没有Font属性；有的控件（如定时器）没有Width、Height属性；文字小于1.5磅（如果窗体太小）；窗体内部高度为0（缩小窗体到只剩标题栏、最小化时）时，忽略该行，继续执行[5]For i=0 To Controls.Count - 1Controls（i）.Left=ap（i）.lp*Form2.ScaleWidthControls（i）.Top=ap（i）.tp*Form2.ScaleHeightControls（i）.Width=ap（i）.wp*Form2.ScaleWidthControls（i）.Height=ap（i）.hp*Form2.ScaleHeight '以上4条语句如简化为Controls（i）.Move ap（i）.lp*Form1.ScaleWidth，ap（i）.tp*Form1.ScaleHeight， ap（i）.wp*Form1.ScaleWidth， ap（i）.hp *Form1.ScaleHeight，对有的控件（如组合框，其Height是不可改变的），将因出错导致语句不能执行，致使控件位置、宽度、高度均不能改变Controls（i）.Font.Size=ap（i）.sp*Sqr（Form1.ScaleHeight*Form1.ScaleWidth）Next iEnd Sub3 结束语与这方面见到的其他文献（几乎都见于网络，期刊上几乎没有）相比，本文给出的方法更为完美。本文使用窗体内部高度、内部
<<上一页 下一页>>
广州市越秀区图书馆版权所有。
联系电话：020-87673002
本站访问人数：