第11章圖形程序設(shè)計(jì)(參考版)
2024-09-05 09:22本頁面
【正文】 。 Visual Basic 程序設(shè)計(jì) Private Sub Command3_Click() Scale (7, 7)(7, 7) For i = 0 To 2 * Step r = Int(Rnd * 256) g = Int(Rnd * 256) b = Int(Rnd * 256) x = i * Cos(i) y = i * Sin(i) Line (0, 0)(x, y), RGB(r, g, b) Next I End Sub Visual Basic 程序設(shè)計(jì) Point方法 Point方法用于返回指定點(diǎn)的 RGB顏色，其語法格式如下： [對象 .] Point (x,y) 其中參數(shù)對象與 (x,y)的意義與前述相同。 ?直接編寫窗體單擊事件如下： ?Private Sub Form_Click() ?Dim i As Integer, x As Double, y As Double ?Randomize ?For i = 1 To 100 ? = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)) ? x = Rnd * ? y = Rnd * ? = Int(1 + Rnd * 30) ? PSet (x, y) ?Next i ?End Sub Visual Basic 程序設(shè)計(jì) 例：重新定義窗體的坐標(biāo)系為 (7, 7)(7, 7)。 Visual Basic 程序設(shè)計(jì) ? 例 116 使用 Circle方法的程序。 Visual Basic 程序設(shè)計(jì) ? Circle方法 ? Circle方法用于在窗體或圖形框上畫圓、橢圓、圓弧和扇形。 ? 在本例題中，首先在用戶界面設(shè)計(jì)窗口設(shè)置窗體的高度（ Height屬性）為 3400，寬度（ Width屬性）為 2750，背景顏色（ BackColor屬性）為白色。 ? 關(guān)鍵字 Step表示采用當(dāng)前作圖位置的相對位移量，即從當(dāng)前坐標(biāo)移動(dòng)相應(yīng)的步長
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1