كيف احول هذا الكود الى فيجول نت
علما انى اريد حساب عدد مرات تشغيل البرنامج واذا تعدى العدد
لا يشتغل البرنامج الا بشراء النسخه الا صلية
retvalue = GetSetting(App.Title, "0", "Runcount") GD$ = Val(retvalue) + 1 Label1.Caption = GD$ SaveSetting App.Title, "0", "RunCount", GD$ If GD$ > 3 MsgBox "you must pay program" Unload FRM '
اخي العزيز يوجد أداة مع الدوت نت 2005 او 2003 تقوم بعمل upgrade إلى الكود الموجود ب vb6
وهي اختار من قائمة tools الخيار
Upgrade visual basic 6 code
ملاحظة هامة
يجب ان تكون فاتح صفحة الكود لكي يظهر لك هذا الخيار
وهذا الكود المحول لما طلبته بدون تعديل مني بأستخدام vb.net 2005
'UPGRADE_WARNING: Couldn't resolve default property of object retvalue. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
retvalue = GetSetting(My.Application.Info.Title, "0", "Runcount")
'UPGRADE_WARNING: Couldn't resolve default property of object retvalue. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
GD = CStr(Val(retvalue) + 1)
'UPGRADE_WARNING: Couldn't resolve default property of object Label1.Caption. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Label1.Caption = GD
SaveSetting(My.Application.Info.Title, "0", "RunCount", GD)
If GD$ > 3
'UPGRADE_ISSUE: The preceding line couldn't be parsed. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="82EBB1AE-1FCB-4FEF-9E6C-8736A316F8A7"'
MsgBox("you must pay program")
'UPGRADE_ISSUE: Unload FRM was not upgraded. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="875EBAD7-D704-4539-9969-BC7DBDAA62A2"'
Unload(FRM) '
تم تعديل هذه المشاركة بواسطة فلسطيننا في 12 مايو 2006 في 21:33
رَبِّ لَا تَذَرْنِي فَرْداً وَأَنتَ خَيْرُ الْوَارِثِينَ
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…