第7章-图形操作.ppt

例程7-1在窗体上放置2个Picture控件，2个Image控件，在窗体的Load事件中编写如下代码：OptionExplicitPrivateSubForm_Load()Picture1.AutoSize=FalsePicture2.AutoSize=TrueImage1.Stretch=FalseImage2.Stretch=TruePicture1.Picture=LoadPicture(E:\教学\2013-2014学年上学期VB程序语言\VB上课\第七章\双十一来了.jpg)Picture2.Picture=LoadPicture(E:\教学\2013-2014学年上学期VB程序语言\VB上课\第七章\双十一来了.jpg)Image1.Picture=LoadPicture(E:\教学\2013-2014学年上学期VB程序语言\VB上课\第七章\双十一来了.jpg)Image2.Picture=LoadPicture(E:\教学\2013-2014学年上学期VB程序语言\VB上课\第七章\双十一来了.jpg)EndSub例程7-2用计时器控件和直线控件来完成如下程序：OptionExplicitDimiAsIntegerPrivateSubTimer1_Timer()i=i+1Line1.Y2=Line1.Y2+100If(i=20)ThenTimer1.Enabled=FalseEndIfEndSubPrivateSubForm_Load()Line1.X1=1000Line1.X2=5000Line1.Y1=200Line1.Y2=200EndSubOptionExplicitDimiAsIntegerPrivateSubTimer1_Timer()i=i+1Line1.Y2=Line1.Y2+100If(i=10)ThenTimer1.Enabled=FalseEndIfEndSubPrivateSubForm_Load()Line1.X1=Form1.Width/2Line1.X2=Form1.Width*3/5Line1.Y1=Form1.Height/2Line1.Y2=Form1.Height*3/5Line2.X1=Form1.Width*3/5Line2.X2=Form1.Width*3/5Line2.Y1=0Line2.Y2=Form1.HeightEndSub7.2坐标系统7.2.1缺省坐标系统每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。7.2坐标系统7.2.2用户自定义坐标系统7.2坐标系统7.2坐标系统2、使用Scale属性建立自己的坐标系（1）重新定义坐标原点属性ScaleTop，ScaleLeft的值用于控制对象左上角坐标，所有对象的ScaleTop，ScaleLeft属性的缺省值为0，坐标原点在对象的左上角。 =N，表示将X轴向Y轴的负方向平移N个单位ScaleTop =－N，表示X轴向Y轴的正方向平移N个单位同样，ScaleLeft的设置值可向左或向右平移坐标系的Y轴。7.2.2用户自定义坐标系统（2）重定义坐标轴方向和度量单位属性ScaleWidth，ScaleHeight的值可确定对象坐标系X轴与Y轴的正向及最大坐标值。缺省时其值均大于0，此时，X轴的正向向右，Y轴的正向向下。对象右下角坐标值为(ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight)。如果ScaleWidth的值小于0，则X轴的正向向左，如果ScaleHeight的值小于0，则Y轴的正向向上。7.2.2用户自定义坐标系统OptionExplicitPrivateSubForm_Load()Form1.ScaleLeft=-150Form1.ScaleTop=100Form1.ScaleWidth=300Form1.ScaleHeight=-200Lin