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

ضع متغيير من نوع انتجر في السيتنغ و اكتب الكود التالي في حدث تحميل الفورم :

(08-01-20, 12:25 PM)asemshahen5 كتب : [ -> ]ضع متغيير من نوع انتجر في السيتنغ و اكتب الكود التالي في حدث تحميل الفورم :

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lines() = My.Resources.textfile.Split(vbNewLine)
        If My.Settings.HekmaID >= lines.Count Then
            My.Settings.HekmaID = 0
            My.Settings.Save()
        End If
        Dim hekma = lines(My.Settings.HekmaID)
        TextBox1.Text = hekma
        My.Settings.HekmaID = My.Settings.HekmaID + 1
        My.Settings.Save()
    End Sub 


---

هل ممكن تطبيق ذلك على المرفق اذا  امكن لااني جربت الطريقه وطلع لي خطا في الكود بحسب الخطوات

إقتباس :هل ممكن تطبيق ذلك على المرفق اذا  امكن لااني جربت الطريقه وطلع لي خطا في الكود بحسب الخطوات

المشروع بعد التعديل

تفضل هذا المشروع بعد التعديل .

(14-01-20, 02:20 PM)asemshahen5 كتب : [ -> ]تفضل هذا المشروع بعد التعديل .

السلام عليكم الشكر لك يااخي تبقى لمسات اخيره على المشروع ويكون جاهز والتي اريدها ان تكون كاالاتي ان امكن:
1- - الحكمه تكون في وسط السطر ان امكن داخل التكس بوكس.
2- - حجم الكتابه للنص للحكمه كبير وعريض وملون ان امكن داخل التكس بوكس .
3- - النص للحكمه يكون متحرك ان امكن داخل التكس بوكس .
4- خلفيه ملونه داخل التاكس بوكس ان امكن .
 
ويكتمل العمل بتعاونك اخي بارك الله فيك ونفع الله بك الاخرين .
شكرا

(14-01-20, 02:20 PM)asemshahen5 كتب : [ -> ]تفضل هذا المشروع بعد التعديل .

نعم انشاء الله تعالى اذا تمت تعبئة ملف النوت باد بعدد اسطر كافية اما اذا لم تعبء بعدد سطور كافية سيتم العودة الى البداية من اول و جديد .

بالمناسبة هذا اخر تعديل على المشروع في اخر الصفحة :

مقوله تحفيزيه يوميه .

(06-02-20, 03:16 AM)asemshahen5 كتب : [ -> ]نعم انشاء الله تعالى اذا تمت تعبئة ملف النوت باد بعدد اسطر كافية اما اذا لم تعبء بعدد سطور كافية سيتم العودة الى البداية من اول و جديد .

بالمناسبة هذا اخر تعديل على المشروع في اخر الصفحة :

مقوله تحفيزيه يوميه .

السلام عليكم اخوتي بحثت اذا كان يصلح التعديل على Text file in Resources  او توجد فكرة اخرى يمكن اضافة وحذف والتعديل عن طريق الليست بوكس