پنجره showopen و showsave

hamidahmadi · Sep 19, 2005

با تشکر از شما متخصصان ویژوال بیسیک
سوالی که مغز من را به خود مشغول داشته پنجره فرعی showopen و showsave می باشد میخواهم بدانم چگونه من میتوانم با پنجره فرعی showopen یک متن با پسوند ( rtf) را بازکنم و آن را با پنجره فرعی showsave ذخیره کنم و در آخر مثلا" وقتی متن با پسوند rtf را باز کردم علاوه بر ذخیره بتوانم آن متن را در کپشن یک لیبل نشان دهم.

saalek110 · Sep 19, 2005

بايد از كامپوننت ها ابتدا كامون ديالوگ را فعال كنيد.
.
بعد پنجره هاي ديالوگي را مي توانيد استفاده كنيد.

-----------------------------
بعد اينكه ابزار كامون ديالوگ را به جعبه ابزار افزوديد و آن را روي فرم قرار داديد. و مثلا اسم اين ابزار، (( كامون ديلوگ 1)) بود ،، براي داشتن پنجره
showopen
بنويسيد
Private Sub Command1_Click()
CommonDialog1.ShowOpen
End Sub
.

hamidahmadi · Sep 19, 2005

با تشکر از سالک جان
سالک جان خیلی ممنونم از راهنمائیتان ولی مشکل اصلی من باز کردن پنجره showopen یا showsave نبود بلکه مشکل من باز کردن یک متن با پسوند rtf بود و اینکه نمیتوانم آن را ذخیره کنم و مهمتر از آن دوست دارم وقتی یک متن را باز کردم مثلا" در کپشن یک لیبل آن متن را نشان دهم ( من دنبال خصوصیتی از showopen میگردم که پنجره باز شده را نسبت بدهد به کپشن یک لیبل ) و ذخیره کردن آن با همان پسوند rtf در یک فایل.
مرسی قبلا" از شما تشکر فراوان میکنم

saalek110 · Sep 19, 2005

با سلام.
فهميدم چه مي خواهيد. مطالعه مي كنم پاسخ مي دهم.
امشب فكر نكنم به جواب برسم. فردا جواب مي دهم
البته فردا دوستان متخصص ميايند و جوابش براشون سادس.
من در يك
rich text box
دارم كدشو ولي در ((ليبل)) كار نكردم. سعي مي كنم حلش كنم.
با درود فراوان.
.

hamidahmadi · Sep 20, 2005

مرسی سالک جان منتظر جوابت میمانم

saalek110 · Sep 21, 2005

به نام خدا
يك ليبل و يك دكمه به فرم بيافزاييد. سپس كد زير را به پنجره كد بيافزاييد.

کد:

Private Sub Command1_Click()
Open App.Path & "\myFile.txt" For Input As #1
 Label1.Caption = Input(LOF(1), #1)
Close #1
End Sub

پروژه را جايي ذخيره كنيد. يك فايل تكست ، يعني با پسوند
txt
همانجايي كه پروژه ذخيره شده ، با نام
myfile
ايجاد كنيد ، در فايل مطالبي تايپ كنيد .
-----------
برنامه بالا باعث ميشه محتويات فايل در
label
ظاهر شود.
آيا اين كافيه يا ادامه دهم؟
با تشكر.
.

hamidahmadi · Sep 24, 2005

سالک جان با عرض سلام دوباره
خیلی ممنون عالی بود فقط یک سوال می ماند که اگر ما خواستیم یک فایل تصادفی انتخاب کنیم چه باید کرد ( نه مثل myfile در همانجائی که پروژه را ذخیره کرده ایم ) ضمنا" گفتید که کد برای یک rich text box دارید اگر زحمتی نیست آن را هم برایم بگذارید.
و در آخر اگر ممکن است توضیحاتی در مورد پست بالا بدهید
قبلا" از لطفتان کمال تشکر را می نمایم

saalek110 · Sep 24, 2005

hamidahmadi گفت:
سالک جان با عرض سلام دوباره
خیلی ممنون عالی بود فقط یک سوال می ماند که اگر ما خواستیم یک فایل تصادفی انتخاب کنیم چه باید کرد ( نه مثل myfile در همانجائی که پروژه را ذخیره کرده ایم ) ضمنا" گفتید که کد برای یک rich text box دارید اگر زحمتی نیست آن را هم برایم بگذارید.
و در آخر اگر ممکن است توضیحاتی در مورد پست بالا بدهید
قبلا" از لطفتان کمال تشکر را می نمایم

سلام.
بفرماييد منظور از انتخاب فايل تصادفي يعني چه تا مفصل بحث كنيم.
پستهايي كه براي باز كردن فايل در تاپيك آموزش ويژوال بيسيك زدم حتما منظور شما را تامين نكرده ... منظور خود را دقيق تر بيان بفرماييد.
راجع به
rich text box
پروژه هاي زيادي پيدا كرده ام ولي همه يك مشكل دارند.
وقتي چيزي را درونشان پيست مي كني ، نمايش داده نمي شود تا چيز جديدي تايپ كني ولي يك سورس مال ميكروسافت پيدا كردم كه اين مشكل را ندارد ولي با تكست باكس كار كرده نه با
rich text box
همه را برايتان مي فرستم. من به شدت روي اين زمينه از وقتي سئوال كرده ايد كار كردم. يعني در زمينه كار با فايل . و با خيلي پروژه ها كار كردم
راجع به پست بالا هم فقط اين كه مي دونم درست كار مي كنه و از سايت آموزشي ويژوال بيسيك است كه در پستهاي اخير در تاپيك ويژوال بيسيك ،، رويداد فوكوس را از روي آن گفتم.
منتظر شرح شما هستم.
.

hamidahmadi · Sep 25, 2005

خیلیی ممنون از توجه اتان به نوشته های من
منظور من این است که اگر من بخواهم یک فایل را مثلا" در درایو d یا درایو c و یا هر جای دیگری که بخواهم باز کنم چکار باید بکنم یعنی نمیخواهم بگویم این فایل را که اینجاست با این کد باز کن ( مثل فایل MYFILE که باید در همان پروژه با آن کد باز می شد
امیدوارم متوجه منظور من شده باشید
خیلی از زحمات شما متشکرم

saalek110 · Sep 25, 2005

hamidahmadi گفت:
خیلیی ممنون از توجه اتان به نوشته های من
منظور من این است که اگر من بخواهم یک فایل را مثلا" در درایو d یا درایو c و یا هر جای دیگری که بخواهم باز کنم چکار باید بکنم یعنی نمیخواهم بگویم این فایل را که اینجاست با این کد باز کن ( مثل فایل MYFILE که باید در همان پروژه با آن کد باز می شد
امیدوارم متوجه منظور من شده باشید
خیلی از زحمات شما متشکرم

سلام.
با عرض خسته نباشيد.
منظور من چيز ديگه اي بود.
واضح تر بگويم: آيا انتخاب فايل را شما به عهده مي گيريد يا كاربر؟
فكر كنم منظور شما اولي باشه.چون حالت دوم را كه در تاپيك آموزش ويژوال بيسيك داريم.
براي حالت اول آدرس را بايد بسازيد. خودتان كمي كار كنيد ، من هم كار مي كنم. بعد تبادل نظر مي كنيم.
با
&
و
" ..."
درود.

=====================

در صورتي كه شما هم بخواهيد تعيين فايل را به عهده بگيريد باز 2 حالت داره.
يكي اينكه ترتيب فايلها از قبل مشخصه ، مثلا از فايلي با نام 1 تا 10 ، كه ساده است و آدرس كامل بنويسيد
C:\my doc\1.txt
تا آخري. البته روش نوشتن آدرس را من چك نكردم. الان درگيرم . خودتان زحمت بكشيد.
حالت دوم زماني كه ترتيب فايلها مشخص نيست و بايست برنامه هوشمند عمل كنه. براي اين كار آدرس را تكه تكه مي كنيد. با & و " "
نمي دانم منظور شما را درست فهميدم و درست جواب دادم يا نه. منتظر پاسخ هستم. موفق باشيد.

hamidahmadi · Sep 25, 2005

منظور من حالت دوم زمانی که ترتیب فایلها مشخص نیست می باشد . مثل خود ویندور میخواهم هر جا فایلی را دیدم باز کنم

saalek110 · Sep 26, 2005

hamidahmadi گفت:
منظور من حالت دوم زمانی که ترتیب فایلها مشخص نیست می باشد . مثل خود ویندور میخواهم هر جا فایلی را دیدم باز کنم

بازم دو حالت داره.
اول اينكه ميخواهيد يك برنامه سرچ فايل بسازيد.
دوم اينكه با روش خاصي كه پروژه اتان داره فايلهايي را در پوشه هايي پيدا كنيد.
هر دو حالت قبلا كار شده. و پروژه هاي مثال موجود است.
دقيق بگيد چي مي خواهيد.
.

hamidahmadi · Oct 1, 2005

سالک جان به این کد توجه کن :
Private Sub c1_Click()

Dim strKhat As String
Dim intAzad As Integer

On Error GoTo khata

intAzad = FreeFile

cd1.Flags = &H200
cd1.Filter = "Text (*.txt) | *.txt | Bath File (*.bat) | *.bat"
cd1.FilterIndex = 1
cd1.ShowOpen

Open cd1.FileName For Input As #intAzad

Line Input #intAzad, strKhat
lst1.AddItem strKhat

Do Until (EOF(1))
Line Input #intAzad, strKhat
lst1.AddItem strKhat
Loop

Close

khata:

End Sub

حالا با این کد میتوان در یک جعبه لیست یک فایل تکست را نشان داد. حال برای save کردن چه کار باید کرد؟ البته این را بگویم که این فایل ترتیبی است در یک فایل مستقیم چگونه یک فایل را باز کنم و یا یک فایل را save کنم. ممنون میشوم اگر این حالات را توضیح دهی

saalek110 · Oct 7, 2005

http://forum.majidonline.com/showthread.php?p=294253&posted=1#post294253
به اين تاپيك يك نگاهي بكنيد.
ببينيد مي تونيد مشكل را با روشهاي خود حل كنيد.
.
با تشكر.
راستش شما در اين زمينه مهارتتون بيشتر از من است.
.

hamidahmadi · Oct 8, 2005

مرسی سالک جان من مدیون شما هستم به خاطر زحماتتان در آن 20 صفحه

مواد لازم
یک فرم به نام Form1
سه دکمه به نامهای cmdOpen , cmdSave , cmdClear
یک دیالوگ باکس به نام cd1
یک RitchTextBox به نام RTB1

کد آن
Private Sub cmdClear_Click()
RTB1.Text = ""
End Sub

Private Sub cmdOpen_Click()
Dim strOpen As String

With cd1
.Flags = &H2000
.DialogTitle = "Open"
.Filter = "Ritch Text Box(.rtf)|*.rtf"
.ShowOpen
strOpen = .FileName
End With
Form1.RTB1.LoadFile strOpen

End Sub

Private Sub cmdSave_Click()
Dim strSave As String

With cd1
.Flags = &H2000
.DialogTitle = "Save"
.Filter = "Ritch Text File (*.rtf)|*.rtf"
.ShowSave
strSave = .FileName
End With

Form1.RTB1.SaveFile strSave

End Sub

hamidahmadi · Oct 8, 2005

سالک جان لطفا" طرز قرار دادن کدها به شکلی که آقا نوید ، آقا میخک و شما که جدیدا" استفاده میکنید به من هم یاد بدهید تا بتوانم من هم کدها را صحیح در این فورم بگذارم ( آنجور که به صورت تورفتگی و کمی پررنگتر میشود ) تا بتوانم من هم کمی به شما در تاپيك آموزش ويژوال بيسيك کمک کنم ضمنا" پست شماره 17 را با توضیحاتی که شما در رابطه با with و ... خواسته اید به شکل صحیحی در تاپيك آموزش ويژوال بيسيك بگذارم

saalek110 · Oct 8, 2005

کد:

[left]
abcd
[/left]

xyz

کد:

[left]
large
[/left]

-----------------------------------

مديريت محترم....
پستي كه آقاي احمدي در تاپيك آموزش ويژوال بيسيك زده اند را ببينيد..
كد ايشان كنارش ((اسكرول بار)) داره....
برام سئواله كه داشتن يا نداشتن اسكرول بار تحت كنترل ماست يا خير.
ممنون از شما.
.

سلام نويد جان.
تمامي 4 يا 5 پاسخي كه امروز در تاپيكها مختلف داده بوديد را خواندم.
از بابت همه ممنون.
راهنمايي هاي ارزنده اي بود.
.

MnavidM · Oct 11, 2005

saalek گفت:
مديريت محترم....
پستي كه آقاي احمدي در تاپيك آموزش ويژوال بيسيك زده اند را ببينيد..
كد ايشان كنارش ((اسكرول بار)) داره....
برام سئواله كه داشتن يا نداشتن اسكرول بار تحت كنترل ماست يا خير.
ممنون از شما.
.

سلام.

نخیر به دست ما نیست.

اگر طول کد زیاد باشه خود به خود یکی Scroll به اون اضافه میشه .

اینجا (http://forum.majidonline.com/misc.php?do=bbcode) رو ببینید.

در مورد کد ها توضیح داده.

موفق باشی.
نوید.

MnavidM · Oct 11, 2005

saalek گفت:
سلام نويد جان.
تمامي 4 يا 5 پاسخي كه امروز در تاپيكها مختلف داده بوديد را خواندم.
از بابت همه ممنون.
راهنمايي هاي ارزنده اي بود.
.

سلام.

قابل شما رو نداره.

موفق باشی.
نوید.

ssyz · Feb 18, 2008

نحوه ذخیره فایل و نمایش فایل ذخیره شده

سلام دوستان

اگه میشه منو راهنمایی کنید

اول من یک فرم دارم که داخل این فرم اشیای زیر موجود است:

1- یک text Box و یک منوی Save و open

من میخواستم بدون باید چه دستوری بنویسیم که وقتی متن در text box مینویسم و ذخیره می کنیم بتونیم دوباره فیل ذخیره شده رو ببینیم مثلا با پسوند txt و doc

و بتونیم این فایل رو با برنامه های که این پسوند رو ساپورت میکنند اجرا کنیم. مثلا Notepad

متشکرم...