Guida Creare Paint In Vb6

[Giacomo000]

Salve a tutti !!! Oggi vi voglio insegnare a creare il vostro paint in VB6 .
Iniziamo:

1. Apriamo Visual Basic 6 e mettiamo standard project

2. Allarghiamo il form e inseriamo: 1 PictureBox , 1 TextBox , 2 CommandButton e 1 CommonDialog

3. Nella TextBox mettiamo come Caption " 10 " - Che sara' la dimensione
Nel 1° Command button mettiamo come Caption " Imposta Dimensione "
Nel 2° Command Button come caption " Colori "
Infine inseriamo un Common Dialog ( Project > Components > Windows Common Dialog 6.0 )

Dovrebbe uscire cosi:

Spoiler

Ora inseriamo i codici:

1. Inseriamo per iniziare (a vuoto):

Spoiler

Dim Drawing as Boolean

2. Nel Form_Load mettiamo :

Spoiler

Private Sub Form_Load()
Drawing = False
End Sub

3. Ora mettiamo Picture1_MouseDown , Picture1_MouseUp , e Picture1_MouseMove :

Spoiler

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Drawing = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next ' per evitare errori
If Drawing = True Then
Picture1.PSet (X, Y), 10
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Drawing = False
End Sub

4. Nel Bottone " Imposta Dimensione " :

Spoiler

Private Sub Command1_Click()
On Error Resume Next 'per evitare errori con i numeri
Picture1.DrawWidth = Text1.Text
End Sub

5. Per i colori mettiamo un Command Button (utilizziamo il commondialog):

Spoiler

Private Sub Command3_Click()
CommonDialog1.ShowColor
Picture1.ForeColor = CommonDialog1.Color
End Sub

Se ho sbagliato qualcosa ditemelo !!!

Beh ho finito grazie per avrer letto la mia guida ( lo spero )
A presto :ciao::ciao:

 

[Alefux]

Bravissimo, continua così.

 

[Giacomo000]

grazie tante

 

[Alefux]

Invece del CommandButton, potresti anche mettere un textchange()

 

[Simo&Simi]

Bravissimo!

 

[SirArtik]

guida molto utile bravo ;)

 

[Pera]

Ottimo!

 

[R3tr0s]

bravo :bravo:

 

[Giacomo000]

Grazie
P.s : ho messo il command perche' mi piaceva di piu' . Sarebbe piu' veloce col textchange in effetti

 

[Ratchet1994]

Ti sei dimenticato i codici per i colori..

 

[Giacomo000]

giusto mo li aggiungoo

 

[VanCracken]

buono ma cosi è troppo spoglio se vedi il mio hackartix grapichal paint è pieno zeppo di cose

 

[acb]

Ma perchè quando inserisco il commandialogue mi dice " Licens information for this component not found.You do not have an appropiate license to use this functionally in the design environment"

 

[KimiHory]

WoW Bravooo

 

[Pietruccio92]

Bravissimo, perchè non posti uno screen del tuo lavoro finito?? Voglio vedere cosa esce fuori ^^

 

[Copyright]

La tua guida mi è piaciuta spero che non ti sia dispiaciuto che l'ho messa nella mia raccolta ora in rilievo :