لسلام عليكم ورحمة الله وبركاتة
اجمل تحية مني لمشرفين واعضاء هذا المنتدى
اخواني عندي استفسار بسيط بخصوص رفع ملف نص من نوع تكست , على الفروم وظهر مساره في اللست بوكس كيف استطيع عمل زر امر واطلب منه عرض ملف التكست من اللست بوكس , داخل التكست بوكس
ارجوا التوضيح وشكرا
السلام عليكم
اخي الكريم ارفق المثال لكي ييتم التعديل عليه
يعطيك العافية
السلام عليكم
- إستخدم هذا الكود وضعه في الزر الذي يضع محتوى الملف في التكست بوكس :
كود :
If Trim$(List1.Text) <> "" Then
If Dir$(Trim$(List1.Text)) <> "" Then
Dim F As Integer
F = FreeFile
Open Trim$(List1.Text) For Input As #F
Text1.Text = Input$(LOF(F), F)
Close #F
Else
MsgBox "الملف غير موجود"
End If
Else
MsgBox "حدد الملف في اللست بوكس"
End If
- تحياتي .
اخي بارك الله فيك نعم هذا هو المطلوب بس انا اريد مثلا اضفت ملف تكست وبه لنفرض ارقام هكذا
456251
123458
456987
اريد ان يظهر بالتكست بوكس
456251
لوحده ومن ثم الرقم الثاني لوحده فقط
123458
وهكذا....
شكرا يا الاصيلة مثالك يستفاد منه ولكن ليس هذا طلبي اشكرك
هل تقصد ان يكون العرض متوالي في التيكست بضغطة زر واحده
نعم وانا اقصد اضيف ملف تكست txt ويتم عرضه في التكست بوكس كل سطر لوحده , واللست بوكس تكون حامله مسار ملف التكست