让VB控件大小随窗体改变而改变

t[4]表示的就是窗体内部高度，不用再想办法求出。窗体宽度包括左、右边框的宽度，其余和窗体高度类似。2 代码具体的程序代码（所用的VB版本是6.0）如下：Private Type cpwp As Singlehp As Singletp As Singlelp As Singlesp As SingleEnd TypePrivate ap（） As cpPrivate Sub Form_Load（）ReDim ap（0 To Controls.Count-1）Dim i As IntegerOn Error Resume Next'当发生错误（因有的控件（如图像框）没有Font属性；有的控件（如定时器）没有Width、Height属性）时，忽略该行，继续执行For i=0 To Controls.Count-1ap（i）.wp=Controls（i）.Width/Form1.ScaleWidth'记录控件宽度和窗体内部宽度的比值ap（i）.hp=Controls（i）.Height/Form1.ScaleHeight'记录控件高度和窗体内部高度的比值ap（i）.tp=Controls（i）.Top/Form1.ScaleHeight'记录控件到窗体上边的距离和窗体内部高度的比值ap（i）.lp=Controls（i）.Left/Form1.ScaleWidth'记录控件到窗体左边的距离和窗体内部宽度的比值ap（i）.sp=Controls（i）.Font.Size/Sqr（Form1.ScaleHeight*Form1.ScaleWidth） '记录控件上的文字字号和窗体内部面积的平方根的比值Next i
<<上一页下一页>>

首页 > 电子期刊 > J > 计算机时代

本站访问人数：