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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > التاريخ ميلادي و التاريخ هجري
نسخة كاملة : التاريخ ميلادي و التاريخ هجري
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

العيدروس

31-10-17, 08:10 PM
السلام عليكم .اخواني بارك الله فيكم سلفا كيف أضبط التاريخ الميلادي ليظهر بالتاكستبوكس 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

31-10-17, 08:16 PM
كل ما عليك هو تغير الفورمات 
كود :
TextBox2.Text = Format(Date, "yyyy- MM - dd")

العيدروس

31-10-17, 08:33 PM
تسلم أخي ربيع الله يجازيك كل خير
لك ما ضبطت معي و الله رغم كتبتي مثل ما ذكرته .. هو اكيد الخطأ من عندي ما قدرت أشغل الملف
أخي ربيع كيف احل مشكلة 
visual studio cannot start debugging ..
شوف هالملف لو سمحت اخي ربيع
تشكراتي

Rabeea Qbaha

31-10-17, 08:40 PM
كود :
        textbox1.Text = ToHijra(Now, "dddd :d, MMMM yyyy")

Rabeea Qbaha

31-10-17, 08:52 PM
تفضل اخي 
هاي شو بدك

العيدروس

31-10-17, 08:57 PM
بارك الله فيكم اخواني الكرام
اخ ربيع ارجوك لو سمحت و الله ماقدرت حتى اشوف الملف
افتح ملف جديد ليس به ربع كود
اضع عليه 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

31-10-17, 09:06 PM
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

31-10-17, 09:22 PM
تفضل اخي 
تحتاج
 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:34 PM
(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 
والله اشكرك جزيل الشكري اخ أحمد.بارك الله فيك و رحم والديك و اطال باعمارهم وبعمرك
اشتغل الملف زي الفل .الله يرضى عليك اخي الكريم
تشكراتي
اشكرك جزيل الشكر اخي ربيع الله يرضى عليك و يمتعك بكل ما تشتهيه من ارزاق الدنيا والاخرة
اشتغل الكود بطريقة صحيحة فقط كنت اريده يطلع التاريخ تلقائي بدون ازرار زي ما تكرم به اخ احمد
تشكراتي
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > التاريخ ميلادي و التاريخ هجري