تقييم الموضوع :
  • 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,770 10-08-16, 08:22 PM
آخر رد: wessam.demerdash
  [سؤال] كيف يمكن ايجاد عدد الايام بين تاريخين ؟؟؟؟ moftah70 3 527 07-01-16, 12:57 AM
آخر رد: HASAN6.0

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


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