PDA

View Full Version : چاپ متني كه روي عكس نوشتيم



developer_rahimi
سه شنبه 05 آبان 1388, 00:17 صبح
يه موقعي آقاي زواره اي (بابك) يه كد گذاشته بودن كه ميشد باهاش يه متن روي يه عكس نوشت. حالا چطوري ميشه اين نوشته رو روي همون عكس با ماوس جابجا كرد و در نهايت فقط همون نوشته ها رو بدون خود عكس روي كاغذ چاپ كرد؟
اينم كد آقاي زواره اي


Dim bim AsNew Bitmap(PictureBox1.Image)
Dim g As Graphics = Graphics.FromImage(bim)
PictureBox1.CreateGraphics.DrawString(TextBox1.Tex t, Me.Font, Brushes.Black, 10, 10)
g.DrawString(TextBox1.Text, Me.Font, Brushes.Black, 10, 10)
bim.Save("e:\test.jpg")

MohsenTi
سه شنبه 05 آبان 1388, 12:26 عصر
این متن قابلیت درگ و درو نداره .
برای خوندن متن روی عکس باید با تکنولوژی OCR آشنا باشی چند نمونه OCR در همین سایت هست قسمت پروژه های اپن سورس

developer_rahimi
سه شنبه 05 آبان 1388, 14:47 عصر
دوست عزیز میشه یه نمونه کار واسم بذارید که روی یه عکس متنیو قرار بدیم و با موس بتونیم جابجاش کنیم و مختصات محل جدیدشو پیدا کنیم و در نهایت متنارو بدون اینکه تصویر زیریش چاپ بشه چاپ کنیم؟ ممنون میشم خیلی گیرم
فرضا بخوایم روی یه چک پرینت کنیم ولی متنو اول روی عکس چک که تو یه پیکچرباکس لود شده تنظیم کنیم بعد چاپش کنیم رو اصل چک

MohsenTi
پنج شنبه 07 آبان 1388, 18:53 عصر
یه نمونه تو سایت بود یکم تغییرش دادم براتون گذاشتم

reza1944
جمعه 08 آبان 1388, 03:55 صبح
عزيز من MohsenTi (http://barnamenevis.org/forum/member.php?u=59498) اين چيه نوشتي كامپيوترم رفت حالت خلصه !!!!!!!!! بعد اين برنامه با اين سوال چه ربطي داره!؟

روش راحت تر اينكه از label و رويداد drag و drap استفاده كني سيستم هم hang نميكنه

تازه نوشته به تنهايي چاپ ميشه