Documentation de Gambas - /comp/gb.qt4/draw/line

/comp/gb.qt4/draw/line

# Draw.Line (gb.qt4)

Static Sub Line ( X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer )

Dessine une ligne.

### Exemples

    ' Cette exemple dessinera une ligne rouge sur le formulaire. Pour essayer cette exemple,
    ' démarrer un nouveau projet graphique et placer un bouton sur le formulaire.

    PUBLIC SUB Button1_Click()
    Draw.Begin(ME)
    Draw.LineWidth = 20
    Draw.ForeColor = Color.Red
    Draw.Line(50, 100, 200, 150)
    Draw.End
    END

    ' Cette exemple dessinera un 'X' en blanc. Pour essayer cette exemple,
    ' démarrer un nouveau projet graphique et placer un bouton sur le formulaire.

    PUBLIC SUB Button1_Click()
    Draw.Begin(ME)
    Draw.LineWidth = 10
    Draw.ForeColor = &hFFFFFF
    Draw.Line(50, 50, 200, 200)
    Draw.Line(50, 200, 200, 50)
    Draw.End
    END

    ' Cette exemple dessinera un modèle de lignes rouge et jaune alternatif sur
    ' le formulaire. Pour essayer cette exemple, démarrer un nouveau projet graphique
    ' et placer un bouton sur le formulaire.

    PUBLIC SUB Button1_Click()

    DIM i, Bottom AS Integer
    Bottom = ME.Height

    Draw.Begin(ME)
    Draw.LineWidth = 4

    FOR i = 0 TO Bottom STEP 8
    Draw.ForeColor = Color.Yellow
    Draw.Line(0, i, ME.Width, i)
    Draw.ForeColor = Color.Red
    Draw.Line(0, i + 4, ME.Width, i + 4)
    NEXT
    Draw.End

    END

}