圖形操作與多文檔窗體PPT教案

1、圖形操作與多文檔窗體圖形操作與多文檔窗體1、項(xiàng)目界面展示第1頁(yè)/共37頁(yè)第2頁(yè)/共37頁(yè)第3頁(yè)/共37頁(yè)每個(gè)容器都有一個(gè)坐標(biāo)系，構(gòu)成一個(gè)坐標(biāo)系，需要三個(gè)要素：坐標(biāo)原點(diǎn)、坐標(biāo)度量單位、坐標(biāo)軸的長(zhǎng)度與方向。 HeightScaleHeight第4頁(yè)/共37頁(yè)一、使用默認(rèn)的刻度4、相關(guān)知識(shí)點(diǎn)第5頁(yè)/共37頁(yè)屬性設(shè)置屬性設(shè)置單單 位位0 0用戶(hù)定義用戶(hù)定義1 1TwipTwip（缺省值）（缺省值）2 2磅（磅（pointpoint，每英寸，每英寸7272磅）磅）3 3像素（像素（PixedPixed，與顯示器分辨率有關(guān)），與顯示器分辨率有關(guān)）4 4字符（缺省為高字符（缺省為高1212磅寬磅寬2020磅

2、的單位）磅的單位）5 5英寸（英寸（inchinch，1inch=1440 Twip1inch=1440 Twip）6 6毫米（毫米（millimetermillimeter）7 7厘米（厘米（centimetercentimeter）坐標(biāo)度量單位由容器對(duì)象的ScaleMode屬性決定。缺省時(shí)為T(mén)wip。每英寸1440個(gè)Twip，20個(gè)Twip為一磅。4、相關(guān)知識(shí)點(diǎn)第6頁(yè)/共37頁(yè)二、自定義坐標(biāo)系4、相關(guān)知識(shí)點(diǎn)語(yǔ)法格式： 對(duì)象名.Scale (x1,y1)-(x2,y2)第7頁(yè)/共37頁(yè)1.用AutoRedraw創(chuàng)建持久的圖形每個(gè)窗體和圖片框都具有AutoRedraw屬性。（1）當(dāng)AutoRe

3、draw為默認(rèn)值False時(shí)，VB會(huì)把圖形輸出到屏幕，而不輸出到內(nèi)存。（2）當(dāng)AutoRedraw為T(mén)rue時(shí)，VB會(huì)把圖形輸出并保存在內(nèi)存中。注意：運(yùn)行時(shí)，只有當(dāng)AutoRedraw為T(mén)rue時(shí)，才可以用Cls方法清除。舉例:4.2使用Visual Basic作圖 4、相關(guān)知識(shí)點(diǎn)第8頁(yè)/共37頁(yè)2、使用CurrentX、CurrentY設(shè)置當(dāng)前坐標(biāo)（1）窗體或圖形框或打印機(jī)的CurrentX、CurrentY屬性給出這些對(duì)象在繪圖時(shí)的當(dāng)前坐標(biāo)。（2）這兩個(gè)屬性在設(shè)計(jì)階段不能使用。當(dāng)坐標(biāo)系確定后，坐標(biāo)值(x，y)表示對(duì)象上的絕對(duì)坐標(biāo)位置。（3）如果坐標(biāo)值前加上關(guān)鍵字Step，則坐標(biāo)值(x，y)

4、表示對(duì)象上的相對(duì)坐標(biāo)位置，即從當(dāng)前坐標(biāo)分別平移x、y個(gè)單位，其絕對(duì)坐標(biāo)值為(CurrentX+x，CurrentY+y)（4）使用CLS方法后，CurrentX、CurrentY屬性值為0。 4、相關(guān)知識(shí)點(diǎn)第9頁(yè)/共37頁(yè)3、用DrawWidth和DrawStyle屬性設(shè)置 線(xiàn)寬與線(xiàn)型 窗體、圖形框或打印機(jī)的DrawWidth屬性給出這些對(duì)象上所畫(huà)線(xiàn)的寬度或點(diǎn)的大小。DrawWidth屬性以像素為單位來(lái)度量，最小值為1。例6.2 用DrawWidth屬性改變直線(xiàn)寬度。4、相關(guān)知識(shí)點(diǎn)第10頁(yè)/共37頁(yè) 窗體或圖形框或打印機(jī)的DrawStyle屬性給出這些對(duì)象上所畫(huà)線(xiàn)的形狀。 注意：只有當(dāng)Draw

5、Width設(shè)置為1時(shí)，DrawStyle屬性才會(huì)產(chǎn)生如上圖所示的各種效果。4、相關(guān)知識(shí)點(diǎn)第11頁(yè)/共37頁(yè) 4、填充與色彩 由Fillstyle、Fillcolor這兩個(gè)屬性決定封閉圖形的填充方式。（1）Fillcolor指定填充圖案的顏色，默認(rèn)的顏色與Forecolor相同。（2）FillStyle屬性取值07，用來(lái)指定填充的圖案，共有8種內(nèi)部圖案。注意：如果FillStyle設(shè)置為1（透明），則忽略FillColor屬性，但Form對(duì)象除外。4、相關(guān)知識(shí)點(diǎn)第12頁(yè)/共37頁(yè)4、相關(guān)知識(shí)點(diǎn)三個(gè)重點(diǎn)內(nèi)容（方法）點(diǎn)、線(xiàn)、圓第13頁(yè)/共37頁(yè)1、畫(huà)點(diǎn)（Pset方法）例：1.Pset(500,100

6、0),RGB(255,0,0) 2.Pset(500,1000),BackColor 擦除該點(diǎn)格式：對(duì)象.Pset (x,y),Color參數(shù)說(shuō)明: （X,Y）:確定畫(huà)點(diǎn)的位置 單精度,可以是常量或變量和表達(dá)式 Color:設(shè)置點(diǎn)的顏色缺省時(shí),點(diǎn)的顏色為ForeColor4、相關(guān)知識(shí)點(diǎn)第14頁(yè)/共37頁(yè)2、項(xiàng)目實(shí)例實(shí)現(xiàn) （演示）For i = -180 To 180 Step 0.01Picture1.PSet (i/50, 5 * Sin(i * 3.14/180)Next i4、相關(guān)知識(shí)點(diǎn)用點(diǎn)畫(huà)正弦曲線(xiàn)第15頁(yè)/共37頁(yè)直線(xiàn)格式：對(duì)象. LineStep(x1,y1)-Step(x2,y2

7、),Color參數(shù)說(shuō)明: （X1,Y1）:畫(huà)線(xiàn)的起點(diǎn), 省略:當(dāng)前坐標(biāo)為起始坐標(biāo)。 （X2,Y2）:直線(xiàn)的終點(diǎn) Color:設(shè)置直線(xiàn)的顏色 缺省時(shí),為ForeColorStep:表示后面的坐標(biāo)相對(duì)于當(dāng)前坐標(biāo)的偏移量4、相關(guān)知識(shí)點(diǎn)2、畫(huà)線(xiàn)（line方法）第16頁(yè)/共37頁(yè)舉例:Private Sub Command1_Click()Line (1000, 1000)-(2000, 2000)Line -(300, 3000)Picture1.Line (100, 500)-Step(2000, 2000)Picture1.Line (1500, 1500)-Step(200, 200), vbB

8、lueEnd Sub如何改變直線(xiàn)的粗細(xì)和線(xiàn)型?DrawWidth屬性: 指定線(xiàn)的寬度(以磅為單位）。DrawStyle屬性: 指定線(xiàn)型。4、相關(guān)知識(shí)點(diǎn)第17頁(yè)/共37頁(yè)矩形格式：對(duì)象. LineStep(x1,y1)-Step(x2,y2),Color,BF參數(shù)說(shuō)明: （X1,Y1）:矩形的左上角點(diǎn), 省略:當(dāng)前坐標(biāo)的為起始坐標(biāo), （X2,Y2）:矩形的右下角點(diǎn)B：表示畫(huà)一個(gè)矩形; F：表示畫(huà)一個(gè)實(shí)心的矩形,這時(shí)忽略 Fillcolor和FillStyle屬性注意：有B參數(shù)才能使用F例1：Private Sub Command1_Click()Line (500, 500)-Step(1000

9、, 0)Line -Step(0, 1000)Line -Step(-1000, 0)Line -Step(0, -1000)Line (500, 500)-Step(1000, 1000), , BFEnd Sub4、相關(guān)知識(shí)點(diǎn)第18頁(yè)/共37頁(yè) 怎樣在窗體上繪制一幅顏色、大小各不相同的彩環(huán)？效果如圖4、相關(guān)知識(shí)點(diǎn)第19頁(yè)/共37頁(yè)格式： 對(duì)象. CircleStep(x,y),半徑,Color,起始角,終止角,縱橫比 (1）1時(shí)，指向垂直方向的Y半徑 參數(shù)說(shuō)明:起始角和終止角：取值在0 時(shí)為圓弧。如果起始角的絕對(duì)值大于終止角的絕對(duì)值，則畫(huà)一個(gè)角度大于180的圓弧；如果為負(fù)數(shù)，則畫(huà)出扇形。0

10、3603、畫(huà)圓（circle方法）4、相關(guān)知識(shí)點(diǎn)第20頁(yè)/共37頁(yè)4、相關(guān)知識(shí)點(diǎn)第21頁(yè)/共37頁(yè)P(yáng)rivate Sub Command1_Click() X = Form1.Width Y = Form1.Height For I = 1 To 10 R = Rnd * Y * 0.1 Circle (X * Rnd, Y * Rnd), R, QBColor(I) Next IEnd Sub（3）畫(huà)圓代碼實(shí)現(xiàn)（演示）4、相關(guān)知識(shí)點(diǎn)第22頁(yè)/共37頁(yè)4、相關(guān)知識(shí)點(diǎn)4.3鼠標(biāo)事件事事 件件描描 述述MouseDown按下任一鼠標(biāo)按鍵時(shí)發(fā)生MouseUp釋放任一鼠標(biāo)按鍵時(shí)發(fā)生MouseMove每

11、當(dāng)鼠標(biāo)移動(dòng)到屏幕的新位置時(shí)發(fā)生第23頁(yè)/共37頁(yè)4、相關(guān)知識(shí)點(diǎn)4.3鼠標(biāo)事件利用鼠標(biāo)事件完成簡(jiǎn)單的繪圖板第24頁(yè)/共37頁(yè)4、相關(guān)知識(shí)點(diǎn)4.3鼠標(biāo)事件Private Sub Form_MouseDown(Button As Integer, Shift AsInteger,X As Single,Y As Single) CurrentX = X CurrentY = YEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button = 1 Then

12、Line -(X,Y) End Sub 繪圖板的代碼第25頁(yè)/共37頁(yè)1、項(xiàng)目目標(biāo)本項(xiàng)目實(shí)例主要任務(wù)是設(shè)計(jì)完成“休閑娛樂(lè)”中的“電子相冊(cè)”界面，單擊“新建”菜單，打開(kāi)一個(gè)通用對(duì)話(huà)框，選擇一個(gè)圖片文件后，產(chǎn)生一個(gè)新的子窗體，并在子窗體上顯示圖片；通過(guò)選擇“層疊”、“平鋪”、“排列”菜單會(huì)使打開(kāi)的多個(gè)子窗口進(jìn)行相應(yīng)方式的排列。 第26頁(yè)/共37頁(yè)6.2 電子相冊(cè)2、項(xiàng)目分析本項(xiàng)目實(shí)例主要運(yùn)用了VB6.0的MDI窗體的相關(guān)知識(shí)。在窗體上添加菜單欄，然后建立一個(gè)子窗體作為模板，并按相應(yīng)模式排列窗體。第27頁(yè)/共37頁(yè)6.2 電子相冊(cè)3、項(xiàng)目實(shí)現(xiàn)1.程序界面設(shè)計(jì)和屬性設(shè)置（1）建立MDI窗體。選擇“工程

13、”“添加MDI窗體”。添加一個(gè)MDI窗體，新建的MDI窗體名稱(chēng)為“MDIForm1”，Caption屬性為“相冊(cè)”。（2）在MDI窗體中添加菜單欄，4個(gè)菜單項(xiàng)分別為“新建”、“層疊”、“平鋪”、“排列”。（3）在工程中添加新窗體Form14，設(shè)置Form14的Caption屬性為“相冊(cè)”，MDIChild屬性為“True”。 第28頁(yè)/共37頁(yè)6.2 電子相冊(cè)3、項(xiàng)目實(shí)現(xiàn)2.編寫(xiě)對(duì)象事件過(guò)程代碼第29頁(yè)/共37頁(yè)6.2 電子相冊(cè)4、相關(guān)知識(shí)n多文檔界面（Multiple Document Interface，即MDI）與多重窗體不是一個(gè)概念。多重窗體程序中的各個(gè)窗體是彼此獨(dú)立的。MDI雖然也可

14、以含有多個(gè)窗體，但它有一個(gè)父窗體，其他窗體（子窗體）都在父窗體內(nèi)。1、什么是多文檔界面？第30頁(yè)/共37頁(yè)6.2 電子相冊(cè)4、相關(guān)知識(shí)2、多文檔界面有如下特性：(1)所有子窗體均顯示在MDI窗體的工作區(qū)中。用戶(hù)可改變、移動(dòng)子窗體的大小，但被限制在MDI窗體中。(2)當(dāng)最小化子窗體時(shí)，它的圖標(biāo)顯示于MDI窗體上而不是在任務(wù)欄中。當(dāng)最小化MDI窗體時(shí)，所有的子窗體也被最小化，只有MDI窗體圖標(biāo)出現(xiàn)在任務(wù)欄中。(3)當(dāng)最大化一個(gè)子窗體時(shí)，它的標(biāo)題與MDI窗體的標(biāo)題一起顯示在MDI窗體的標(biāo)題欄上。(4)MDI窗體和子窗體都可以有各自的菜單，當(dāng)子窗體加載時(shí)覆蓋MDI窗體的菜單。第31頁(yè)/共37頁(yè)6.2

15、電子相冊(cè)4、相關(guān)知識(shí)3、創(chuàng)建和設(shè)計(jì)MDI窗體及其子窗體 開(kāi)發(fā)多文檔界面的一個(gè)應(yīng)用程序至少需要兩個(gè)窗體：一個(gè)(只能一個(gè))MDI窗體和一個(gè)(或若干個(gè))子窗體。在不同窗體中共用的過(guò)程、變量應(yīng)存放在標(biāo)準(zhǔn)模塊中。 添加MDI窗體 選擇“工程”菜單中的“添加MDI窗體”命令，然后從相應(yīng)的對(duì)話(huà)框中選擇“MDI窗體”，再單擊“打開(kāi)”按鈕。這樣就添加了一個(gè)MDI窗體。 第32頁(yè)/共37頁(yè)6.2 電子相冊(cè)對(duì)子窗體或子窗體圖標(biāo)的層疊、平鋪和排列圖標(biāo)命令通常也放在“窗口菜單上，用Arrange方法來(lái)實(shí)現(xiàn)。Arrange方法的語(yǔ)法形式如下： 排列方式取值如下：0-vbCascade：層疊所有非最小化MDI子窗體。1-v

16、bTileHorizontal：水平平鋪所有非最小化MDI子窗體。2-vbTileVertical：垂直平鋪所有非最小化MDI子窗體。3-vb ArrangeIcons：對(duì)任何已經(jīng)最小化的子窗體排列圖標(biāo)。 4、相關(guān)知識(shí)第33頁(yè)/共37頁(yè)6.2 電子相冊(cè)(1)活動(dòng)子窗體和活動(dòng)控件在VB中，提供了訪(fǎng)問(wèn)MDI窗體的兩個(gè)屬性，即ActiveForm和ActiveControl，前者表示具有焦點(diǎn)的或者最后被激活的子窗體，后者表示活動(dòng)子窗體上具有焦點(diǎn)的控件。 注意：當(dāng)訪(fǎng)問(wèn)ActiveForm屬性時(shí)，至少應(yīng)有一個(gè)MDI子窗體被加載或可見(jiàn)，否則會(huì)返回一個(gè)錯(cuò)誤。在代碼中指定當(dāng)前窗體的另一種方法是用Me關(guān)鍵字。用Me關(guān)鍵字來(lái)引用當(dāng)前其代碼正在運(yùn)行的窗體。當(dāng)需要把當(dāng)前窗體實(shí)例的引用參數(shù)傳遞給過(guò)程時(shí)，這個(gè)關(guān)鍵字很有用。例如要關(guān)閉當(dāng)前窗口，其語(yǔ)句為： Unload Me 4、相關(guān)知識(shí)第34頁(yè)/共37頁(yè)6.2 電子相冊(cè) (2)顯示MDI窗體及其子窗體顯示MDI窗體及其子窗體的方法是Show。加載子窗體時(shí)，其父窗體(MDI窗體)