ضع متغيير من نوع انتجر في السيتنغ و اكتب الكود التالي في حدث تحميل الفورم :
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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
08-01-20, 11:49 PM (آخر تعديل لهذه المشاركة : 08-01-20, 11:51 PM {2} بواسطة محمد مسافر.)
(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- خلفيه ملونه داخل التاكس بوكس ان امكن . ويكتمل العمل بتعاونك اخي بارك الله فيك ونفع الله بك الاخرين . شكرا
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
06-02-20, 04:00 AM (آخر تعديل لهذه المشاركة : 06-02-20, 08:08 AM {2} بواسطة ابو روضة.)
(06-02-20, 03:16 AM)asemshahen5 كتب : نعم انشاء الله تعالى اذا تمت تعبئة ملف النوت باد بعدد اسطر كافية اما اذا لم تعبء بعدد سطور كافية سيتم العودة الى البداية من اول و جديد .
بالمناسبة هذا اخر تعديل على المشروع في اخر الصفحة :