[alshandodi]

السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء
اردت ان اضيف بعض الأشياء داخل حكمة اليوم التي قام بعملها الإستاذ عاصم ولكن لدي بغض المشاكل الا وهي 
- عدم ظهور الحكمة كامل 
- اضافة اسطر فارغه في التيكست 
- شاهدوا المثال وابداوا ارائكم

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

[asemshahen5]

عدل الكود ليكون كالتالي :

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 


   

[alshandodi]

شكرا جزيلا لك اخي حفظك الله من كل مكروه
ولكن عندما اعبي Listbox يضيف سطرين فارغ