71766微軟用戶-全文預(yù)覽
【正文】 0) Line Step(0, 1000) 39。 （ 1）案例效果（ 演示 ） （ 2）案例分析 Visual Basic 程序設(shè)計(jì) 畫點(diǎn)（ Pset方法） 例： (500,1000),RGB(255,0,0) (500,1000),BackColor ‘擦除該點(diǎn) 格式 ： [對(duì)象 .]Pset (x,y)[,Color] 參數(shù)說明 : （ X,Y） :確定畫點(diǎn)的位置 單精度 ,可以是常量或變量和表達(dá)式 Color:設(shè)置點(diǎn)的顏色 缺省時(shí) ,點(diǎn)的顏色為 ForeColor 畫點(diǎn) Visual Basic 程序設(shè)計(jì) 畫點(diǎn) （ 3）案例實(shí)現(xiàn) （ 演示 ） Private Sub TIMER1_TIMER() Dim i As Integer Dim x, y As Single For I = 1 To 100 X = Int(Rnd * 6000) Y = Int(Rnd * 6000) PSet (X, Y), vbYellow Next I End Sub Visual Basic 程序設(shè)計(jì) 直線格式 ： [對(duì)象 .] Line[[Step](x1,y1)][Step](x2,y2)[,Color] 參數(shù)說明 : （ X1,Y1） :畫線的起點(diǎn) , 省略 :當(dāng)前坐標(biāo)為起始坐標(biāo)。 （ 1） Fillcolor指定填充圖案的顏色，默認(rèn)的顏色與Forecolor相同。 例 用 DrawWidth屬性改變直線寬度。當(dāng)坐標(biāo)系確定后，坐標(biāo)值 (x， y)表示對(duì)象上的絕對(duì)坐標(biāo)位置。 （ 2）當(dāng) AutoRedraw為 True時(shí)， VB會(huì)把圖形輸出并保存在內(nèi)存中。 （ 1）當(dāng) AutoRedraw為默認(rèn)值 False時(shí)， VB會(huì)把圖形輸出到屏幕，而不輸出到內(nèi)存。 （ 2）這兩個(gè)屬性在設(shè)計(jì)階段不能使用。 DrawWidth屬性以像素為單位來度量，最小值為 1。 Visual Basic 程序設(shè)計(jì) 填充與色彩 由 Fillstyle、 Fillcolor這兩個(gè)屬性決定封閉圖形的填充方式。 Visual Basic 程序設(shè)計(jì) 畫點(diǎn) 案例 18： 在窗體上畫一幅群星閃爍的畫面。 Visual Basic 程序設(shè)計(jì) 矩形格式 ：
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1