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

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


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

.rar   WindowsApplication20.rar (الحجم : 75.43 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب مساعده 7001605497 1 22 منذ 6 ساعة مضت
آخر رد: enjoy
  مساعده بسيطه في الاعداد اليوم السابع 4 135 04-09-20, 01:39 AM
آخر رد: abdallah1522011
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 316 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات اليوم السابع 4 278 17-08-20, 01:24 PM
آخر رد: اليوم السابع
  مساعده بمعلومه من فضلكم اليوم السابع 1 154 14-08-20, 01:16 PM
آخر رد: عبد الهادي بهاب
  مساعده بخصوص النصوص اليوم السابع 3 339 11-08-20, 10:29 AM
آخر رد: Anas Mahmoud
  ممكن مساعده برمجيه لو سمح محمد علي 123 1 162 29-07-20, 01:33 AM
آخر رد: ASUS2020
  مساعده في حفظ ملف اليوم السابع 2 254 12-07-20, 07:23 PM
آخر رد: اليوم السابع
  احتاج مساعده محمد ايمن 4 327 06-07-20, 04:11 AM
آخر رد: محمد ايمن
  [سؤال] كيف اضهر اسم اليوم الحالي باللغه العربية بسام محمدغانم 2 308 09-06-20, 12:26 PM
آخر رد: Jounior_P

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


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