Visual Basic 6.0 translation

Wednesday, November 16, 2011

VB 0.6 - Save Files Using DialogBox Control

الحفظ باستخدام DialogBox

قبل تنفيذ المشروع الحالى الرجاء قراءة الدرس السابق جيدا ( التعامل مع الملفات فى الفيجوال بيزك 6 ) .

الان, المشروع عبارة عن تطبيق باستخدام 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 ثم نفتح فولدر المشروع سنجد الملف ان شاء الله

Visual Basic Online Course

vb6 (63) Application Development (45) Visual Basic Online Course (45) Online Visual Basic Course (44) Visual Basic Help (44) Visual Basic Programming (42) IT Jobs (39) VB6 developer (38) Visual Basic Course (38) Visual Basic 6.0 (26) Microsoft Visual Basic 6.0 (25) VB6.0 (24) Visual Basic Programmers (24) vb 6.0 (24) visual basic programming tutorial (19) Third lesson (16) Source code download for Visual Basic 6.0 (14) Source code for Visual Basic 6.0 (10) visual basic tutorial (9) Visual Basic 6 (5) Visual Basic Courses (5) Lesson 3 (4) VB 0.6 - TreeView control (4) VB 0.6 With TreeView Control (4) VB6 Course (3) Create ActiveX (2) How to automate MS-Access from Visual Basic 6.0 (2) Add controls at runtime (1) Back up your Database (1) Change ActiveX icon (1) Change screen resolution (1) Create FTP (1) Crystal Reports 4.6 (1) Crystl32.ocx could not be loaded (1) DataGrid Columns re-size (1) Date Calculation (1) DateAdd Function (1) DateDiff function (1) FTP (1) Marquee Title Bar (1) Marquee VB 6.0 TitleBar (1) Method 'Action' of object 'CrystalCtrl' Failed (1) Microsoft Access with Visual Basic 6.0 (1) OpenSchema method (1) Save File Using CommonDilog (1) Track Database path (1) VB 0.6 - Registry (1) VB 0.6 With Registry Editor (1) VB 6.0 Access (1) VB 6.0 OOP (1) VB6 Access2003 ADO Like % (1) VB6 Add Date (1) VB6 Add Time (1) VB6 Date calculation (1) VB6 Subtract Date (1) Visual Basic Remote (1) Win7 (1) Windows7 (1) ms access networking details (1) remote Visual Basic DB (1) rounded and transparent forms (1) vb 0.6 style (1) vb 6.0 Remote Database (1)