VB程序设计第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件（2）单击滚动条两端的箭头或滚动条内拖动滚动块时，触发Change事件过程代码如下：PrivateSubHScroll1_Change()Label3.Caption=Str$(HScroll1.Value)Label4.Caption=Str$(VScroll1.Value)a=HScroll1.Valueb=VScroll1.Valuec=a*bLabel6.Caption=Str$(c)EndSub第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件第五章VisualBasic常用控件与位置和大小有关的属性ScaleWidth和ScaleHeight属性表示容器对象的内部宽度与高度。用于自定义一个刻度单位。例:使用ScaleWidth和ScaleHeight改变窗体刻度单位设窗体高度是2000Twips，宽度是3000Twips。此时水平和垂直刻度单位均为1Twips。如果设置:ScaleHeight=500则将窗体的高度划分为500个单位,每个单位为2000/500，即4Twips如果设置:ScaleWidth=1000则将窗体的宽度划分为1000个单位，每个单位为3000/1000，即3Twips重定义坐标轴方向和度量单位属性ScaleWidth，ScaleHeight的值可确定对象坐标系X轴与Y轴的正向及最大坐标值。缺省时其值均大于0，此时，X轴的正向向右，Y轴的正向向下。对象右下角坐标值为(ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight)。如果ScaleWidth的值小于0，则X轴的正向向左，如果ScaleHeight的值小于0，则Y轴的正向向上。第五章VisualBasic常用控件例:将窗体的坐标系统的原点定义在其中心，X轴的正向向右，Y轴的正向向上，窗体高与宽分别为200和300单位长度。通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight属性实现。(xLeft,yTop)例在图片框Picture1中打印5行5列的单位矩阵。PrivateSubPicture1_Click()Dima(5,5)AsIntegerPicture1.Scale(0,0)-(6,6)Fori=1To5Picture1.CurrentY=iForj=1To5Ifi=jThena(i,j)=1Elsea(i,j)=0Picture1.CurrentX=jPicture1.Printa(i,j);Nextj,iEndSub第五章VisualBasic常用控件第五章VisualBa