و عليكم السلام و رحمة الله و بركاته
هذان مثالان احدهما يعرض التاريخ باللغة العربية و الثاني حسب لغة العرض الافتراضية للجهاز
يمكن استبدال label1.text ب textbox.text
20-03-22, 10:32 AM (آخر تعديل لهذه المشاركة : 20-03-22, 10:33 AM {2} بواسطة asmarsou.)
(20-03-22, 10:21 AM)um_noor20 كتب : جزيت خيرا ولكن المرفقات لا يمكن فتحها
هذا للتاريخ بالعربية
كود :
Imports System.Globalization
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = DateTime.UtcNow.ToString(" dddd/dd /MMMM/yyyy ", New CultureInfo("ar-AE"))
End Sub
End Class
وهذا الاخر
كود :
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Date.Today.ToString("dddd") & " " & Date.Today
Label2.Text = DateTime.Today.ToString("MMMM")
Label3.Text = DateTime.Today.ToString("dd MMMM yyyy")
End Sub
End Class
(20-03-22, 10:32 AM)asmarsou كتب :
(20-03-22, 10:21 AM)um_noor20 كتب : جزيت خيرا ولكن المرفقات لا يمكن فتحها
هذا للتاريخ بالعربية
كود :
Imports System.Globalization
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = DateTime.UtcNow.ToString(" dddd/dd /MMMM/yyyy ", New CultureInfo("ar-AE"))
End Sub
Label1.Text = Today.ToString("dd/MM/yyyy", New Globalization.CultureInfo("ar-SA"))
Label2.Text = Today.ToString("dd/MM/yyyy", New Globalization.CultureInfo("ar-EG"))
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الحمد لله بفضل الله ومساعدتكم قمت بالتعديل على البرنامج وانتهيت
لكن الان اريد ان اخذ بيانات من الداتا بيس الخاص بي وتظهر على الفورم
مثال اريد بمجرد كتابة الرقم الوظيفي تظهر باقي بيانات الموظف مباشرة بحيث ياتي بها البرنامج من الداتا بيس سارفق لكم البرنامج مع الاكسس الخاص بي