vb程序編寫語言學(xué)習(xí)(編輯修改稿)
2025-06-16 23:52 本頁面
【文章內(nèi)容簡介】 * Rnd) x = Rnd * Width y = Rnd * Height PSet (x, y), RGB(r, g, b) Next End Sub 【 例 4】 要求在單擊“開始”按鈕后， 在窗體上畫出一個圓，再將此圓抹去， 接著畫出一個半徑稍大的同心圓 …… 如此一共畫出 16 程序代碼如下： Private Sub cmdStart_Click() c = 1 r = 100 Do For i = 0 To 2 * Step y = Sin(i) * r ‘sin(a)*半徑 =y坐標 x = Cos(i) * r PSet (x+1600, y+1600), QBColor(c) For j = 1 To 2021 Next j Next i For i = 0 To 2 * Step y = Sin(i) * r x = Cos(i) * r PSet (x +1600, y +1600), QBColor(15) For j = 1 To 2021 Next j Next I c = c + 1 r = r + 100 Loop Until c = 16 為了在兩點之間繪制一條直線，除了使用直線控件外， Visual Basic還提供了 Line方法。 Line方法的一般格式為 [對象 .]Line[[Step](x1,y1)][Step](x2,y2)[,顏色 ] 用 Line方法畫線和矩形 1 用 Line方法繪制直線 【 例 5】 在窗體上畫一個名稱為 cmdPaint 的命令按鈕。當單擊這個命令按鈕時，執(zhí)行程序，用 Line方法畫一個如圖所示的圖形。 這些直線具有相同的終點坐標，起點坐標在水平方向是相同的。根據(jù)這個特點，可以使用循環(huán)畫出圖形。程序如下： 圖 6 Private Sub cmdPaint_Click() Dim i As Integer DrawWidth = 2 ForeColor = QBColor(4) For i = 0 To 6000 Step 500 Line (i, 800)(2800, 2900) Next i End Sub 使用 Line方法能夠繪制矩形。 具體方法很簡單，只要在 Line方法中加一個參數(shù)B即可， B的含義是 Box（盒狀）。 例如： Line (800, 800)(3000, 2021),B 此語句執(zhí)行的結(jié)果如圖 7所示 用 Line方法繪制矩形 圖 畫矩形的一般格式為： [對象 .]Line[[Step](x1,y1)][Step](x2,y2) [,顏色 ],B[F] (x1,y1)與 (x2,y2)是所畫矩形的左上角和右下角的坐標，參數(shù) B表示要畫一個矩形，參數(shù) F是指畫一個實 除了可以用“顏色”對圖形進行填充外，還可以用以前介紹過的 FillStyle 【 例 6】 為矩形填充不同的圖案。設(shè)計用戶界面如 圖 在窗體上添加圖片框，其大小只比窗體略小一點。 運行時，單擊圖片框，將執(zhí)行下面的事件過程： Private Sub Picture1_Click() = QBColor(0) For i = 0 To 7 = i = QBColor(i + 2) i 1 = i + 1 (300 * i1, 400 * i1)(110 * i1, 220 * i1), QBColor(12), B Next i End Sub 程序運行的結(jié)果如圖 。 圖 畫圓的一般格式為： [對象 .]Circle [Step] (x,y),半徑 [,顏色 ] 對象指窗體、圖片框等， Step后面的一對數(shù)字表示相對于當前坐標的位移量。 用 Circle方法畫圓、橢圓、圓弧及扇形 1 用 Circle方法繪制圖 【 例 7】 在窗體上畫圓， 下面編寫事件過程中， 當單擊命令按鈕“畫圓”時，執(zhí)行以下事件過程： 圖 P
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1