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

[WAM3000 1]

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

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

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

[omani 262]

جرب هذا الكود .. ضع 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

تحياتي

تم تعديل 8 Jul 2010 بواسطه omani