تغییر در عکس

[sepahbod]

سلام دوستان
من می خواهم یه عکس و تصویر را در ویژوال بیسیک 6 لود بکنم بعد با وارد کردن مختصاتی حالا مثلا برحسب پیکسل (x , y) یه علامتی ویا شکلی مثل خندکهای کوچک و غیر قرار دهم و آن را ذخیره کنیم در قالب یه عکس .
مثلا فرض کنید من می خوام یه عکس با ابعاد 2000 * 1500 پیکسل را لود بکنم بعد در مختصات 50 * 60 پیکسل آن یک دایره مشکلی کوچک ویا عکس یه شکلک کوچیک را قرار بدهم و سپس در مختصات 1000 * 800 پیکسل آن یه دایره کوچک دیگری را قرار دهم و در نهایت آن تغییرات را در قالب یه عکس جدید ذخیره بکنم .
با تشکر از همکاری شما دوستان

[Ghoghnus]

سلام فکر کنم این بتونه کمکتون کنه!

کد:

Private Sub Form_Load()
Dim SP As StdPicture
Dim Cap As String 'caption
Dim TH As Long, TW As Long 'text width/height
Dim CapTop As Boolean
CapTop = True
Cap = "iranled.com"
Set SP = LoadPicture("C:\MyDocs\Misc\kws.bmp")
With Picture1
  .ScaleMode = vbTwips
  .AutoRedraw = True
  TW = .TextWidth(Cap)
  TH = .TextHeight("|")
  .Width = Picture1.ScaleX(SP.Width, vbHimetric, vbTwips)
  .Height = Picture1.ScaleY(SP.Height, vbHimetric, vbTwips) + TH

  If CapTop Then
   .PaintPicture SP, 0, TH
   'optional
   Picture1.Line (0, 0)-(.Width, TH), vbCyan, BF
   .CurrentX = (.Width - TW) \ 2 'center the text
   .CurrentY = 0
  Else
   .PaintPicture SP, 0, 0
   Picture1.Line (0, .Height - TH)-(.Width, .Height), vbCyan, BF
   .CurrentX = (.Width - TW) \ 2
   .CurrentY = .Height - TH
  End If
  Picture1.Print Cap
End With
End Sub

---

برای تغییر سایز هم اینجارا ببینید