گذاشتن منوهای Open و Save در ویزوال بیسیک

[Rishter]

این سومین بار هست که دارم این پست رو مینویسم چون تو دو دفعه قبل یه بار سیستمم ریست شد و یه بارم

یه مشکل دیگه پیش اومد ولی اگه خدا بخواد میخوام برای سومین بار شروع کنم . (البته با اجازه اساتید محترم)

[Rishter]

برای این کار شما باید یک کنترل CommonDialog به کنترل باکس تون اضافه کنید . برای این کار ابتدا برروی

Project و بر روی Commponents کلیک کنید . در صفحه باز شده گزینه Microsoft Common Dialog Contorol

را تیک بزنید سپس Apply و درآخر Close رو بزنید . حال شما میبینید که یک کنترل دیگر به لیست کنترلهایتان

اضافه شده است .

بقیه در پست بعدی . . .

[Rishter]

برای ساخت منوها ابتدا سه کنترل ؛ یک کنترل CommonDialog و دو کنترل Command

Button بر روی فرمتون قرار دهید . نام CommonDialog رو به cdlgDialog تغییر

بدهید . البته یک کنترل Textbox هم با نام txtnotes ایجاد کنید . سپس این کد ها را در بخش

دکمه ای که آن را Open قرار داده اید بنویسید :



On

Error GoTo errs1

cdlgDialog.CancelError = True
cdlgDialog.Filter = "Files (*.nts)|*.nts"
cdlgDialog.ShowOpen
If

cdlgDialog.FileName <> "" Then

open_file cdlgDialog.FileName
End

If

errs1:

برای دکمه Save هم این کد ها رو بذارید :

On

Error GoTo errs1

cdlgDialog.CancelError = True
cdlgDialog.Filter = "Text Files (*.nts)|*.nts"
cdlgDialog.ShowSave
If

cdlgDialog.FileName <> "" Then

save_file cdlgDialog.FileName
End

If

errs1:

این کدها رو هم تو آخر از همه بنویسید :

Sub

save_file(strFilename As String)

On

Error GoTo errs1

Dim

f As Integer

Dim

tmp As String

f = FreeFile
Open strFilename For Output As #f
Print #f, txtnotes.Text
Close #f
MsgBox "File saved successful.", vbInformation
Exit

Sub

errs1:
MsgBox "Error: Can not save file '" & strFilename & "'.", vbExclamation
Close #f
End

Sub

Sub

open_file(strFilename AsString)

On

ErrorGoTo errs1

Dim

f AsInteger

Dim

tmp AsString

f = FreeFile
Open strFilename For Input As #f
tmp = Input(LOF(f), #f)
Close #f

txtnotes.Text = tmp
Exit

Sub

errs1:
MsgBox "Error: Can not open file '" & strFilename & "'.", vbExclamation
Close #f
End

Sub

تمام

فقط یه چیز به جای Text Files (*.nts)|*.nts هر فرمتی که بخواید میتوانید بگذارید . مثلا :

ttu , hto و یا هر چیزی که دلتون بخواد این فرمت فایلتون هست ، به جای Text Files هم میتونید از هر چیزی استفاده

نمایید . مثلا : عنوان نرم افزار شما , ... .