حفظ اعدادات فورم فى ملف خارجي (INI)

[User user]

في ١‏/٨‏/٢٠٢١ at 10:16, د.كاف يار said:

 

تفضل هذا المثال

 

List.zip 47.38 kB · 5 downloads

من فضلك محتاج تحديد المسار يكون ثابت فى كود وليس اختيارة فى كل مرة 
مثلا لدى اكثر من ComoboBox  محتاج من خلال كود vba احدد مسار كل واحدة على حدى 
بحيث افتح السهم يظهر القيم المدخلة فى الملف الخاص به دون اختيار مسار بشكل يدوى   

 

تم تعديل أغسطس 3, 2021 بواسطه eslamali2

[د.كاف يار]

منذ ساعه, eslamali2 said:

من فضلك محتاج تحديد المسار يكون ثابت فى كود وليس اختيارة فى كل مرة 
مثلا لدى اكثر من ComoboBox  محتاج من خلال كود vba احدد مسار كل واحدة على حدى 
بحيث افتح السهم يظهر القيم المدخلة فى الملف الخاص به دون اختيار مسار بشكل يدوى   

 

تفضل

 

List.zip

[User user]

ليس هذا هو المطلوب حضرتك 
من فضلك محتاج تحديد المسار يكون ثابت فى كود وليس اختيارة فى كل مرة 
مثلا لدى اكثر من ComoboBox  محتاج من خلال كود vba احدد مسار كل واحدة على حدى 
بحيث افتح السهم يظهر القيم المدخلة فى الملف الخاص به دون اختيار مسار بشكل يدوى   
--------------
المثال المرفق زر الاستيراد بيكرر القيم فى الـــComoboBox 
مش مطلوب زر (استعراض) ولا (استيراد) محتاجها تكون كود داخلى فقط 

[د.كاف يار]

5 ساعات مضت, eslamali2 said:

ليس هذا هو المطلوب حضرتك 
من فضلك محتاج تحديد المسار يكون ثابت فى كود وليس اختيارة فى كل مرة 
مثلا لدى اكثر من ComoboBox  محتاج من خلال كود vba احدد مسار كل واحدة على حدى 
بحيث افتح السهم يظهر القيم المدخلة فى الملف الخاص به دون اختيار مسار بشكل يدوى   
--------------
المثال المرفق زر الاستيراد بيكرر القيم فى الـــComoboBox 
مش مطلوب زر (استعراض) ولا (استيراد) محتاجها تكون كود داخلى فقط 

 

في حدث عند الفتح ضع الكود التالي مع اضافة مسار كل ملف داخل الكود

Dim strFilename     As String: strFilename = "ضع هنا مسار الملف"
Dim strTextLine     As String
Dim iFile           As Integer: iFile = FreeFile

Open strFilename For Input As #iFile
Do Until EOF(1)
    Line Input #1, strTextLine

   [ComoboBox1].AddItem strTextLine
    
Loop
Close #iFile

 

[User user]

في ٣‏/٨‏/٢٠٢١ at 10:55, د.كاف يار said:

تفضل

 

List.zip 55.69 kB · 1 download

 

18 ساعات مضت, د.كاف يار said:

 

في حدث عند الفتح ضع الكود التالي مع اضافة مسار كل ملف داخل الكود

Dim strFilename     As String: strFilename = "ضع هنا مسار الملف"
Dim strTextLine     As String
Dim iFile           As Integer: iFile = FreeFile

Open strFilename For Input As #iFile
Do Until EOF(1)
    Line Input #1, strTextLine

   [ComoboBox1].AddItem strTextLine
    
Loop
Close #iFile

 

للاسف لم يعمل 
ناسف لتعبك

[د.كاف يار]

12 ساعات مضت, eslamali2 said:

 

للاسف لم يعمل 
ناسف لتعبك

اعطيني الكود بعد التعديل خلينا نشوف كيف استخدمته

[User user]

7 ساعات مضت, د.كاف يار said:

اعطيني الكود بعد التعديل خلينا نشوف كيف استخدمته

Private Sub Form_Open(Cancel As Integer)
 

'-------------------------------------------------

Dim strFilename     As String: strFilename = "D:\Syst\Data\SE1.ini"
Dim strTextLine     As String
Dim iFile           As Integer: iFile = FreeFile

Open strFilename For Input As #iFile
Do Until EOF(1)
    Line Input #1, strTextLine

   [methodeof].AddItem strTextLine
    
Loop
Close #iFile
 
'-------------------------------------------------
 

[د.كاف يار]

في ٥‏/٨‏/٢٠٢١ at 21:54, eslamali2 said:

Private Sub Form_Open(Cancel As Integer)
 

'-------------------------------------------------

Dim strFilename     As String: strFilename = "D:\Syst\Data\SE1.ini"
Dim strTextLine     As String
Dim iFile           As Integer: iFile = FreeFile

Open strFilename For Input As #iFile
Do Until EOF(1)
    Line Input #1, strTextLine

   [methodeof].AddItem strTextLine
    
Loop
Close #iFile
 
'-------------------------------------------------
 

الكود صحيح صور رسالة الخطأ

 

[User user]

10 ساعات مضت, د.كاف يار said:

الكود صحيح صور رسالة الخطأ

 

مش بينفذ الامر من الاساس مش بيظهر شى فى خانه ComoboBox

مفيش رسائل اخطاء بتظهر 

[د.كاف يار]

20 ساعات مضت, eslamali2 said:

مش بينفذ الامر من الاساس مش بيظهر شى فى خانه ComoboBox

مفيش رسائل اخطاء بتظهر 

اعطيني نسخة من البرنامج