vb程序編寫語言學習-文庫吧資料
2025-05-19 23:52本頁面
【正文】 畫一個圖片框（如圖 ）。 圖 畫圓的一般格式為： [對象 .]Circle [Step] (x,y),半徑 [,顏色 ] 對象指窗體、圖片框等， Step后面的一對數(shù)字表示相對于當前坐標的位移量。設(shè)計用戶界面如 圖 在窗體上添加圖片框，其大小只比窗體略小一點。 具體方法很簡單，只要在 Line方法中加一個參數(shù)B即可， B的含義是 Box（盒狀）。根據(jù)這個特點，可以使用循環(huán)畫出圖形。當單擊這個命令按鈕時，執(zhí)行程序，用 Line方法畫一個如圖所示的圖形。單擊“退出”按鈕，結(jié)束 畫點的過程如下： Private Sub cmdPoint_Click() For i = 1 To 3000 r = Int(256 * Rnd) g = Int(256 * Rnd) b = Int(256 * 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方法。窗體上有兩個命令按鈕： “畫點”和“退出”按鈕。 Visual Basic中用 QBColor（ i）代表一種顏色，見表（見書 248頁）。 顏色也可以用 QBColor函數(shù)來表示。這 3個參數(shù)不同值的組合可以產(chǎn)生多種顏色。 RGB函數(shù)有三個參數(shù)，分別代表紅、綠、藍的比例，每個參數(shù)的值為 0～ 255。顏色可以用 RGB函數(shù)指定。 例如： Pset (100， 150) 上述語句的作用是在窗體上（ 100， 150）處 Pset方法的一般格式為： [對象名 .]Pset（ x， y） [，顏色 ] 用 Pset方法畫點 如不作聲明，則畫出的點的顏色就是對象的前景色 （ ForeColor屬性值）。使用圖形控件需要注意以下問題： (1) (2) (3) 不能出現(xiàn)在其他控件之上，除非是容器控件，如圖片框。但是由于使用圖形控件所需要的系統(tǒng)資源比較少，因此有利于提高 Visual Basic應(yīng)用程序的性能。 BorderStyle屬性： 用來指定邊界線的類型（其值為 0～ 6，其含義與直線控件中介紹的相同）。 Str(i + 2) Next End Sub 上述事件過程的執(zhí)行效果如圖 5所示。 Str(i) Next End Sub （ 3） 單擊“填充線條”按鈕，執(zhí)行cmdFill_Click()事件過程。 設(shè)置 BackStyle為不透明 Shape1(i).BackColor = QBColor(i) 39。 Private Sub cmdColor_Click() ′ For i = 0 To 5 Shape1(i).FillStyle = 1 39。 Str(i) Next End Sub 如圖 4所示表示執(zhí)行 cmdShape_Click()事件過程后的結(jié)果。 通過 For循環(huán)設(shè)置 Shape屬性的值。運行時，如單擊“設(shè)置形狀”命令按鈕，將為形狀控件設(shè)置 Shape屬性；單擊“設(shè)置顏色”按鈕，用不同的顏色填充各形狀控件；單擊“填充線 為便于程序
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1