نقاشی کردن

سلام به همه دوستان
کسی می تونه یه کد بهم بده یا بگه چی کار باید بکنم که بتونم روی صفحه نقاشی کنم و بتونم نوع قلم و رنگ از جعبه قلم انتخاب کنم. برای Vb6 می خواستم
ممنون می شم

کسی نمی خواد کمکم کن؟ حداقل یه راهنمایی که می تونید بکنید!

نقل قول:

---

نوشته شده توسط amsjavan [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کسی نمی خواد کمکم کن؟ حداقل یه راهنمایی که می تونید بکنید!

---

اگه دست از سر VB6 ور میداشتی و میومدی تو دات نت یک کامپوننت مخصوص همین کار داره !!!
سر ایکی ثانبه یک Paint با تمام امکاناتش میسازی حالا بیا و تو VB6 . . . .

سلام!

خیلی ساده:

کد:

---

Private Sub Form_Load()
  Me.DrawWidth = 5
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Me.PSet (X, Y), vbRed
  End If
End Sub

---

میتونی برای تغییر اندازه قلم مقدار DrawWidth رو تغییر بدی!
برای تغییر رنگ هم به جای vbRed از یه رنگ دیگه استفاده کن مثلا vbGreen یا چیزای دیگه...

برای انتخاب رنگ از جعبه رنگ باید از Common Dialog استفاده کنی.

اگه مشکلی بود حتما بگو! :11:

نقل قول:

---

نوشته شده توسط Smafias [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام!

خیلی ساده:

کد:

---

Private Sub Form_Load()
  Me.DrawWidth = 5
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Me.PSet (X, Y), vbRed
  End If
End Sub

---

میتونی برای تغییر اندازه قلم مقدار DrawWidth رو تغییر بدی!
برای تغییر رنگ هم به جای vbRed از یه رنگ دیگه استفاده کن مثلا vbGreen یا چیزای دیگه...

برای انتخاب رنگ از جعبه رنگ باید از Common Dialog استفاده کنی.

اگه مشکلی بود حتما بگو! :11:

---

سلام

ممنون از کد

commondialog هم کار کرد . می خوام بتونم نوع قلم رو از combobox انتخاب کنم و در ضمن بتونم فایل رو save و همچنین new کنم .

خوب اول باید بگی منظور از نوع قلم یعنی چی؟ مثال بزن! :20:

حالا که برنامت یکم از حالت سادگی در اومد بهتره که بجای اینکه توی فرم نقاشی کنی
یه PictureBox بذاری و توی اون نقاشی کنی!
کدش این شکلی میشه:

کد:

---

Private Sub Form_Load()
  Picture1.DrawWidth = 5
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Picture1.PSet (X, Y), vbRed
  End If
End Sub

---

اگر بخواهی Save و New هم داشته باشی -- میتونی دو تا Command Button بذاری و توی
کدشون بنویسی -- برای New اینو بنویس:

کد:

---

Picture1.Cls

---

و برای Save هم اینو بنویس:

کد:

---

On Error GoTo ErrHandler

CommonDialog1.Filter = "Bitmap Files|*.bmp"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave

SavePicture Picture1.Image, CommonDialog1.FileName

'if cancel was selected then exit sub
ErrHandler: If Err.Number = 32755 Then Exit Sub

---

خوب بازم مشکل بود بگو! :11:

خوب کدش حالا خوب جا افتاد

نوع قلم یعنی همون اندازه قلم که تو با Picture1.DrawWidth = 5 آوردی می خوام همین اندازه ها بشن item های combobox .
OK؟

برای فرم لود این رو بنویس:

کد:

---

Private Sub Form_Load()
  For i = 1 To 15
    Combo1.AddItem i
  Next i
End Sub

---

البته میتونی به جای 15 عدد بزرگترین قلمت رو بذاری.

و برای اینکه هنگام انتخاب از جعبه اندازه قلم هم تغییر کنه:

کد:

---

Private Sub Combo1_Click()
  Picture1.DrawWidth = Val(Combo1.Text)
End Sub

---

اگه مشکلی بود بازهم هستیم! :11:

کد اینه ولی کار نمی کنه

کد:

---

Private Sub Form_Load()
Dim i As Integer
  CommonDialog1.ShowColor
  CommonDialog1.Flags = 1
  Combo1 = " "
  For i = 1 To 15
    Combo1.AddItem i
  Next i

End Sub

Private Sub Combo1_Click()
  Picture1.DrawWidth = Val(Combo1.Text)
End Sub


Private Sub mnuNew_Click()
Picture1.Cls
End Sub

Private Sub mnuSave_Click()
On Error GoTo ErrHandler

CommonDialog1.Filter = "Bitmap Files|*.bmp"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave

SavePicture Picture1.Image, CommonDialog1.FileName

ErrHandler: If Err.Number = 32755 Then Exit Sub
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  If Button = 1 Then
    Me.PSet (x, y), CommonDialog1.Color
  End If
 
End Sub

---

آقا دستت در نکنه یه سوال دیگه هم داشتم که ربطی به نقاشی نداره.
یه برنامه نوشتم که فایل صوتی رو با MMC Control پخش می کنه .می خوام یه فایلی رو از رو کامپیوتر یا از رو سی دی open کنم اما نمیشه!

نقل قول:

---

نوشته شده توسط amsjavan [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد اینه ولی کار نمی کنه

---

ببخشید یادم رفت که باید این خط رو هم توی قسمت Form_Load اضافه کنین:

کد:

---

Picture1.AutoRedraw = True

---

در ضمن شما یک خط رو اشتباه نوشتید -- این خط:

کد:

---

Me.PSet (x, y), CommonDialog1.Color

---

اینجوری توی فرم نقاشی میشه و برای اینکه توی Picture Box نقاشی بشه بنویسید:

کد:

---

Picture1.PSet (x, y), CommonDialog1.Color

---

بازم معذرت میخوام!

----
خوب سوال دومتون مربوط به تاپیک نمیشه ولی باشه جواب میدم:
برای این کار باید FileName رو برابر مسیر فایل مورد نظر قرار بدین.
بعد برای open باید دستور open رو بدید و برای play هم دستور play -- مثال:

کد:

---

MMControl1.FileName = "c:\music.wav"
MMControl1.Command = "open"
MMControl1.Command = "play"

---

به همین سادگی :11: