第11章 图形与图像.pptVIP

*第11章图形与图像●11.1绘制图形●11.1.1图形控件●11.1.2图形的坐标系统●11.1.3与图形有关的属性●11.1.4使用颜色●11.1.5常用绘图方法●11.1.6绘图语句与Paint事件●11.2显示图片●11.2.1直接加载图片到窗体●11.2.2使用图像控件●11.2.3使用图片框控件●习题11●11.1绘制图形●11.1.1图形控件1.Shape控件2.Line控件3.图形控件与动画【例11-1】曲柄滑块机构的演示。利用Timer控件来控制图形控件的转动，如图11-2所示。设计步骤如下：(1)建立应用程序用户界面。(2)设置对象属性(3)编写程序代码。在通用模块中声明符号常数及窗体级变量：Constpi=3.14159DimX0AsSingle,Y0AsSingle,tAsInteger编写窗体的Load事件代码：PrivateSubForm_Load()WithShape1.Tag=.Width/2 圆的半径X0=.Left+.Tag 圆心的x坐标Y0=.Top+.Tag 圆心的y坐标EndWithWithLine1 连杆的长.Tag=Sqr((.X1–.X2)^2+(.Y1–.Y2)^2)EndWithEndSub编写Timer1的Timer事件代码：PrivateSubTimer1_Timer()t=t+1Shape3.Left=X0+Shape1.Tag*Sin(pi*t/30)–30Shape3.Top=Y0–Shape1.Tag*Cos(pi*t/30)+30Line1.X1=Shape3.Left+30Line1.Y1=Shape3.Top+30Line1.X2=Shape3.Left+Sqr(Line1.Tag^2–(Shape3.Top–Y0)^2)Line2.X1=Line1.X1Line2.Y1=Line1.Y1Shape2.Left=Line1.X2EndSub编写命令按钮Command1的Click事件代码：PrivateSubCommand1_Click()IfCommand1.Caption=暂停(S)ThenCommand1.Caption=继续(C)Timer1.Enabled=FalseElseCommand1.Caption=暂停(S)Timer1.Enabled=TrueEndIfEndSub●11.1.2图形的坐标系统1.坐标单位2.坐标方法语法格式为：[〈object〉.]Scale(x1,y1)–(x2,y2)3.坐标属性例如，代码：Me.ScaleTop=10Me.ScaleLeft=10Me.ScaleWidth=90Me.ScaleHeight=110●11.1.3与图形有关的属性DrawMode属性DrawMode属性的语法为：[〈object〉.]DrawMode[=〈值〉]2.DrawWidth属性和DrawStyle属性(1)DrawWidth属性其语法为：[〈object〉.]DrawWidth[=〈值〉](2)DrawStyle属性其语法为：[〈object〉.]DrawStyle[=〈值〉]3.FillColor属性和FillStyle属性(1)FillColor属性其语法为：[〈object〉.]FillColor[=〈值〉](2)FillColor属性其语法为：[〈object〉.]FillStyle[=〈值〉]●11.1.4使用颜色1.颜色属性2.颜色函数(1)RGB函数语法为：RGB（r