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

[Rishter]

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

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

:40::11::10:

[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 هم میتونید از هر چیزی استفاده


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