تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل على الكود جزاكم الله الجنه
#11
السلام عليكم
اخ samee119485r
ما هذه المتغيرات

إقتباس : For N = 1 To aCols
Str_PrevCols = Str_PrevCols & Mid$(aChars, aIndex(N), 1)
Next
الرد }}}
تم الشكر بواسطة:
#12
اخي محمود اكرم

والله لا اعلم


هاذا الكود اختة من الاخ VB_Coder

جزاه الله خير
الرد }}}
تم الشكر بواسطة:
#13
اقرا رسالتي من التنبيهات
الرد }}}
تم الشكر بواسطة:
#14
السلام عليكم

- هذا المثال بعد تعديله , بما أنني الذي عملت الكود فلابد لأي شخص يريد المساعدة أن يفهم الكود أولا وذلك قد يستغرق بعض الوقت , فلذلك لإختصار الوقت عملت التعديل .

- تحياتي .


الملفات المرفقة
.rar   تعديل المشروع2.rar (الحجم : 2.32 ك ب / التحميلات : 48)
الرد }}}
تم الشكر بواسطة:
#15
السلام عليكم ورحمة الله وبركاته

والله لا اعلم كيف اشكرك اخي VB_Coder

بارك الله في علمك

وجزاك الله كل خير
الرد }}}
تم الشكر بواسطة:
#16
السلام عليكم
طلبك هذا اما عن كيف تجعله يكمل من مما بدا فلا اعرف ما فائدة المتغيرات


إقتباس :Private Sub Command2_Click()
SaveSetting App.Title, "Settings", "SaveInText1", Text1.Text
End Sub


Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
End Sub
الرد }}}
تم الشكر بواسطة:
#17
السلام عليكم

اخي محمود اكرم بارك الله فيك

وشكرا لك على متابعة موضوعي وعلى مساعدتك لي

لقد نحلت المشكله

وجزاك الله كل خير
الرد }}}
تم الشكر بواسطة:



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


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