Total Hack Cheat
Benvenuto/a su Total hack Cheat....
non aspettate altro tempo Registratevi!!

[Guida]Creare Paint in VB6

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso

[Guida]Creare Paint in VB6

Messaggio Da RaYoZ il Dom Set 12, 2010 2:47 pm

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 )
[Devi essere iscritto e connesso per vedere questa immagine]

Ora inseriamo i codici:

1. Inseriamo per iniziare (a vuoto):
Codice:
 Dim Drawing as Boolean

2. Nel Form_Load mettiamo :
Codice:
 Private Sub Form_Load()
Drawing = False
End Sub


3. Ora mettiamo Picture1_MouseDown , Picture1_MouseUp , e Picture1_MouseMove :

Codice:
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 " :


Codice:
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):

Codice:
Private Sub Command3_Click()
CommonDialog1.ShowColor
Picture1.ForeColor = CommonDialog1.Color
End Sub
Fine
Fonte:Web




RaYoZ
Admin
Admin

Messaggi : 1040
Punti : 2245
Data d'iscrizione : 03.04.10
Età : 22
Località : immerso nei pensieri

Tornare in alto Andare in basso

Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto

- Argomenti simili

 
Permesso di questo forum:
Non puoi rispondere agli argomenti in questo forum