+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اكمال بعض الجزئيات في المشروع (/showthread.php?tid=7282)
اكمال بعض الجزئيات في المشروع - odaowdi - 07-12-12
السلام عليكم
لقد قمت بإنشاء مشروع على الفيجوال بيسك 6 وينقصني بعض الاكواد والمعلومات
1- اريد ان اطرح التطبيق على المستخدمين وعند التعديل عليه سيقوم بضغط ( حفظ ) المطلوب أريد ان يقوم البرنامج بحفظ التعديلات( الادخالات ) التي قام بها المستخدم على نفس التطبيق .exe أو حفظه بملف آخر بتطبيق .exe
2- زر الطباعة حيث عندما اقوم بضغطه يعطيني خصائص الطابعة
3- عندما يقوم المستخدم بتكبير التطبيق فإن جميع المعلومات ستكون في زاوية الشاشة .. أريدها دائما في المنتصف حتى عند التكبير
4- الترقيم التلقائي لعدد مرات فتح البرنامج
5- اريد زر يقوم بارسال الملف المعدل ( الذي قام المستخدم بإضافة الادخالات ) عبر الاوتلوك
اكمال بعض الجزئيات في المشروع - 3amo - 08-12-12
بخصوص الترقيم التلقائي لعدد مرات تشغيل البرنامج
إليك هذا الكود
كود :
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بالتوفيق
اكمال بعض الجزئيات في المشروع - 3amo - 08-12-12
بخصوص خصائص الطابعة
جرب هذا الكود لعله ينفع
كود :
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 SubRE: اكمال بعض الجزئيات في المشروع - اسلام الكبابى - 08-05-15
إقتباس :بخصوص الترقيم التلقائي لعدد مرات تشغيل البرنامجممتاز بارك الله فيك
إليك هذا الكود
ولكن ألا يوجد كود لتحديد مدة تشغيل البرنامج بدءآ من أول تشغيل له
مثلآ شهر بدءآ من أول تشغيل له أو مثلآ 40 يوم بدءآ من أول تشغيل له
ولكم ألف شكر