30-03-13, 01:32 PM
السلام عليكم ورحمة الله تعالى وبركاته
اليوم انا جبت لكم كود هو صراحة لما دون المتوسط لكنه جميل ويستفاد منه
كود يقرأ ال مفكرة
انشئ كومند بوتن واكتب :
مثل :
وارجو ان يكون مفيد
والسلام عليكم ورحمة الله تعالى وبركاته
اليوم انا جبت لكم كود هو صراحة لما دون المتوسط لكنه جميل ويستفاد منه
كود يقرأ ال مفكرة
انشئ كومند بوتن واكتب :
كود :
Open "وضع هنا امتداد المفكرة" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1مثل :
كود :
Open "C:\Users\Alaa\Desktop\1.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1وارجو ان يكون مفيد
والسلام عليكم ورحمة الله تعالى وبركاته