تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اكمال بعض الجزئيات في المشروع
#1
السلام عليكم
لقد قمت بإنشاء مشروع على الفيجوال بيسك 6 وينقصني بعض الاكواد والمعلومات

1- اريد ان اطرح التطبيق على المستخدمين وعند التعديل عليه سيقوم بضغط ( حفظ ) المطلوب أريد ان يقوم البرنامج بحفظ التعديلات( الادخالات ) التي قام بها المستخدم على نفس التطبيق .exe أو حفظه بملف آخر بتطبيق .exe
2- زر الطباعة حيث عندما اقوم بضغطه يعطيني خصائص الطابعة
3- عندما يقوم المستخدم بتكبير التطبيق فإن جميع المعلومات ستكون في زاوية الشاشة .. أريدها دائما في المنتصف حتى عند التكبير
4- الترقيم التلقائي لعدد مرات فتح البرنامج
5- اريد زر يقوم بارسال الملف المعدل ( الذي قام المستخدم بإضافة الادخالات ) عبر الاوتلوك
الرد }}}
تم الشكر بواسطة:
#2
بخصوص الترقيم التلقائي لعدد مرات تشغيل البرنامج
إليك هذا الكودBig Grin
كود :
Private Sub Form_Load()
كود :
retvalue = GetSetting("A", "0", "Runcount")
Label1 = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 30 Then ' الرقم (30) يحدد عدد مرات التشغيل
MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Unload Me
End If


End Sub
بالتوفيق
الرد }}}
تم الشكر بواسطة:
#3
بخصوص خصائص الطابعة
جرب هذا الكود لعله ينفع
كود :
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As LongPrivate Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hPrinter As Long
    OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
    PrinterProperties Me.hwnd, hPrinter
    ClosePrinter hPrinter
End Sub
بالتوفيق
الرد }}}
تم الشكر بواسطة:
#4
إقتباس :بخصوص الترقيم التلقائي لعدد مرات تشغيل البرنامج
إليك هذا الكود
ممتاز بارك الله فيك

ولكن ألا يوجد كود لتحديد مدة تشغيل البرنامج بدءآ من أول تشغيل له
مثلآ شهر بدءآ من أول تشغيل له أو مثلآ 40 يوم بدءآ من أول تشغيل له
ولكم ألف شكر
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم