+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية فتح مستندات نصية بالامتدادات التي تشاء (/showthread.php?tid=31066)
كيفية فتح مستندات نصية بالامتدادات التي تشاء - الرائد - 25-08-19
كود :
Try
If TextBox1.Text = "" Then
MsgBox("يرجى تحديد اسم الملف المراد الدخول اليه") 'هنا لاعادة تسمية الملف قبل الحفظ
Return
End If
Dim Psi As New ProcessStartInfo
With Psi
.FileName = My.Application.Info.DirectoryPath & "\مقالات\" & TextBox1.Text & ".dotx"
.WindowStyle = ProcessWindowStyle.Maximized
ProgressBar1.Value = 50
.Verb = "open"
End With
ProgressBar1.Value = 100
Process.Start(Psi)
ProgressBar1.Value = 0
Catch ex As Exception
MsgBox("يرجى التأكد من اسم الملف الذي ادخلته", MsgBoxStyle.OkOnly)
End Tryفي الكود اعلاه , اود فتح ملف وورد من خلاله , الكود يعمل بشكل ممتاز
مشكلتي انني لا أود فتح مستندات من امتداد dotx فقط بل أود من خلال هذا الكود فتح مختلف الامتدادات النصية
RE: كيفية فتح مستندات نصية بالامتدادات التي تشاء - dasktop - 25-08-19
تفضل اخي هاذي طريقة اسهل
اختر اداة listbox
وفي الزر
كود :
For Each foundFile In My.Computer.FileSystem.GetFiles(
My.Application.Info.DirectoryPath & "\مقالات\")
ListBox1.Items.Add(foundFile)
Nextوفي حدث ال listbox
كود :
Process.Start(ListBox1.SelectedItem)واذا تريد بطريقتك فقط ضع شرط اذا النص المكتوب في textbox1 موجود في listbox يحدد عليه وسيعمل تلقائياً
RE: كيفية فتح مستندات نصية بالامتدادات التي تشاء - الرائد - 25-08-19
(25-08-19, 01:09 PM)dasktop كتب : تفضل اخي هاذي طريقة اسهلشكرا لك , لكني وجدت طريقة اسهل بكثير دون الحاجة الى تبديل الكود
اختر اداة listbox
وفي الزر
كود :
For Each foundFile In My.Computer.FileSystem.GetFiles(
My.Application.Info.DirectoryPath & "\مقالات\")
ListBox1.Items.Add(foundFile)
Next
وفي حدث ال listbox
كود :
Process.Start(ListBox1.SelectedItem)
واذا تريد بطريقتك فقط ضع شرط اذا النص المكتوب في textbox1 موجود في listbox يحدد عليه وسيعمل تلقائياً
لقد قمت باحداق combox ووضعت فيه جميع الامتدادات وبدلا من .dotx وضعت combobox1.text وانتهى الامر