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

(19-08-19, 02:38 AM)ابراهيم ايبو كتب : [ -> ]

السلام عليكم اخي mac9

تفضل هذا الكود 

كود :

       ListView1.View = View.Details ' جعل الليست فيو بشكل جدول واظهار الصفوف
       ListView1.GridLines = True ' اظهار الخظوط بين الاعمدة والصفوف
       ListView1.Columns.Add("Chanel")
       ListView1.Columns.Add("Noise")
       ListView1.Columns.Add("Band")
       ListView1.Columns.Add("Used")
       'columns Collection او بامكانك انشاء اعمدة عن طريق الخاصية وتحديد عرض الاعمدة ايضا
       ListView1.BorderStyle = BorderStyle.FixedSingle
       ListView1.Sorting = SortOrder.Ascending  ' ترتيب تصاعدي
       Dim LI As New ListViewItem
       LI.Text = ("VB4Arab")
       LI.SubItems.Add(1241425)
       LI.SubItems.Add("Saoud")
       LI.SubItems.Add("ibrahim")
       ' statements to add more subitems
       ListView1.Items.Add(LI

شكرا لك اخي الغالي .. طيب لوو ممكن كود اخر مثلا 
عندي مسج بوكس في اسمي واريدها بعد يوم واحد يتغير اسمي ويصبح اسم مثلا محمد

يعني مثال على هذه 

اليوم هو الاثنين عند الضغط على بوتن يظهر اسمي MAc9
وفي يوم الثلاثاء لو اردت ان اضغط على البوتن يظهر اسم ثاني يعني يتغير اسمي ويصبح مثلا محمد
يعني تغير المسج حسب التاريخ كلها بعد يوم يتغير وهكذا كل يوم يتغير وانا اضيف كل التغيرات فقط اريد كود التاريخ

(20-08-19, 04:10 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي لديك حيارات فيما تريد وتتلخص بالاتي:
1 - اظهار الاسم اعتمادا على ايام الاسبوع  بحيث نقرأ اسم اليوم ونظهر اسما مقرونا به وبهذا الاسماء يكون عددها سبعة اسم لكل يوم
2 - اظهار الاسم بناء على رقم اليوم في الشهر ويكون العدد 31 اسم
3 - اظهار الاسم بناء على رقم اليوم في السنة ويكون العدد 366 اسم(غير محبذ)
اليك الكود التالي للخيار الاول

كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyDay As Date = Now
       Dim MyName As String = ""
       If MyDay.ToString("dddd") = "Sunday" Then
           MyName = "Ali"

       ElseIf MyDay.ToString("dddd") = "Monday" Then
           MyName = "Jamil"

       ElseIf MyDay.ToString("dddd") = "Tuesday" Then
           MyName = "Omar"

       ElseIf MyDay.ToString("dddd") = "Wednesday" Then
           MyName = "Salem"

       ElseIf MyDay.ToString("dddd") = "Thursday" Then
           MyName = "Mohmmed"

       ElseIf MyDay.ToString("dddd") = "Friday" Then
           MyName = "Mustafa"

       ElseIf MyDay.ToString("dddd") = "Saturday" Then
           MyName = "Ehab"
       End If

       TextBox1.Text = MyName
   End Sub