التعامل مع مربعات الحوار فى vb.net

اذهب الى الأسفل

التعامل مع مربعات الحوار فى vb.net  Empty التعامل مع مربعات الحوار فى vb.net

مُساهمة من طرف أبوسجود في السبت يونيو 08, 2013 1:00 pm

بسم الله الرحمن الرحيم

الاخوة الاعزاء أهلا وسهلا بكم ....درس اليوم عن كيفية التعامل مع مربعات الحوار المختلفة ....فالفجوال بيسك دوت نت يحتوى على العديد من مربعات الحوار المختلفة التى يمكنك التعامل معها بسهولة وهى على النحو التالى :

1_ مربع حوار "فتح" ....و يستخدم هذا المربع لتحديد وفتح الملفات بأختلاف انواعها و لن يخلوا اى مشروع من استخدامة ....ولكى تتمكن من استخدام هذا المربع بسحب العنصر OpenFileDialog من مربع الادوات كما فى الشكل التالى :



التعامل مع مربعات الحوار فى vb.net  OpenFileControl



لتجد العنصر اسفل نافذة المشروع كما فى الصورة التالية :


التعامل مع مربعات الحوار فى vb.net  OpenFileControl2


المنطقة المظللة المحيطة السيطرة يعني أنه قد تم تحديده. اذا نظرتم على يمينك، سترى نافذة الخصائص التي يمكنك استخدامها مع عنصر التحكم.....فمثلا سنقوم بتغير الاسم ...انقر على الخاصية name وتغيير الاسم إلى openFD. عندما قمت بتغيير الاسم في مربع الخصائص، فإن اسم عنصر التحكم في الجزء السفلي تغيير:



التعامل مع مربعات الحوار فى vb.net  OpenFD





قم بإضافة زر امر و بالنقر المزدوج على العنصر لتجد أن صفحة كتابة الشفر قد فتحت و بها الكود التالى :


الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
 
 End Sub


الان سنقوم بوضع سطر برمجى فى داخل الاجراء السابق الخاص بزر الامر ليصبح الكود كما يلى :

الكود:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        openFD.ShowDialog()
    End Sub

وكما ترون فإن السطر openFD.ShowDialog هو الخاص بإظهار مربع الحوارى "فتح" ....وعند تشغيل المشروع و النقر على زر الامر يفتح المربع كما فى الشكل التالى :


وكما ترون فى الصورة ستجد ان مربع الحوارى بدون مسار و يمكنك تعيين أي دليل أو مسار امربع الحوار يجب عرض عند ظهوره. بدلا من عرض محتويات المجلد "المستندات" افتراضية ....وذلك بتعديل التعليمات البرمجية ليصبح كما يلى :

الكود:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        openFD.InitialDirectory = "C:"
        openFD.ShowDialog()

    End Sub

وايضا افتراضيا، سوف يقوم مربع الحوار عرض كلمة "open" كتسمية توضيحية في الجزء العلوي من مربع الحوار الخاص بك.....لكن يمكنك تغيير هذا مع الخاصية العنوان....وذلك بالتعليمات البرمجية التالية :

الكود:
openFD.InitialDirectory = "C:"
  openFD.Title = "Open a Text File"
  openFD.ShowDialog()

و النتيجة كما ترى فى الصورة التالية :



التعامل مع مربعات الحوار فى vb.net  OpenFD2








في معظم مربعات الحوار، يمكنك تحديد قائمة من الملفات التي يمكن فتحها بعينها دون غيرها.....و يتم ذلك من خلال القائمة المنسدلة "Files of Type" . ....و للقيام بذلك في VB.NET، يمكنك الوصول إلى الخاصية Filter. فمثلا اذا اردنا فتح الملفات النصية فقط دون غيرها ....نستخدم التعليمة البرمجية التالية :


الكود:
openFD.InitialDirectory = "C:"
  openFD.Title = "Open a Text File"
  openFD.Filter = "Text Files|*.txt"
  openFD.ShowDialog()


و النتيجة كما يلى :


التعامل مع مربعات الحوار فى vb.net  OpenFD3




كما يمكنك تحديد امتداد الملفات باستخدام الكود التالى :

الكود:
openFD.Filter = "Text Files(*.txt)|*.txt"

و النتيجة كما يلى :


التعامل مع مربعات الحوار فى vb.net  OpenFD4


التعامل مع مربعات الحوار فى vb.net  OpenFD5

كما يمكنك عرض اكثر من نوع من الملفات باستخدام الكود التالى :


الكود:
openFD.Filter = "Text Files|*.txt|Word Files|*.doc"

و النتيجة كما يلى :


التعامل مع مربعات الحوار فى vb.net  File_db_filename2


لغاية الان إذا قمت بتحديد ملف وانقر فوق الزر "فتح"، لا يحدث أي شيء..... ذلك لأن التعليمات البرمجية السابقة تقوم بفتح صناديق الحوار فقط و ليست الملفات .....لذلك فإنه يعرض فقط على قائمة من الملفات التي يمكن فتحها،

لذلك اذا اردت فتح الملفات ايضا علينا استخدام الاسلوب OpenFD.FileName ....و المثال التالى يوضح اكثر :

الكود:
Dim strFileName As String

openFD.InitialDirectory = "C:"
  openFD.Title = "Open a Text File"
  openFD.Filter = "Text Files|*.txt"
  openFD.ShowDialog()
  strFileName = OpenFD.FileName

MessageBox.Show( strFileName )

و النتيجة ستكون ظهور رسالة باسم الملف المختار كما يلى :


التعامل مع مربعات الحوار فى vb.net  OpenFD7


يمكنك اختبار لمعرفة ما إذا كان قد تم النقر على زر (open) ام لا عن طريق تعيين openFD.ShowDialog ()عن طريق الكود التالى:


الكود:
[/right]
[right]Dim DidWork As Integer = openFD.ShowDialog()[/right]
[right]
[/right]
If DidWork = DialogResult.Cancel Then

MsgBox("Cancel Button Clicked")

Else

strFileName = openFD.FileName
  MsgBox(strFileName)

End If
[right]
[/right]
[right]
[/right]
[right]




و اللى اللقاء فى الجزء الثانى من هذا الدرس
avatar
أبوسجود
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

التعامل مع مربعات الحوار فى vb.net  Empty رد: التعامل مع مربعات الحوار فى vb.net

مُساهمة من طرف أبوسجود في الأحد يونيو 09, 2013 8:07 pm

2_ مربع الحوار "حفظ" ....
يعمل مربع حوار "حفظ " بنفس الطريقة التي يعمل بها مربع الحوار "فتح" و يختلفان فى الهدف ....فمربع الحوار "حفظ " يستخدم لحفظ الملفات على القرص الصلب ........ولكى يمكنك استخدامة قم بتحديد عنصر التحكم SaveFileDialog من صندوق الادوات كما فى الشكل التالى :

التعامل مع مربعات الحوار فى vb.net  SaveDB
ثم قم بحسب العنصر الى نافذة مشروعك ليظهر فى الجزء السفلي من الشاشة كما يلى :


التعامل مع مربعات الحوار فى vb.net  SaveDB2
و لكى تستطيع أظهار مربع الحوار "حفظ " عليك استخدام السطر البرمجى التالى :
الكود:


saveFileDialog1.ShowDialog()

و تماما مثل خصائص مربع " فتح " يمكنك أستخدام بعض الطرق لتنسيق مربع الحوار " حفظ " ومنها
Initial Directory
Title
Filter
FileName
واليكم مثال كامل على الاداة
الكود:


[right]  saveFileDialog1.InitialDirectory = "C:"

        saveFileDialog1.Title = "Save text Files"

        saveFileDialog1.CheckFileExists = True

        saveFileDialog1.CheckPathExists = True

        saveFileDialog1.DefaultExt = "txt"

        saveFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"

        saveFileDialog1.FilterIndex = 2

        saveFileDialog1.RestoreDirectory = True

 
        If (saveFileDialog1.ShowDialog() = DialogResult.OK) Then

            TextBox1.Text = saveFileDialog1.FileName

        End If

و ربما تجد بعض الخصائص الجديدة التى لم نتطرق لها فى مربع الحوار فتح ومنها ....
الخاصية Check File Exists و التى تقوم بعرض رسالة تحذير فى حالة عدم أختيار ملف لحفظة
الخاصية Check Path Exists و التى تقوم ايضا بعرض رسالة تحذير فى حالة عدم صحة المسار الذى تم تحديده
الخاصية Default Extension و التى من خلالها يمكنك تحديد نوع الملفات التى تريد ظهور امتداها أفتراضية عند ظهور المربع الحوارى حفظ


avatar
أبوسجود
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى