VB 0.6 - Save Files Using DialogBox Control
الحفظ باستخدام DialogBox
الان, المشروع عبارة عن تطبيق باستخدام Visual Basic 0.6 الهدف منه توضيح كيفية حفظ ملف نوعه TxT باستخدام CommonDialog Control .
1) فتح برنامج فيجوال بيزك 6 و انشاء مشروع جديد Standard Application
 |
| صورة رقم 1 |
2) نقوم بحفظ المشروع على DeskTop مثلا باسم MyTxtFile
3) يكون شكل الفولدر كما بالصورة رقم (1) .
4) نقوم باضافة CommonDilaog على الفورم Form1 عن طريق الضغط على Ctrl+T أو Right-Click على شريط الادوات و اختيار Component ثم اختيار Microsoft Common Dialog Control Sp6 ثم Ok كما بالصورة رقم 2
 |
| صورة رقم 2 |
 |
| صورة رقم 3 |
5) نقوم برسم TextBox عدد (2) CommandButton و اضافة CommonDialog على الفورم ز نضغط Save أو Ctrl+S و يكون شكل الفورم بعدها كما بالصورة (3) .
6) عمل البرنامج : عند الكتابه فى TextBox ثم الضغط على Save As يتم فتح Dialog Box نقوم من خلالة بتحديد اسم الملف و حفظه بامتداد Txt لأنه ملف نصى و لا تنسى جعل خاصية MultiLine فى ال TextBox = True
7) الاكواد : سنقوم بفتح شاشة الاكواد Form1 و نمسح جميع محتوياتها Ctrl+A ثم BackSpace و نقوم بنسخ الكود التالى Ctrl+C و لصقة فى مكان كود الفورم Ctrl+V .
8) الكــــــــــــــود :
Option Explicit
Private Sub Command1_Click()
Dim strfilenaMe As String
Dim fnum As Integer
On Error Resume Next
CMD.ShowSave
If Err.Number = cdlCancel Then
' The user canceled.
Exit Sub
ElseIf Err.Number <> 0 Then
' Unknown error.
MsgBox "Error " & Format$(Err.Number) & _
" Saving file." & vbCrLf & _
Err.Description
Exit Sub
End If
On Error GoTo 0
' Save the file.
fnum = FreeFile
strfilenaMe = CMD.FileName
Open strfilenaMe For Output As fnum
Print #1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
CMD.InitDir = App.Path
CMD.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
CMD.FilterIndex = 1
CMD.DialogTitle = "Save File"
CMD.CancelError = True
End Sub
الان قم بعمل Run أو Crtl+F5 لتجربة البرنامج و اكتب سطور عديده و اضغط على Save As تظهر Box نكتب به اسم الملف و نضغط على Save ثم نفتح فولدر المشروع سنجد الملف ان شاء الله
