第10章 图形操作概要1.pptVIP

程序运行后，多次单击窗体，运行结果如图所示： 【例10.7】利用Point方法实现图片的部分复制。通过鼠标移动选择左边图片框Picture1中的部分图片，复制到右边的图片框Picture2中。 分析：题需要在窗体上添加2个图片框，分别用来加载原始图片和显示复制的图片。使用LoadPicture函数加载图片，通过鼠标按下、移动、释放的操作过程从Picture1中选择要复制的部分图片，单击命令按钮，将选择的部分图片复制到Picture2相应的位置上。 设计用户界面，在窗体上添加2个图片框和1个命令按钮，并进行属性设置。 例10.9 程序代码如下： Dim startX As Single, startY As Single Dim oldX As Single, oldY As Single, drawing As Boolean Private Sub Form_Load() Picture1.Picture = LoadPicture(App.Path + \P2.bmp) Picture2.Height = Picture1.Height Picture2.Width = Picture1.Width End Sub Private Sub Command1_Click() Dim i As Single, j As Single, s As Long Picture1.Cls:Picture2.Picture = LoadPicture() For i = startX To oldX For j = startY To oldY s = Picture1.Point(i, j) Picture2.PSet (i, j), s Next j Next i End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X _ As Single, Y As Single) Picture1.Cls If Not drawing Then startX = X: startY = Y oldX = X: oldY = Y drawing = True End If End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As _ Single, Y As Single) If drawing Then Picture1.DrawStyle = vbSolid vbSolid的值为0，代表实线 Picture1.DrawMode = vbBlackness vbBlackness的值为1，代表黑色 Picture1.Line (startX, startY)-(X, Y), , B 画矩形 drawing = False End If End Sub 程序运行后，选择图片框Picture1中要复制的部分图片，单击“复制图片”命令按钮，被复制的图片就会显示到图片框Picture2中的相同位置上。运行结果如图所示： Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _ Single, Y As Single) If drawing Then Picture1.DrawStyle = vbDot vbDot的值为2，代表点线 Picture1.DrawMode = vbInvert vbInvert的值为6，代表反相显示 Picture1.Line (startX, startY)-(oldX, oldY), , B Picture1.Line (startX, startY)-(X, Y), , B oldX = X: oldY = Y End If End Sub * 使每一个模块成为相对独立、功能单一、结构清晰、接口简单、容易理解的程序 每个模块可以独立设计算法，单独编写和测试 一个模块中的错误不易扩散