[العيدروس]

السلام عليكم .اخواني بارك الله فيكم سلفا كيف أضبط التاريخ الميلادي ليظهر بالتاكستبوكس 2 بهذا الشكل من يمين الى يسار
2017-10-31
و التاريخ الهجري يظهر بااكستبوكس 1 بهذا الشكل
الثلاثاء : 11 صفر 1439
شكرا جزيلا

كود :

Public Class Form1
   Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
       Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
   End Function
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       TextBox1.Text = ToHijra(Now, "d dddd, MMMM yyyy")
 End Sub
 
   Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       TextBox2.Text = = Format(Date, "yyyy - mm - dd ")
     End Sub
End Class

[Rabeea Qbaha]

كل ما عليك هو تغير الفورمات 

كود :

TextBox2.Text = Format(Date, "yyyy- MM - dd")

[العيدروس]

تسلم أخي ربيع الله يجازيك كل خير
لك ما ضبطت معي و الله رغم كتبتي مثل ما ذكرته .. هو اكيد الخطأ من عندي ما قدرت أشغل الملف
أخي ربيع كيف احل مشكلة 
visual studio cannot start debugging ..
شوف هالملف لو سمحت اخي ربيع
تشكراتي

[Rabeea Qbaha]

كود :

        textbox1.Text = ToHijra(Now, "dddd :d, MMMM yyyy")

[Rabeea Qbaha]

تفضل اخي 
هاي شو بدك

[العيدروس]

بارك الله فيكم اخواني الكرام
اخ ربيع ارجوك لو سمحت و الله ماقدرت حتى اشوف الملف
افتح ملف جديد ليس به ربع كود
اضع عليه 2 تكست بوكس
اكتب فيه الكود يلي حضرتك كتبته او كتبه الاخ احمد جزاه الله خيرا .. فقط هكذا .. هذا كل ما في الملف .

كود :

Public Class Form1
TextBox1.Text = Today.ToString("d dddd, MMMM yyyy", New Globalization.CultureInfo("ar-SA"))
TextBox2.Text = Today.ToString("yyyy - MM - dd", New Globalization.CultureInfo("ar-EG"))
End Class

و مع ذلك عند عمل run تطلعلي الرسالة يلي كتبتها بمشاركتي فوق.
كيف اتخلص منها الله يخليكم
visual studio cannot start debugging because the debug target....

[a.ahmed]

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        TextBox1.Text = Today.ToString("dddd, dd MMMM yyyy", New Globalization.CultureInfo("ar-SA"))
        TextBox2.Text = Today.ToString("yyyy - MMMM - dd", New Globalization.CultureInfo("ar-EG"))
    End Sub

End Class 


[Rabeea Qbaha]

تفضل اخي 
تحتاج
 textbox1
textbox2
buttom

كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub
   Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
       Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = ToHijra(Now, "dddd :d, MMMM yyyy")
       TextBox2.Text = Date.Now.ToString("yyyy-MM-dd")
   End Sub
End Class

[العيدروس]

(31-10-17, 09:06 PM)a.ahmed كتب :

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        TextBox1.Text = Today.ToString("dddd, dd MMMM yyyy", New Globalization.CultureInfo("ar-SA"))
        TextBox2.Text = Today.ToString("yyyy - MMMM - dd", New Globalization.CultureInfo("ar-EG"))
    End Sub

End Class 


والله اشكرك جزيل الشكري اخ أحمد.بارك الله فيك و رحم والديك و اطال باعمارهم وبعمرك
اشتغل الملف زي الفل .الله يرضى عليك اخي الكريم
تشكراتي

---

اشكرك جزيل الشكر اخي ربيع الله يرضى عليك و يمتعك بكل ما تشتهيه من ارزاق الدنيا والاخرة
اشتغل الكود بطريقة صحيحة فقط كنت اريده يطلع التاريخ تلقائي بدون ازرار زي ما تكرم به اخ احمد
تشكراتي