PDA

View Full Version : ساخت یک برنامه نقاشی



احمد احمد
چهارشنبه 15 مرداد 1382, 14:01 عصر
سلام :)
از بچه های حاضر ممنون میشم اگر کسی آشنائی به ساخت یک برنامه شبیه به برنامه Paint ویندوز یا PaintBrush معروف رو داره در اختیار بگذاره :)

متشکرم :)
:P

jannati
چهارشنبه 15 مرداد 1382, 15:43 عصر
به نظر من اگر یک OLEدر برنامه قرار دهید و اونو به paint وصل کنید خیلی زود به جواب برسید :lol:

mehrzad007
چهارشنبه 15 مرداد 1382, 23:43 عصر
اونجوری دیگه خودت نوشتی؟
من یه سورس کد کامل از این برنامه رو توی این سایت دیدم . این سایت پر از سورس کد های وی بی و وی بی دات نت هست می تونید از اینجا بگیرید خیلی باحاله
www.freevbcode.com
تو قسمت گرافیک .

S.Azish
پنج شنبه 16 مرداد 1382, 15:01 عصر
بهتره که اینکارو خودتون انجام بدید. اول یک Picturebox به فرمتون اضافه کنید بعد توی Event های MouseDown, MouseMove و MouseUp شکلها رو بکشید. برای مثال برای کشیدن یک خط ساده



Option Explicit
Private X1 As Single, Y1 As Single
Private LastX As Single, LastY As Single

Private Sub picPaint_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'
If Button = vbLeftButton Then
X1 = X
Y1 = Y
End If
'
End Sub

Private Sub picPaint_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'
If Button = vbLeftButton Then
If Not (LastX = 0 Or LastY = 0) Then
picPaint.Line (X1, Y1)-(LastX, LastY), picPaint.BackColor
End If
picPaint.DrawMode = vbInvert
picPaint.Line (X1, Y1)-(X, Y), vbBlack
LastX = X
LastY = Y
End If
'
End Sub

Private Sub picPaint_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'
If Button = vbLeftButton Then
picPaint.DrawMode = vbCopyPen
picPaint.Line (X1, Y1)-(X, Y), vbBlack
End If
'
End Sub

SH_Zahra
دوشنبه 19 اردیبهشت 1384, 23:01 عصر
دوست عزیز من این کارو انجام دادم اما درست نشد منظورت از اینکه

بعد توی Event های MouseDown, MouseMove و MouseUp شکلها رو بکشید. برای مثال برای کشیدن یک خط ساده

چیه ؟من متوجه نشدم کمی واضح تر بگو لطفا :flower:

mehrzad007
سه شنبه 20 اردیبهشت 1384, 06:42 صبح
اول یه دقت به تاریخ پست ها بیانداز . این خیلی قدیمیه .

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