Paint yapımı (Hazır Örnek)

[alimania]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

S.A Arkadaslar Yenı bır projeyle tekrar karsınızdayım Bu proje paint in yapısnın azcok analasılması amacıyla guzel bır calısma hazırladım Istyen arkadaslar dosyayı ayrıntılı olarak indırıp ınceleye bılır.(proje hakkında yorumlarınızı beklıyorum ) SELAMETLE.

`` NOT:Çalısmanın saglıklı bır sekılde calısa bılmesı ıcın ılk olarak vısual Basıc project`` kısmından çalıstırılması gerekmektedir. Dosyları zıpın ıcınden cıkaralım unutmadan

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

KODLAR



Private Sub Command1_Click()
Form1.Cls
End Sub


Private Sub Command2_Click()
End
End Sub



Private Sub Command4_Click()
CommonDialog1.ShowColor
Text10.Text = CommonDialog1.Color
End Sub

Private Sub Command5_Click()
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
End Sub

Private Sub Form_Click()
DrawWidth = Text5

If Option1 Then
Line -(Text1, Text2), CommonDialog1.Color
End If

If Option2 Then
Circle (Text1.Text, Text2), Text3, Text4
End If
If Option3 Then
Line (0, 0)-(Text1, Text2), CommonDialog1.Color, B
End If


End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y

End Sub

 

[OptiMistics]

teşekkürler.

 

[cagdas99]

keşke kaçtane button kaçtane text falan eklicemizde söleseydin

 

[JustWatchTM]

Teşekkürler.

 

[3xtacy]

teşşekürler.