انا ادرجت زرار كوماند وليست بوكس وكومن ديالوج
المطلوب
تحميل اى تكست داخل الليست بوكس؟؟
بمعنى ازاى احمل محتويات التكست اللى هستدعيها فى الليست بوكس؟
تحياتى
سؤال بخصوص الليست بوكس?
مغلق
السلام عليكم
cc.Filter = "Text Files(*.txt)|*.txt|Excel Files(*.xls)|*.xls|" cc.ShowOpen Open cc.FileName For Input As #1 List1.Clear While Not EOF(1) Input #1, StringHold If Trim(StringHold) <> "" Then List1.AddItem StringHold End If Wend Close #1 cc.FileName = ""
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
شكرا اخى prof_1982 تحياتى لك
هذا الموضوع مغلق.