ماهو هذا الخطأ
اسم الشركه : mj7.org
صاحب الشركه : محمد جمال الذياب.
أداء الشركـــه : برمجة و تصميم و ادارة المواقع للمنشآت و الافراد
بريد الشركـــه : mj@mj7.org
هاتف الشركه : 00963991354290
الدعم الفنــــي :mjxp7@hotmail.com
ماهو هذا الخطأ
مغلق
ظهر خطا جديد ايضا
وينكم يا مبرمجين
اسم الشركه : mj7.org
صاحب الشركه : محمد جمال الذياب.
أداء الشركـــه : برمجة و تصميم و ادارة المواقع للمنشآت و الافراد
بريد الشركـــه : mj@mj7.org
هاتف الشركه : 00963991354290
الدعم الفنــــي :mjxp7@hotmail.com
أخي أرجو أن ترسل الكود كامل ، لا أقصد كل البرنامج لكن ال sub نفسة حتى أري كيفية أعلانك عن المتغيرات
والله الموفق
تم تعديل هذه المشاركة بواسطة hossam_fadel في 5 يوليو 2006 في 09:48
من قال سبحان الله وبحمده غرثت له نخلة بالجنة
mr.hossamf@gmail.com
الحل
Private Sub Command1_Click() Dim FileBin As String Dim F As Long, Fil As String file = Text1.Text 'Path F = FreeFile 'File ID Open file For Binary Access Read As #F Do While Not EOF(F) Fil = Space(2048) Get #F, , Fil DoEvents Loop Close #F End Sub
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
هذا الموضوع مغلق.