A voir également:
- Excel remplacer point d'interrogation
- Remplacer point par virgule excel ✓ - Forum VB.NET
- Arctan excel - Forum VBA Office (Excel, Word ...)
- Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin" - Forum Visual Basic
- Tangente et arctangente ✓ - Forum C++ & C++ .NET
- Vba remplacer caractère ✓ - Forum VB.NET
1 réponse
Place sur une form une PictureBox.
Met les ScaleMode (Form et PictureBox) sur 3 - Pixel.
Le PictureBox doit faire : 257x257 pour voir tout l'image.
Puis tu colles le code suivant :
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Sub Form_Load()
For Y = 0 To 255
For X = 0 To 255
SetPixel Picture1.hdc, X, Y, RGB(X, Y, 0)
Next
Next
End Sub
a+
Met les ScaleMode (Form et PictureBox) sur 3 - Pixel.
Le PictureBox doit faire : 257x257 pour voir tout l'image.
Puis tu colles le code suivant :
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Sub Form_Load()
For Y = 0 To 255
For X = 0 To 255
SetPixel Picture1.hdc, X, Y, RGB(X, Y, 0)
Next
Next
End Sub
a+