vb程序編寫語(yǔ)言學(xué)習(xí)-閱讀頁(yè)
2025-05-31 23:52本頁(yè)面
【正文】 圖 Private Sub cmdCircle_Click() FillStyle = Val() col = Val() x = Width y = Height For i = 1 To 10 r = (x * ) * Rnd Circle (Rnd * x, Rnd * y), r, QBColor(col) Next i End Sub 單擊“清除”按鈕時(shí)應(yīng)執(zhí)行的過程如下： Private Sub cmdCls_Click() Cls =″ ″ =″ ″ End Sub 單擊“結(jié)束”按鈕時(shí)應(yīng)執(zhí)行的過程如下： Private Sub cmdEnd_Click() End End Sub 在 cmdCls_Click()過程中使用了 cls方法 來清除窗體，此方法的一般格式為： [對(duì)象 .]cls 程序運(yùn)行結(jié)果如圖 ，它是連續(xù)單擊幾次“畫圓”命令按鈕（而未單擊“清除”按鈕）的執(zhí)行結(jié)果。編寫一個(gè)程序，單擊圖片框后在其上畫出若干個(gè)形狀和顏色各異的橢圓。 圖 圓周的一部分就是圓弧，如果從圓心連接 兩條直線到圓弧的兩端，就是一個(gè)扇形。 用 Circle方法繪制圓弧及扇形 圖 畫圓弧的一般格式為： [對(duì)象 .]Circle [Step] (x,y),半徑 [,顏色 ] [,起始角 ][,終止角 ] 當(dāng)縱橫比為 1時(shí)，畫出來的是一段圓弧，當(dāng)縱橫比不等于 1 下面舉例說明圓弧及扇形的畫法。運(yùn)行結(jié)果如圖 。 圖 圖 使用 Visual Basic提供的 PaintPicture方法， 可從一個(gè)窗體或圖形框控件中向另一個(gè)對(duì)象復(fù)制一 【 例 】 編寫一個(gè)程序，將圖片框中的一個(gè)圖形 首先建立一個(gè)如圖 。 使用 PaintPicture方法 圖 當(dāng)單擊窗體時(shí)，將圖片框 picSource中的圖片 復(fù)制、放大到窗體上。 ScaleWidth, ScaleHeight 拉伸 dx,dy： 目標(biāo)區(qū)域左上角的坐標(biāo)， dw,dh： sx,sy： 要傳送圖形的矩形區(qū)域的左上角坐標(biāo)。 圖 1. AutoRedraw 每個(gè)窗體和圖片框都有 AutoRedraw屬性。 下面通過一個(gè)例題觀察 AutoRedraw屬性的作用。 當(dāng)單擊 Form1時(shí)，在窗體上畫一個(gè)實(shí)心圓， 同時(shí)顯示 Form2 按照題目的要求，在 Form1的 Form_Load事件過程中添加如下程序代碼： Private Sub Form_Click() FillStyle = 0 Circle (800, 800), 500 End Sub 運(yùn)行程序如圖所示，同時(shí)顯示 Form2。此時(shí)， Form1上被遮蓋部分的圖形沒有恢復(fù)顯示， AutoRedraw屬性設(shè)置為 ture則可以重繪 圖 19 圖 20 2. CurrentX、 CurrentY CurrentX和 CurrentY屬性能夠設(shè)置或 返回一組坐標(biāo)，這組坐標(biāo)是 當(dāng)前要顯示或 打印操作 的坐標(biāo)。繪制這幅圖形的程序如下： Private Sub Form_Click() CurrentX = 800 CurrentY = 800 For i = 1 To 10 Circle (CurrentX+100, CurrentY+100), 500 ‘沒有修改 CurrentX ， Y的值，但是圓心坐標(biāo)在變化。 BackColor屬性用于設(shè)置窗體或控件的背景顏色。 BorderColor 屬性用于設(shè)置 Shape 控件邊框的顏色。 在窗體上畫一幅明月高掛、群星閃爍的畫面。 窗體上有一個(gè)計(jì)時(shí)器，其 Interval屬性值為 500，因此計(jì)時(shí)器每隔 Timer事件。因此出現(xiàn) 500個(gè)亮點(diǎn)，然后以 Cls方法清除屏幕。如此反復(fù)就出現(xiàn) “ 群星閃爍 ” 的效果。 習(xí)題 圖
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1