-
نوشتن روی عکس
سلام
می خوام برنامه ای بنویسم که از اون برای چاپ گواهینامه های آموزشی استفاده کنم
یعنی باید توی اون یک عکس رو لود کنیم
و توی قسمت های مشخصی فیلدهایی قرار بدیم ( مثلا نام و نام خانوادگی یا نام پدر یا شماره ملی) که این فیلدها به یک دیتابیس اکسس وصل باشن.
و با زدن یک دکمه به تعداد رکوردهای دیتا بیس عکس با همون کیفیت ذاتیش ذخیره بشه و نوشته فیلدها هم در همون موقعیت نوشته شده باشه.
از دوستان تقاضای کمک داریم
موفق باشید :n40::n40::n40::n40::n40:
-
سلام
با VB6 نمیدانم ولی با VB2015 چیزی شبیه این میشود.
متن text را روی فایل file در مختصات (100,100) با رنگ سیاه و فونت Tahoma نوشته و فایل را با افزودن کلمه output و با همان فرمت اولیه (jpg,png,bmp و...) ذخیره میکند.
کد:
Imports System.IO
Imports System.Drawing
'...
'...
'...
Public Sub Draw(file As String, text As String)
Dim outputFile As String = _
Path.Combine( _
Path.GetDirectoryName(file), _
Path.GetFileNameWithoutExtension(file) + "-output" + Path.GetExtension(file))
Using _
bmp = Image.FromFile(file), _
gdi = Graphics.FromImage(bmp)
Dim font = New Font("Tahoma", 10.0F)
gdi.DrawString(text, font, Brushes.Black, 100, 100)
bmp.Save(outputFile, bmp.RawFormat)
End Using
End Sub