Un simple truc pour les debutants comme moi ,
faire des cercles et changer la taille du pinceaux ...
Source / Exemple :
Dim G As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("+") Then
If G < 6000 Then G = G + 5
Beep
ElseIf KeyAscii = Asc("-") Then
If G > 5 Then G = G - 5
Beep
End If
End Sub
Private Sub Form_Load()
G = 100
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button Then
If Button = 1 Then
Me.FillColor = RGB(255, 0, 0)
Circle (X, Y), G, RGB(255, 0, 0)
Else
Me.FillColor = RGB(0, 0, 0)
Circle (X, Y), G, RGB(0, 0, 0)
End If
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If W = 1 Then W = 0
End Sub
Private Sub Form_Resize()
frrgb.Width = dessin.Width
End Sub
Private Sub save_Click()
For Y = frrgb.Top + frrgb.Height + 1 To dessin.Top + dessin.Height - (frrgb.Top + frrgb.Height)
For X = 1 To dessin.Width
Open "c:\X.bin" For Binary As #1
Put #1, , dessin.Point(X, Y)
Next
Next
MsgBox "ok"
Close #1
End Sub
Private Sub load_Click()
Dim G As Long
For Y = frrgb.Top + frrgb.Height + 1 To dessin.Top + dessin.Height - (frrgb.Top + frrgb.Height)
For X = 1 To dessin.Width
Open "c:\X.bin" For Binary As #1
Get #1, , G
dessin.ForeColor = G
dessin.PSet (X, Y)
Next
Next
MsgBox "ok"
Close #1
End Sub
Conclusion :
Bug dans le load , a corriger
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.