[ابراهيم مراد]

السلام عليكم كيف حالكم ان شاء الله بخير اخوانى واجهتنى مشكله فى تكست بوكس لين
عند الوصول لاخر سطر لا يتوقف ويعيد من الاول تانى اريد عند الوصول لاخر سطر يتوقف

[ناجي إبراهيم]

السلام عليكم...

السؤال غير واضح! هل تتحدث عن كود يتعامل مع الأسطر، أم أن الأمر يحدث مثلاً بالفأرة أو بلوحة المفاتيح؟؟

إذا كنت تتحدث عن كود فنرجو وضع الكود للنظر فيه.

سلام.

[ابراهيم مراد]

(06-05-14, 02:52 AM)ناجي إبراهيم كتب : السلام عليكم...

السؤال غير واضح! هل تتحدث عن كود يتعامل مع الأسطر، أم أن الأمر يحدث مثلاً بالفأرة أو بلوحة المفاتيح؟؟

إذا كنت تتحدث عن كود فنرجو وضع الكود للنظر فيه.

سلام.

اشكرك ع ردك اخى الكريم هذا الكود
For i = 0 To TextBox2.Lines.Length - 1
Dim Port As Integer = TextBox2.Lines(i)
For x = 0 To TextBox3.Lines.Length - 1
Dim hh As String = TextBox3.Lines(x)

'Call the function
Dim htt As Boolean = ht_Open(hh, Port)
Next
Next

[ناجي إبراهيم]

السلام عليكم...

الكود الذي أوردته يربط كل سطر في TextBox2 بجميع الأسطر في TextBox3. مثلاً إذا كانت TextBox2 تحتوي على 3 أسطر و TextBox3 تحتوي على 3 أسطر فإن الدالة ht_Open سيتم استدعاؤها 9 مرات (3 × 3).

لكن أعتقد أن لديك بيانات في TextBox2 و تقابلها بيانات في TextBox3 (دائماً عدد الأسطر متساوٍ في الخانتين) و تريد ربط كل قيمة في TextBox2 مع ما يقابلها في TextBox3. إذا كان الحال كذلك فإن الكود يكون كالتالي:

كود :

For i = 0 To TextBox2.Lines.Length - 1
    Dim Port As Integer = CInt(TextBox2.Lines(i))
    Dim hh As String = TextBox3.Lines(i)
    
    'Call the function:
    Dim htt As Boolean = ht_Open(hh, Port)
Next

نرجو الاستفادة و السلام.