چرا پس از لود فايل txt همه متن در يك سطر نمايش داده ميشن؟ multiline فعال هست!

دوستان همگي خسته نباشيد...
من چند روزي هستش كه شروع به كار با VB كردم ... به همين خاطر مشكلات زيادي در سر راه من سبز شده كه البته خيلي از اونا پيش پا افتاده هستن...لطفا اگه اجازه بدين من اشكالاتم رو اينجا مطرح كنم و شما دوستان هم لطف كنيد خيلي ساده براي من توضيح بدين...
ممنون
اولين سوال : يك فايل با نام مثلا data.txt ايجاد كرده ام... در فايل data.txt من با اينكه چند خط چيز نوشتم وقتي كه اونو ميخوام تويه يدونه Text بيارم ...همه سطرها پشت سر هم و در يك سطر نمايش داده ميشن...اين از چيه؟؟
البته multiline رو هم فعال كردم.... :sad:

شما چه طور فايل رو ميخوني اگه خط به خط اطلاعات فايل رو ميخوني و هر دفعه تو تكس باكس ميريزي بينشون بنويس

کد:

---

Chr(13) & Chr(10)

---

اگه فايل رو بصورت random بايت به بايت بخوني مشكلت حله.

از پاسخ شما دوستان ممنون....
يك سوال ديگه هم داشتم...
من چه طور ميتونم جاي دوتا form رو عوض كنم...
مثلا فرض كنيد form اول رو كه ايجاد كردم اسمشو گذاشتم 1 و form دوم رو اسمشو گذاشتم 2...اصولا اينطوريه كه form 2 هميشه رويه form1 هستش... حالا من ميخوام جاي اين دوت رو برعكس كنم... يعني form2 بره زير form1 ....
يعني Bring to Forward....البته با دوتا فرم نه دوتا Object....

منظورت از اينكه بياد روش اينه كه با فرم دوومت برنامه اجرا بشه ؟
اگه منظورت اينه بايد روي project 1 در سمت راست وبالا كليك كني اونجا نوشته startup form اونجا درست كن اگه منظورتت چيز ديگه هست يه كم دقيق تر بگو

Sherwood جان از پاسخت ممنون ولي من با روشي كه گفتي به هدفم نرسيدم....اولا اينكه من دوتا Project ندارم..دوتا Form دارم ...

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در ضمن منظور من دقيقا اون نبود ... تويه شكل زير مثلا ما دوتا Form داريم...اگه فرض كنيم كه هر دو تا Form موقع Load شدن ظاهر بشن...مشكل اينكه كه من ميخوام اون قسمت از Form2 كه روي Form1 اومده موقع نمايش بره زير... و دقيقا شكل بر عكس باشه....يعني Form1 رويه Form2 قرار بگيره....

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نمي دونم تونستم منظورم رو دقيقا برسونم يا نه...!!! :sad:
يعني چون Form2 بعد از Form1 ايجاد شده ..ميآد رويه Form1......

اهان فهميدم ولي منم كه نگفتم تو دو تا project داري من منظورم چيز ديگه بود ولي اونو ول كن
تو يه جايي يه كدي نوشتي كه اينجوري ميشه چون ربطي به اينكه تو اونو بعد از اون ايجاد كردي نداره به submain شما ربط داره حالا
توي form1 load خودت بنويس form2.show حالا اگه كارت راه نيفتاد يه جاي ديگه كارت مشكل داره كدتو upload كن برات درست كنم.

آقا واقعا از راهنماييت ممنون ...مشكلم همونطوريكه گفتي حل شد....
يه سوال ديگه ....
من يدونه ListBox دارم كه يجوريش كردم كه اطلاعات مياد توش ولي اين اطلاعات بترتيب نام مرتب نميشه.... و بر اساس آخرين اطلاعات ورودي مياد..يعني اگه من چندتا اطلاعات وارد كنم...به ترتيب زير ميشه...
Farzad
Ehsan
Farshid
من ميخوام اين اطلاعات بترتيب حروف مرتب بشن ... يعني به شكل زير باشه...
Farzad
Farshid
Ehsan

در ضمن ميخواستم بدونم كه اگه حرف اول يكي كوچيك باشه و يكي بزرگ باز هم بترتيب زير هم مي افتن؟؟؟
Sherwood جان واقعا آقایی

شما بايد براي اين كار هر دفعه بعد از اضافه كردن يك اسم به list box اون رو دوباره با يك كد به ترتيب اسم كني
البته من راه اسون تر بلد نيستم شايد اسون تر هم باشه اگه كسي ميدونه بگه

سلام
میشه بگید چه جوری میشه مشخص کرد که text یه تکس باکس از یک فایل .txt خوانده بشه
یهنی مثلا text1.text جمله ای باشه که در یک فایل متنی در یک درایو و در یک پوشه مشخص قرار گرفته باشه
خیلی خیلی ممنون میشم
چون دیدم سوالم به این موضوع ربط داره مطرح کردم

سلام
بستگي داره اگه اون فايل رو خودت باز كردي و با دستور write يا print داخل اش نوشتي ميتوني با دستور input بخوني
ولي اگه غير از اين باشه بهتره فايل رو random باز كني و بخوني
اگه كارت راه نيفتاد بگو برات يه كد بزارم يا خودت هر جاش مشكل داشتي سوال كن

سلام sherwood عزیز
از توضیح و کمک شما بسیار ممنونم ولی من تازه به این برنامه روی آوردم به همین خاطر زیاد وارد نیستم ...
اگه بتونید یه نمونه بزارید خیلی خیلی من رو شرمنده کردید
البته من خودم اون فایل رو ننوشتم پس نمیشه از input استفاده کرد ... همون راندوم رو یه مثال بزارید که کار کنه خیلی ممنون میشم
البته اگه زحمتی نیست و وقت دارید
باز هم ممنون

سلام

dim i as integer
dim b as byte

open "file address" for random as #1

do while (lof(1)=true)

i=i+1
get#1,i,b
text1.text=text1.text & chr(b)

loop

در ضمن دير و زود داره ولي سوخت و سوز نداره حالا چرا تاپيك زدي :biggrin: :biggrin:

سلام sherwood جان
از پاسخ شما ممنونم
میرم که ببینم نتیجه چی میشه...
حقیقتش فکر کردم دیگه جواب نمی دید یا طول میکشه من هم چون نیاز داشتم تاپیک زدم ... ببخشید
واقعا که بچه های این پی سی ورد خیلی آقان البته به جز خانمهاش !!
ولی در کل اینجا بیشتر مفید بود تا اون تاپیک
باز هم ممنون دوست من
موفق باشید

خواهش ميكنم اگه كمكت كرد بگو كه ما هم خيالمون راحت بشه