السلام عليكم ورحمة الله وبركاته
عندي مشكلة بسيطة و ارجو ان تساعدوني في حلها
المشكلة هي أني لما احفظ على ملف تكست
Open "C:\Save.txt" For Output As #1 Write #1, Label1.Caption Write #1, label2.Caption Close #1
يقوم فعلاً بحفظ الملف لحد هنا لا مشكلة
عندما أريده أن يفتح ما بداخله لا استطيع ان أفعل ذلك سوى الكلام الموجود في السطر الأول
والمحفوظ لـ Label2 لا يأتي .
رجاء المساعدة وجزاكم الله خيراً
تم تعديل هذه المشاركة بواسطة COMFORT في 23 أبريل 2005 في 11:09
ممكن توضح سؤالك اكثر حتى نستطيع الفهم
اذا كنت تريد ان تقرا الملف كاملا فيمكنك ذلك باستخدام الحلقة Do_Loop
private sub Form_Load()
File="c:\save.txt"
open file for input as #1
do while not eof(1)
doevents
input #1,file
label1.caption=label1.caption &chr(10) &file
loop
end sub
ارجو ان يكون هذا ماتريد وان لم يكن فارجو ان توضح سؤالك اكثر
فى حفظ الله :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اقتباسهل تريد ان السطر الاول يقرا في label1 والسطر الثاني في الـ label2
بالضبط أخي جزاك الله خير .
يمكنك استخدام هذه الطريقة
file="c:\save.txt"
Free=freefile
open file for input as #Free
input #Free,file
label1.caption=file
close #Free
file="c:\save.txt"
open file for input as #Free
input #free,File
input #free,File
label2.caption=File
Close #Free
او هناك طريقة اخرى
Dim First As Boolean
file = "C:\Save.txt"
free = FreeFile
Open file For Input As #free
Do While Not EOF(1)
DoEvents
Input #free, file
If First = True Then
Label2.Caption = file
Else
Label1.Caption = file
First = True
End If
Loop
جرب الطريقتين واخبرنى بالنتيجة
وليكن الله معك :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
جزاك الله خير أخي الكريم وبارك فيك
لكن هناك شرح بسيط
أريد ان أتحكم في كل الأسطر أعني
ليس سوى ليبلين فقط .
الملف المرفق حمله وحاول تشغيله :
بعدما تقوم بتسجيل جميع الخطوات تظهر لوحة مكونة من أكثر من ليبل لذلك اريد أتحكم في كل الأسطر حتى يتمكن المستخدم من استرجاع بيناته .
-waf
تم تعديل هذه المشاركة بواسطة COMFORT في 25 أبريل 2005 في 12:25
وجزاك الله خير
بسم الله الرحمن الرحيم
الأخ COMFORT الاجابه في رد ghost2010 مشكورا ( يا ريت أخي تنسق مشاركاتك ووضعها بالوسوم الخاصة بها لتبدو أجمل كما هي قيمة بجوهرها ) مع بعض التعديل عليها .
اقتباسمشاركة ghost2010الطريقة file="c:\save.txt" Free=freefile open file for input as #Free input #Free,file label1.caption=file close #Free file="c:\save.txt" open file for input as #Free input #free,File input #free,File label2.caption=File Close #Freeاو هناك طريقة اخرى
Dim First As Boolean file = "C:\Save.txt" free = FreeFile Open file For Input As #free Do While Not EOF(1) DoEvents Input #free, file If First = True Then Label2.Caption = file Else Label1.Caption = file First = True End If Loop
على كل لقد قمت بتنزيل البرنامج ، يبدو أنك جديد على الـ VB ، حيث أن البرنامج - رغم عدم معرفتي بالهدف منه - يحتاج بعض التعديلات . حيث أن استخدام الـ Progres ليس في محله كما اقترح عليك جعل الـ Option مصفوفة ....
كما أنني أعتذر لأنني قمت بتشويه البرنامج لكن أرجو أن تستفيد منه .
والسلام عليكم ورحمة الله وبركاته
تم تعديل هذه المشاركة بواسطة البريشي في 25 أبريل 2005 في 14:53
********************* ******************** *********************
(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))
********************* ******************** *********************
لا تقـل من أيـن أبدأ
طـاعـة الله الـبدايـة
***
لا تقـل أين طـريـقي
شــرع الله الهـدايـة
***
لا تـقـل أيـن نعـيمي
جـنـة الله كـفـايـــــة
***
لا تقـل في الغـد أبدأ
ربمـــا تأتـي النهـايـــة
**************** **************** ****************
السلام عليكم
اقتباسيا ريت أخي تنسق مشاركاتك ووضعها بالوسوم الخاصة بها لتبدو أجمل كما هي قيمة بجوهرها )
بالنسبة للاخ البريشى فانا اشكرك للنصيحة وان شاء الله ساعمل بها
وبالنسبة للاخ COMFORT
ممكن توضح الهدف من البرنامج لانى بصراحة لم استطع التعديل فيه
لانى لااعرف الهدف الاساسى من البرنامج وفقك الله لكل خير :rolleyes:
تم تعديل هذه المشاركة بواسطة ghost2010 في 25 أبريل 2005 في 17:33
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اقتباس، يبدو أنك جديد على الـ VB ،
فعلاً أخي الكريم
وما أعنيه هو أن السطر الثالث في اليبل 3
والسطر الرابع في الليبل 4
وهكذا
وأما البرنامج فليس له هدف بل هو توضيح لما أريده
وما أريده هو :
1.استرجاع المعلومات التي تم حفظها مرة أخرى إلى اللوحة
2.الكود فقط
ولا أريد التعديل في البرنامج
أو إذا كان هناك إضافات للكود الموجود كي يعمل كما طلبت.
وجزاكم كل الله خير .
تم تعديل هذه المشاركة بواسطة COMFORT في 25 أبريل 2005 في 17:58
هذا الموضوع مغلق.
