ايران ويج

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

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

کد: 
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

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

sepahbod

Ghoghnus