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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

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

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

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

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







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





المنطقة المظللة المحيطة السيطرة يعني أنه قد تم تحديده. اذا نظرتم على يمينك، سترى نافذة الخصائص التي يمكنك استخدامها مع عنصر التحكم.....فمثلا سنقوم بتغير الاسم ...انقر على الخاصية name وتغيير الاسم إلى 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()

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











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


الرمز:
openFD.InitialDirectory = "C:"
  openFD.Title = "Open a Text File"
  openFD.Filter = "Text Files|*.txt"
  openFD.ShowDialog()


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







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

الرمز:
openFD.Filter = "Text Files(*.txt)|*.txt"

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







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


الرمز:
openFD.Filter = "Text Files|*.txt|Word Files|*.doc"

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





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

لذلك اذا اردت فتح الملفات ايضا علينا استخدام الاسلوب 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 )

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





يمكنك اختبار لمعرفة ما إذا كان قد تم النقر على زر (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]




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

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

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

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

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

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

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

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


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


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 و التى من خلالها يمكنك تحديد نوع الملفات التى تريد ظهور امتداها أفتراضية عند ظهور المربع الحوارى حفظ



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

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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