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

السلام عليكم
اخ samee119485r
ما هذه المتغيرات

إقتباس : For N = 1 To aCols
Str_PrevCols = Str_PrevCols & Mid$(aChars, aIndex(N), 1)
Next

اخي محمود اكرم

والله لا اعلم


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

جزاه الله خير

اقرا رسالتي من التنبيهات

السلام عليكم

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

- تحياتي .

السلام عليكم ورحمة الله وبركاته

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

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

وجزاك الله كل خير

السلام عليكم
طلبك هذا اما عن كيف تجعله يكمل من مما بدا فلا اعرف ما فائدة المتغيرات

إقتباس :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

السلام عليكم

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

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

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

وجزاك الله كل خير