تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده في حكم اليوم المسعى بعض الاضافات
#1
السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء
اردت ان اضيف بعض الأشياء داخل حكمة اليوم التي قام بعملها الإستاذ عاصم ولكن لدي بغض المشاكل الا وهي 
- عدم ظهور الحكمة كامل 
- اضافة اسطر فارغه في التيكست 
- شاهدوا المثال وابداوا ارائكم

ولكم مني جزيل الشكر والتقدير


الملفات المرفقة صورة/صور
   

.rar   WindowsApplication20.rar (الحجم : 75.43 ك ب / التحميلات : 14)
الرد
تم الشكر بواسطة: asemshahen5
#2
عدل الكود ليكون كالتالي :

PHP كود :
   Function Loadhekmah() As String
        Dim StrHekmah 
As String String.Empty
 
       '===================
        '
Dim lines() = My.Resources.textfile.Split(vbNewLine)

 
       Dim lines() = IO.File.ReadAllText(My.Application.Info.DirectoryPath "\textfile.xml").Split(vbNewLine)

 
       '====================
        If My.Settings.TodayDate.ToString("yyyy-MM-dd") = Date.Now.ToString("yyyy-MM-dd") Then
            If My.Settings.HekmaID > lines.Count - 1 Then
                My.Settings.HekmaID = 0
                My.Settings.Save()
            End If
            '
ضع كود عرض حكمة اليوم'
            Dim hekma = lines(My.Settings.HekmaID)
            StrHekmah = hekma
            Return StrHekmah.Trim
        ElseIf My.Settings.TodayDate <> Date.Now.ToString("yyyy-MM-dd") Then
            '
ضع كود عرض حكمة اليوم +1'
            My.Settings.HekmaID = My.Settings.HekmaID + 1
            If My.Settings.HekmaID > lines.Count - 1 Then
                My.Settings.HekmaID = 0
                My.Settings.Save()
            End If
            My.Settings.TodayDate = Date.Now.ToString("yyyy-MM-dd")
            My.Settings.Save()
            Dim hekma = lines(My.Settings.HekmaID)
            StrHekmah = hekma
            Return StrHekmah.Trim
        End If
        Return StrHekmah.Trim
    End Function 
   
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: ابو روضة , ابو روضة
#3
شكرا جزيلا لك اخي حفظك الله من كل مكروه
ولكن عندما اعبي Listbox يضيف سطرين فارغ
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعده وشكرا مقدما اليوم السابع 2 142 26-10-20, 01:11 PM
آخر رد: اليوم السابع
  [مشروع] موضوع اليوم الصفحة هد لزم تكون بدي لمفهوم Regular Expression Ali 2020 0 199 03-10-20, 09:16 PM
آخر رد: Ali 2020
  طلب مساعده 7001605497 5 430 28-09-20, 07:20 PM
آخر رد: mmali127
  [VB.NET] طلب مساعده 7001605497 0 131 22-09-20, 03:12 PM
آخر رد: 7001605497
  مساعده بسيطه في الاعداد اليوم السابع 4 340 04-09-20, 01:39 AM
آخر رد: abdallah1522011
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 525 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات اليوم السابع 4 445 17-08-20, 01:24 PM
آخر رد: اليوم السابع
  مساعده بمعلومه من فضلكم اليوم السابع 1 256 14-08-20, 01:16 PM
آخر رد: عبد الهادي بهاب
  مساعده بخصوص النصوص اليوم السابع 3 479 11-08-20, 10:29 AM
آخر رد: Anas Mahmoud
  ممكن مساعده برمجيه لو سمح محمد علي 123 1 250 29-07-20, 01:33 AM
آخر رد: ASUS2020

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم