تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] حول فكرة برنامج - حكمه كل يوم
#11
ضع متغيير من نوع انتجر في السيتنغ و اكتب الكود التالي في حدث تحميل الفورم :

PHP كود :
   Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة , محمد مسافر , egypt 2020
#12
(08-01-20, 12:25 PM)asemshahen5 كتب : ضع متغيير من نوع انتجر في السيتنغ و اكتب الكود التالي في حدث تحميل الفورم :

PHP كود :
   Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 

هل ممكن تطبيق ذلك على المرفق اذا  امكن لااني جربت الطريقه وطلع لي خطا في الكود بحسب الخطوات
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


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


الملفات المرفقة
.zip   حكمه اليوم.zip (الحجم : 92.25 ك ب / التحميلات : 62)
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة , محمد مسافر
#14
Rainbow 
المشروع بعد التعديل


الملفات المرفقة
.rar   حكمه.rar (الحجم : 75.74 ك ب / التحميلات : 9)
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة:
#15
تفضل هذا المشروع بعد التعديل .


الملفات المرفقة
.zip   حكمه اليوم.zip (الحجم : 92.03 ك ب / التحميلات : 27)
الرد
#16
(14-01-20, 02:20 PM)asemshahen5 كتب : تفضل هذا المشروع بعد التعديل .

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


الرد
تم الشكر بواسطة: عبد العزيز البسكري



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


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