16 | Use OpenFileDialog to select the Excel file containing student information from the computer

  شرح الكود:

١. الأدوات المستخدمة:

١. OpenFileDialog (OFD): لاختيار ملف الأكسل من النظام.

٢. TextBox (tbFilePath): لعرض مسار الملف المختار.

٣. TextBox (tbFileName): لعرض اسم الملف المختار.


٢. الكود:

Dim OFD As New OpenFileDialog 'يتم كتابته في بداية الصفحة  

  • OFD: يتم تعريف كائن من نوع OpenFileDialog لاستخدامه لفتح نافذة اختيار الملفات.
الـ Event الخاص بزر "استعراض" (Browse Button):

Private Sub btn_browse_Click(sender As Object, e As EventArgs) Handles btn_browse.Click

        OFD.Filter = "File Formats (*.XLSX; *.XLS;) | *.xlsx; *.xls;"

End Sub

  • عند النقر على الزر btn_browse، يتم فتح نافذة لاختيار ملف باستخدام OpenFileDialog.
  • Filter: يحدد نوعية الملفات التي سيتم عرضها في نافذة الاختيار. في هذا المثال، يعرض فقط ملفات .XLSX و .XLS.

If OFD.ShowDialog = DialogResult.OK Then

     tbFilePath.Text = Path.GetDirectoryName(OFD.FileName)

     tbFileName.Text = Path.GetFileName(OFD.FileName)

End If

  • OFD.ShowDialog: يعرض نافذة الاختيار. إذا اختار المستخدم ملفًا، سترجع القيمة DialogResult.OK.
  • Path.GetDirectoryName(OFD.FileName): يُستخدم لاستخراج المسار الذي يحتوي على الملف (دون اسم الملف).
  • Path.GetFileName(OFD.FileName): يُستخدم لاستخراج اسم الملف فقط من المسار الكامل.
  • tbFilePath.Text: يعرض المسار في TextBox tbFilePath.
  • tbFileName.Text: يعرض اسم الملف في TextBox tbFileName.
الخلاصة:
  • عند النقر على الزر btn_browse، ستفتح نافذة لاختيار ملف من جهاز الكمبيوتر.
  • بعد اختيار الملف، يتم عرض المسار واسم الملف في TextBox tbFilePath و TextBox tbFileName، على التوالي.
  • هذا الكود يتيح للمستخدم تحديد ملف معين من جهازه وعرض تفاصيله داخل التطبيق.

الهدف من الكود هو استخدام OpenFileDialog لاختيار ملف من جهاز الكمبيوتر. عند اختيار المستخدم للملف، يتم استخراج المسار (Path) واسم الملف (FileName) وعرضهما في حقول النص (TextBox).


الكود كاملا:

Dim OFD As New OpenFileDialog 'يتم كتابته في بداية الصفحة 

 

Private Sub btn_browse_Click(sender As Object, e As EventArgs) Handles btn_browse.Click

        OFD.Filter = "File Formats (*.XLSX; *.XLS;) | *.xlsx; *.xls;"

        If OFD.ShowDialog = DialogResult.OK Then

            tbFilePath.Text = Path.GetDirectoryName(OFD.FileName)

            tbFileName.Text = Path.GetFileName(OFD.FileName)

 

        End If

 End Sub

إذا كان لديك أي أسئلة أخرى أو تحتاج إلى مزيد من التوضيح، فلا تتردد في طرحها! 

يمكنكم متابعة الدرس عن طريق اليوتيوب




تعليقات

إرسال تعليق

المشاركات الشائعة من هذه المدونة

7 | Display column's stages from the database into ComboBox's Stage - VB.NET & SQL Server

صورة
١. تعريف المتغيرات: Dim con As New SqlConnection(conString) Dim dtstages As New DataTable con: يقوم بإنشاء اتصال جديد بقاعدة البيانات باستخدام سلسلة الاتصال conString. dtstages: هو كائن من نوع DataTable، يُستخدم لتخزين البيانات التي سيتم استرجاعها من قاعدة البيانات. ٢. مسح محتويات dtstages dtstages.Clear() يتم مسح أي بيانات قد تكون موجودة سابقًا في dtstages لضمان أن البيانات الجديدة ستكون نظيفة. ٣. فتح الاتصال: con.Open() يتم فتح الاتصال بقاعدة البيانات. ٤. استخدام الأمر SqlCommand: Using cmd As New SqlCommand("SELECT ID,stage FROM tbl_stages WHERE status='Available'", con) يتم إنشاء كائن جديد من SqlCommand لتنفيذ استعلام SQL، والذي يقوم باختيار ID و**stage** من جدول tbl_stages حيث الحالة (status) هي "متاحة" (Available). con: هو الاتصال بقاعدة البيانات الذي سيتم استخدامه لتنفيذ الأمر. ٥. تعيين نوع الأمر ووقت التنفيذ: cmd.CommandType = CommandType.Text cmd.CommandTimeout = 420 CommandType.Text: يشير إلى أن الأمر هو نص SQL عادي. CommandTimeout: يحدد الوقت ا...
قراءة المزيد

26 | Filter Students List based on students' stage and Group in DataGridView - VB.NET & SQL Server

صورة
أولاً :  cbox_stage_SelectedIndexChanged   شرح الكود : هذا الكود يتعامل مع الحدث SelectedIndexChanged للـ ComboBox المسمى cbox_stage ، حيث يقوم بتحديث cbox_group بناءً على stage المختار في cbox_stage . ١ . الحدث SelectedIndexChanged : Private Sub cbox_stage_SelectedIndexChanged(sender As Object , e As EventArgs) Handles cbox_stage.SelectedIndexChanged هذا الحدث يُنفَّذ كلما تم تغيير اختيار cbox_stage ، أي عندما يختار المستخدم قيمة مختلفة في الـ ComboBox . ٢ . إعداد الاتصال بقاعدة البيانات : Dim con As New SqlConnection(conString) Dim dtstage As New DataTable() dtstage.Clear() يتم إنشاء SqlConnection باستخدام ( conString ( السلسلة التي تحتوي على تفاصيل الاتصال بقاعدة البيانات . يتم أيضًا إنشاء DataTable جديد يُستخدم لتخزين البيانات المسترجعة من قاعدة البيانات . ٣ . مسح مصدر البيانات للمجموعة : cbox_group.DataSource = Nothing قبل تحميل البيانات الجديدة للمجموعة ( cbox_group )، يتم مسح DataSource الحالي. ٤ . إعداد استعلام SQL: Usi...
قراءة المزيد

8 | Get selected Stage and Group IDs from their ComboBoxes - VB.NET & SQL Server

صورة
 ١. تعريف الإجراء : Private Sub cbox_group_SelectedIndexChanged(...) : هذا هو إجراء خاص (Sub) يتم تنفيذه عندما يتغير العنصر المحدد في ComboBox يسمى cbox_group . sender As Object : يمثل العنصر الذي تم تغيير اختياره (في هذه الحالة، cbox_group ). e As EventArgs : يمثل معلومات الحدث، وهي قياسية في أحداث .NET. ٢. التعامل مع الحدث : Handles cbox_group.SelectedIndexChanged : تشير إلى أن هذا الإجراء سيتم استدعاؤه عند تغيير الفهرس المحدد في cbox_group . ٣. التحقق من الفهرس المحدد : If cbox_group.SelectedIndex = 0 Then : يتحقق مما إذا كان الفهرس المحدد في cbox_group هو 0 (أي الخيار الأول في القائمة). إذا كان صحيحًا، يتم تنفيذ الكود داخل هذا الشرط. ٤. تحديث cbox_group_id : cbox_group_id.Text = "" : إذا كان الفهرس 0، يتم مسح النص في cbox_group_id . Else : إذا كان الفهرس المحدد ليس 0، يتم تنفيذ الكود التالي. cbox_group_id.Text = cbox_group.SelectedIndex : يتم تعيين نص cbox_group_id إلى قيمة الفهرس المحدد في cbox_group . خلاصة : هذا الكود يقوم بتحديث عنصر ComboBox آخر يسمى cbox_group_i...
قراءة المزيد