تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الايام : الاحد الاثنين
#1
السلام عليكم

شباب شلون اخلي مثلاً اذا دخل البرنامج و كان يوم الاحد تطلع رسالة فيه يوم الاحد
و هاكذا مثل باقي الايام ؟

و ثاني سرال شلون اخلي البرنامج يشتغل مع الوندوز ؟
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته
PHP كود :
Dim days() As String = {"الاحد""الاثنين""الثلاثاء""الاربعاء""الخميس""الجمعة""السبت"}
    Private 
Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        MsgBox
(days(Now.DayOfWeek))
    
End Sub 


السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة: سعود , sooriaty03 , مالكـ , kslawy , mohssan , hoob computer
#3
اشترط رقم اليوم
اظن رقم الاحد هو صفر 0
وهذا كود الاخ المشرف تركي
كود :
Dim days() As String = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت"}

        If Now.DayOfWeek = 0 Then
            MsgBox(days(Now.DayOfWeek))
        End If


الكود التالي لبدء التشغيل مع النظام مجرب على ويندوز 7
كود :
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(ProductName, Application.ExecutablePath)

وهذا لحذفه من بدء التشغيل
كود :
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: sooriaty03 , مالكـ , kslawy , Japan , mohssan , hoob computer
#4
(15-10-13, 01:27 AM)تركي قرمزلي كتب : السلام عليكم و رحمة الله و بركاته
PHP كود :
Dim days() As String = {"الاحد""الاثنين""الثلاثاء""الاربعاء""الخميس""الجمعة""السبت"}
    Private 
Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        MsgBox
(days(Now.DayOfWeek))
    
End Sub 


السلام عليكم و رحمة الله و بركاته

مشكور

(15-10-13, 01:40 AM)سعود كتب : اشترط رقم اليوم
اظن رقم الاحد هو صفر 0
وهذا كود الاخ المشرف تركي
كود :
Dim days() As String = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت"}

        If Now.DayOfWeek = 0 Then
            MsgBox(days(Now.DayOfWeek))
        End If


الكود التالي لبدء التشغيل مع النظام مجرب على ويندوز 7
كود :
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(ProductName, Application.ExecutablePath)

وهذا لحذفه من بدء التشغيل
كود :
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)

مشكووووووووووووووور افدتني واااجد مشكور
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow الربط بين الاثنين الكمبوبكس ليعطيني النتيجه محمد مسافر 9 1,550 10-08-16, 08:22 PM
آخر رد: wessam.demerdash
  [سؤال] كيف يمكن ايجاد عدد الايام بين تاريخين ؟؟؟؟ moftah70 3 388 07-01-16, 12:57 AM
آخر رد: HASAN6.0

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


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