Dessin simple

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 319 fois - Téléchargée 41 fois

Contenu du snippet

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

A voir également

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.