کمک برای ساخت برنامه Paint با Visual Basic

[soooot]

سلام
من میخوام با Visual Basic یه برنامه Paint بسازم ولی چیز زیادی از Visual Basic بلد نیستم
کسی میتونه در این زمینه بهم کمک کنه ؟

[Amin Uljay]

سلام به شما دوست عزیز
خوب شما باید حداقل 6 ماه کار کرده باشی تا بتونی یک Paint نسبتا کامل و قابل قبول بنویسی!
خوب من اگه تونستم برات یه سری کد میزارم!

[soooot]

سلام به شما دوست عزیز
خوب شما باید حداقل 6 ماه کار کرده باشی تا بتونی یک Paint نسبتا کامل و قابل قبول بنویسی!
خوب من اگه تونستم برات یه سری کد میزارم!

ممنون از لطفتون
اگر بتونید برای شروع ساخت یه برنامه Paint با Visual Basic هم راهنمائیم کنید ممنون میشم

[Amin Uljay]

بسیار عالی !
قسمت اول!
__________________
اولین چیزی که تو زبان های برنامه نویسی مهم هست قالب اون هست! مثلا در VB برای نوشتن یک برنامه شما باید یک سری مراحل رو طی کنی.مثل مقدار دهی و ...!
من به شما پیشنهاد میکنم به این قسمت یه سرکی بزنی! که اموزش vb رو توضیح دادن .خیلی جالب هست! دیگه وارد جزئیات بیشتر نمیشم!
در این قسمت:[ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ]

__________________
قسمت دوم:
شما این مراحل رو انجام بده!!

1-- یک عدد PictureBox در صفحه قرار بده و اسم اونرو P1 بذار. (برای رسم خطوط و سایر موارد) بعد در قسمت Option--Appearance اون رو روی حالت Flat-0 قرار میدین!

2-- یک عدد Label با اندازه 255.255 قرار میدی و اسم اونرو lblc قرار میدی .از اون به تعداد رنگ ها (16) کپی
میکنی!!
درصورتی که دستگاه پیغام داد شما اون رو YES میکنی تا تمام اونها با هم Array بشن!

3-- یک label دیگه با نام lblc1 قرار میدی.برای نمایش رنگ فعلی!

4-- بعد شما باید یک Common Dialog قرار بدی و اسم اونو cmdl1 بذاری.

5-- 4 تا Option هم میذاری.
__________________
قسمت سوم: قرار دادن کد ها

Dim oldx, oldy, cl

Private Sub Form_Load()
cl = 0: lblc1.BackColor = QBColor(cl)
For i = 0 To 15
lblc(i).BackColor = QBColor(i)
Next i
End Sub

Private Sub lblc_Click(Index As Integer)
cl = Index
lblc1.BackColor = QBColor(cl)
End Sub

Private Sub lblc1_Click()
p1.Line = QBColor(i)
End Sub

Private Sub Option1_Click()
p1.DrawWidth = 1
End Sub

Private Sub Option2_Click()
p1.DrawWidth = 2
End Sub

Private Sub Option3_Click()
p1.DrawWidth = 3
End Sub

Private Sub Option4_Click()
p1.DrawWidth = 5
End Sub

Private Sub p1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oldx = X
oldy = Y
End Sub

Private Sub p1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
n = 400
For i = 1 To 10
t = Rnd * 2 * 3.14
r = Int(Rnd * n)

X1 = r * Sin(t)
Y1 = r * Cos(t)
p1.PSet (X + X1, Y + Y1), lblc1.BackColor
Next i
End If
If Button = 1 Then
p1.Line (oldx, oldy)-(X, Y), lblc1.BackColor
oldx = X
oldy = Y
End If

End Sub

اگه مایل باشی میتونم یه سری برنامه جالب تو همین تیریپ باست بفرستم!

[soooot]

اگه مایل باشی میتونم یه سری برنامه جالب تو همین تیریپ باست بفرستم!

ممنون از لطفتون
اگر اون برنامه ها رو هم بفرستید که دیگه عالی میشه
البته اگر لطف کنید و به همراه برنامه ها درباره هر کدومشون یه توضیح هم بدید ممنون میشم

[shamsoft]

سورس كامل همچين برنامه اي توي سايت ما هست [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[تکنیک برتر]

سلام دوست عزیز شما اگر یه سرچ می کردی یا مطالب قبلی را می دیدین حتما پیدا می کردین .

[soooot]

سلام دوست عزیز شما اگر یه سرچ می کردی یا مطالب قبلی را می دیدین حتما پیدا می کردین .

سلام تکنیک برتر جان
خوبی ؟
من در مورد برنامه Paint در انجمن ویژال بیسیک پی سی ورلد جستجو کردم ولی چیز بدرد بخوری برای یه مبتدی پیدا نکردم
اگر شما تایپیکی سراغ دارید که در این زمینه توش بحث شده باشه و لینک اون رو اینجا بگذارید ممنون میشم

[Amin Uljay]

سلام و ببخشید که دیر شد.
شما فایل RAR رو دان کن!
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


برنامه هایی که من در اختیارتون گذاشتم بیشتر جنبه آموزشی داره نه کاربردی!

1 Amin peyravi Animation یک برنامه حرکتی که جالب هست که فکر کنم به این راحتی ها نشه نوشتش!!!
2 Browser یک برنامه برایکار با cdrom و Explorer
3 Clock نقش پاندول یک ساعت رو ایفا میکنه که امیدوارم تو دستگاتون قاطی نکنه!
4 Driver مثلا یه چیزی تو مایه های ماشین و جاده(منتظر بازیش باشید.)
5 Ball یک برنامه توپ ساده(فرم را تغیر اندازه دهید)
6 Paint نقاشی ساده که هنوز کامل نیست(اسپری هم کار میکنه< راست کلیک>)
7 Thank you همانند گزینه اول

8 A1 فرم را بزرگ کرده و سعی کنید اثر خلق کنید!
9 A2 یک نقاشی خیلی ساده(برای دوستمون که درخواست کرده بود)
10 Cd Browser فایل EXE همون گزینه دوم.
11 Clock فایل EXE همون گزینه سوم.
12 Driver فایل EXE همون گزینه چهارم.
13 Final Work فایل EXE همون گزینه اول به صورت کامل.
14 Ball فایل EXE همون گزینه پنجم.
15 Puzzle یک بازی ساده پازل که هنوز کار داره.
16 Thank you فایل EXE همون گزینه آخر.
17 Ul paint اسمش روشه!

خیلی ممنون از توجه تون

[Amin Uljay]

اگه ممکنه نظرتون رو درباره این برنامه بگید.
یه مبتدی نوشته