VB教程：直線（Line）控件

15、直線（Line）控件
    作用：直線控件的作用是用來(lái)在窗體、框架或圖片框中創(chuàng)建簡(jiǎn)單的線段。
    BorderStyle和BorderColor屬性——設(shè)置線段的顏色和樣式。
    除了可以用Shape控件和Line控件繪圖外，還可以用繪圖方法畫(huà)圖，最有用的繪圖方法包括：Line方法——它可以創(chuàng)建直線、矩形、或?qū)嵭姆娇?；Circle方法——可以生成圓、橢圓、或“餅圖扇面”；Pset——可在屏幕上為單獨(dú)象素設(shè)置顏色。
    Circle方法、Line方法畫(huà)圖的語(yǔ)法結(jié)構(gòu)為：
    畫(huà)圓：對(duì)象.Circle(x,y),r[,顏色]；
    畫(huà)直線：對(duì)象.Line(起點(diǎn)坐標(biāo))-(終點(diǎn)坐標(biāo))[,顏色]
    畫(huà)矩形：對(duì)象.Line(左上角坐標(biāo))-(右下角坐標(biāo))[,顏色],B[F]——F表示實(shí)心，B和F之間沒(méi)有標(biāo)點(diǎn)。
    例：畫(huà)正方形。
    代碼：
    Option Explicit
    Dim i As Integer
    Private Sub Command1_Click()
    For i = 1 To 6
    Picture1.Line (500 * i, 500 * i)-(500 * (i + 1), 500 * (i + 1)), QBColor(i), BF
    Next i
    End Sub
    Private Sub Command2_Click()
    End
    End Sub