منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤال بخصوص الكود تبع النسخة التجريبية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هذا الكود يعمل بالسنة
كود :
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 يوم فقط

او اخليه يعمل لمدة لاتتجاوز شهرين او شهر واحد
هذا مثال به ما تريد باذن الله في الفورم : FrmLogin 

في Private Sub Form_Open .

سورس كود برنامج IT للعهدة والمستخدمين والاجهزة .