+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال بخصوص الكود تبع النسخة التجريبية (/showthread.php?tid=33257)
سؤال بخصوص الكود تبع النسخة التجريبية - 0theghost0 - 02-02-20
هذا الكود يعمل بالسنة
كود :
lblDate.Text = Date.Now.ToString("dddd") & " - " & Date.Now.ToString("MMM dd, yyyy")
frmLogin.ShowDialog()
txtna.Text = Date.Now.ToString("dd")
If txtna.Text = "3" Then
MsgBox("تم تحميل البيانات بنجاح", MsgBoxStyle.OkOnly, "تسجيل الدخول")
Else
MsgBox("انتهت النسخة المجانية", MsgBoxStyle.OkOnly, "انتهاء الخدمة")
Me.Close()
End If
TextBox1.Text = Now.ToString("ddmmyyyy")وايضا بعدد الاشهر كيف ؟؟
لو سمحتم
مثال ابغي اخليه يعمل لـ 15 يوم فقط
او اخليه يعمل لمدة لاتتجاوز شهرين او شهر واحد
RE: سؤال بخصوص الكود تبع النسخة التجريبية - asemshahen5 - 03-02-20
هذا مثال به ما تريد باذن الله في الفورم : FrmLogin
في Private Sub Form_Open .
سورس كود برنامج IT للعهدة والمستخدمين والاجهزة .