第七章設計圖形和多媒體程序-文庫吧資料
2025-01-17 09:16本頁面
【正文】 (320, 240) For i = 1 To 100 x = 320 * Rnd If Rnd Then x = x y = 240 * Rnd If Rnd Then y = y colorcode = 15 * Rnd Line (0, 0)(x, y), QBColor(colorcode) Next i End Sub 3． Circle方法 Circle方法用來畫圓、橢圓、弧等。 加入 F則表示對矩形框填充。 （ 3） Color：用于設置畫線顏色 。 (200,200) (200,200) (0,0) 2． Line方法 Line方法用來畫線，格式為： [對象 .]Line[[Step](X1,Y1)][Step](X2,Y2)[,[Color][,B[F]]]（ 1） (X1,Y1)和 (X2,Y2)：線段的起止坐標； (X1,Y1)省略表示從當前位置開始畫到 (X2,Y2)點。 RightX , BottomY： 坐標系中右下角的坐標。語法格式： [對象 .]Scale (LeftX ,TopY) (RightX , BottomY) 對象： 可為 Form和 PictureBox控件。表 74列出了 QBColor()能夠選擇的顏色： 表 104 QBColor( )可選擇的顏色 RGB()函數(shù)能夠選擇更多的顏色，此函數(shù)有三個參數(shù)： RGB(R,G,B) R、 G、 B分別指明顏色中紅色、綠色、藍色的比例，它們的取值范圍為 0～ 255。 (vb7dh) 四、圖片框控件 1。 讓蝴蝶水平移動，用下面語句： +100 +100, 0 2023 4000 Image1 位置二 位置一 1 0 1000 (0,0) Top Left 蝴蝶重新飛回的代碼 If Image = then Image3. Left = Form1. Left End If +100 控制蝴蝶水平移動 用定時器 Timer2控制蝴蝶移動速度：設置其 Enabled屬性為 False， Interval屬性為250(移動間隔 )。 Private Sub Command1_Click() =True =True End Sub VB10L蝴蝶飛 Ｍ ove方法的語法格式為： [對象 .] Move Left [,Top , Width , Height] Left： 圖象框左邊的新位置 Top： 圖象框頂端的新位置 Width： 圖象框的新寬度 Height： 圖象框的新高度。 編寫代碼
醫(yī)療健康相關推薦
鄂ICP備17016276號-1