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

[User user]

  في 1‏/8‏/2021 at 14:16, د.كاف يار said:

 

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

 

List.zip 47.38 kB · 5 downloads

Expand  

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

 

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

[د.كاف يار]

  في 3‏/8‏/2021 at 13:47, eslamali2 said:

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

 

Expand  

تفضل

 

List.zipFetching info...

[User user]

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

[د.كاف يار]

  في 3‏/8‏/2021 at 18:22, eslamali2 said:

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

Expand  

 

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

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]

  في 3‏/8‏/2021 at 14:55, د.كاف يار said:

تفضل

 

List.zip 55.69 kB · 1 download

Expand  

 

  في 4‏/8‏/2021 at 00:11, د.كاف يار 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

 

Expand  

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

[د.كاف يار]

  في 4‏/8‏/2021 at 18:12, eslamali2 said:

 

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

Expand  

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

[User user]

  في 5‏/8‏/2021 at 06:51, د.كاف يار said:

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

Expand  

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
 
'-------------------------------------------------
 

[د.كاف يار]

  في 5‏/8‏/2021 at 13: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
 
'-------------------------------------------------
 

Expand  

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

 

[User user]

  في 7‏/8‏/2021 at 02:44, د.كاف يار said:

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

 

Expand  

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

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

[د.كاف يار]

  في 7‏/8‏/2021 at 13:42, eslamali2 said:

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

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

Expand  

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