كيف اربط التكست فايل بالمشروع بالطريقة هذي ؟

الطريقة كالتالي

قم بوضع هذه الشفرة في مديول Module

Public Function readLine(ByRef strFilePath As String, ByRef nLine _
	As Integer) As String

	Dim NextLine As String
	Dim n As Integer
	FileNum = FreeFile
	Open strFilePath For Input As FileNum
	Do Until EOF(FileNum)
		Line Input #FileNum, NextLine
		n = n + 1
		If n = nLine Then readLine = NextLine
	Loop
Close
End Function

ثم هذا الكود تحت زر أمر مراعيا في ذلك مسار الملف

Private Sub Command1_Click()
'HnHn حيث سيتم قراءة السطر الثالث 
Text1.Text = readLine("c:\HnHn.txt", 3)
End Sub

وبهذا الكود تستطيع التلاعب كيفكما شئت ... B) بالتوفيق

شكرا جزيلا لك اخي hnhn

الاكواد شغالة زي الحلاوة

شكرا على المجهود الرائع

تحياتي

معليش بس استفسار بسيط

هل هناك طريقة بحيث اني لا اعيد كتابة الاكواد وتكرارها ؟

مثال انا غيرت الاكواد وخليتها بدل ما هي textBox الى List

والاكواد كالتالي

Private Sub form_load()
List1.AddItem (readLine(App.Path + "/test.txt", 1))
List1.AddItem (readLine(App.Path + "/test.txt", 2))
List1.AddItem (readLine(App.Path + "/test.txt", 3))
List1.AddItem (readLine(App.Path + "/test.txt", 4))
List1.AddItem (readLine(App.Path + "/test.txt", 5))
List1.AddItem (readLine(App.Path + "/test.txt", 6))
End Sub

الفكرة هنا افرض انه عندي في التكست فايل 150 سطر

انا طبعا ما ابي كل شوي اعدل في الاكواد

فلو مثلا زدت سطر وصارو عددهم 151 ما ابي ارجع اغير الاكواد واضيف سطر وهكذا

ابغا اسوي طريقة اخلي الرقم اللي يمثل رقم السطر يزيد واحد كل مرة

فهمت قصدي ؟

يا ليت تساعدني في هذي

استفسار اخر بسيط عن خصائص List

ابغا انا لما اضغط زر كوماند (command1) والسطر الاول يكون لنك زي مثلا www.google.com

والسطر الثاني يكون www.yahoo.com

الان ابغى لما اضغط الزر الكوماند كيف اخلي متصفح الانترنت يقرا اول سطر ويفتح اللينك ويقرا ثاني سطر ويفتحه في متصفح جديد

يعني اذا ضغطت الزر يفتحلي الجوجل في صفحة ويفتحلي الياهو في صفحة اخرى

ان شاء الله ما اكون ثقلت عليكم

وشكرا جزيلا لكم

استخدم جملة تكرار فقط كالتالي

Dim I%

For I = 1 To 150
List1.AddItem (readLine(App.Path + "/test.txt", I))
Next I

شكرا جزيلا لك اخ HnHn

والله انك ساعدتني كثير في الموضوع هذا

بس ماذا عن استفساري الثاني ؟

ياريت تساعدوني فيه

لأني قاعد اسوي زي محمل للينكات

التفاصيل والشرح بيجون في منتدى برامج الاعضاء

(حتى ما تذهب المفاجأة وعشان ماحد يسرق الفكرة ايضا)

وشكرا جزيلا