1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
imagenPresa = Image.FromFile(dirExe & "\images\triangle.png")
Dim gimage As Graphics = Me.CreateGraphics
i = 0
Do While Not i = numTriang
'dessin du triangle
gimage.DrawImage(imagenPresa, tabstructpresa(i).coordpresa.X, tabstructpresa(i).coordpresa.Y)
'nom du triangle
Dim Fuente = New Font("Arial", 10, FontStyle.Bold)
gimage.DrawString(tabstructpresa(i).nombpresa, Fuente, Brushes.DarkGreen, tabstructpresa(i).coordpresa.X, tabstructpresa(i).coordpresa.Y)
i = i + 1
Loop
End Sub |
Partager