• 0
WAM3000

توقيع الكتروني

سؤال

صممت برنامج بسيط خاص بأرشفة الكترونية للوثائق وبقي لي أهم جزء وهو .. كيف استطيع عمل توقيع الكتروني على الصورة المحفوظة أو وضع ختم عليها ..

والسؤال ماهي الفكرة !!

وكيف أستطيع تنفيذها ؟!!

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

جرب هذا الكود .. ضع picture Box على الفورم و زر واحد

اضبط خاصية autoRedrow اجلها تساوي True

في الزر اكتب الكود التالي


تحميل الصورة .

Picture1.Picture = LoadPicture(App.Path & "\image.bmp")
نوع الخط المستخدم
Picture1.Font = "Arial"
حجم الخط المستخدم
Picture1.FontSize = 12
موضع الكتابة في اليسار
Picture1.CurrentX = 50
موضوع الكتابة اسفل الصورة
Picture1.CurrentY = picture1.height - 500

Picture1.Print "الفريق العربي للبرمجة - Omani"

طباعة الصورة على الورق - يجب التأكد بأن الطابعة تعمل

Printer.Print " " ' Printer must be initialized

On Error Resume Next
' Enter the following two lines on one line:
Printer.PaintPicture Picture1.Image, 0, 0
If Err Then
MsgBox Err & ": Error Printing Picture"
End If
On Error GoTo 0

' End print job:
Printer.EndDoc

تحياتي

تم تعديل بواسطه omani
-1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .