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

هاي يا شباب
انا عملت فورم به تكست بوكس و زر بوتون
عايز لما اضغط علي زر البوتن يتكتب في التكست بوكس اسم اليوم
مثال يعني لو الجهاز مكتوب فيه اليوم هو الخميس 1-1-2015
يروح يتكتب في التكست بوكس كلمة الخميس فقط

لا اريد كتابة تاريخ اليوم لاني اعرفه = Now.ToString("dd/MM/yyyy") - DateString
أريد كتابة اسم اليوم = السبت او الاحد ... إلخ

وشكراً مقدماً لكل من سيساعدني .

كود :

       Dim CurruntCulture = Globalization.CultureInfo.CurrentCulture

        Dim DayName As String = CurruntCulture.DateTimeFormat.GetDayName(DateTime.Parse(Date.Now).DayOfWeek)

        TextBox1.Text = DayName

بالتوفيق

يمكنك عمل ذلك بهذه الطريقة ايضا

كود :

       Dim ci As New System.Globalization.CultureInfo("ar-SA")

        Dim dt As DateTime = DateTime.Now

        TextBox1.Text = dt.ToString("dddd", ci)

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

sv25b858

Dr.Sherif Alazizi

المبرمج الطموح88