Discussion :

[Armas]

Bonjour à tous,

Alors voila, je voulais dessiné un rectangle, j'ai réussi, easy Probleme, c'est que pour certaines coordonnées, bah pas moyen, le rectangle ne s'affiche plus, pourquoi ? J'en ai aucune idée, pour ça que je suis ici d'ailleurs ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Public Class Form1
 
    Dim MIAM As Graphics = Me.CreateGraphics
 
    Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
 
        Try
 
            Dim plop = New System.Drawing.Point(250, 250)
            Dim plip As New System.Drawing.Size(25, 25)
 
            Dim MIAMrect = New System.Drawing.Rectangle(plop, plip)
 
            MIAM.DrawRectangle(Pens.Violet, MIAMrect)
            MIAM.FillRectangle(Brushes.Violet, MIAMrect)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
End Class

Une idée ? (je met un screen pour montrer)

Au dessus et à gauche de cette coordonnée (à peu pres) le carré s'affiche bien (25 par 25 au coordonnée indiqué, mais la on peut déja voir qu'il est coupé !)


Merci d'avance pour vos réponses