تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية فتح مستندات نصية بالامتدادات التي تشاء
#1
كود :
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 فقط بل أود من خلال هذا الكود فتح مختلف الامتدادات النصية  Shy
Angel  الحياة فترة اختبار , إما أن تكون او لاتكون  Rolleyes  
لن امل من البحث  ولن امل من السؤال
[b]رواد المعلوميات[/b]
الرد }}}
تم الشكر بواسطة:
#2
تفضل اخي هاذي طريقة اسهل 


اختر اداة 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 يحدد عليه وسيعمل تلقائياً
الرد }}}
#3
(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 وانتهى الامر
Angel  الحياة فترة اختبار , إما أن تكون او لاتكون  Rolleyes  
لن امل من البحث  ولن امل من السؤال
[b]رواد المعلوميات[/b]
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 222 25-02-24, 11:26 PM
آخر رد: heem1986
  معرفة رصيدي للهاتف النقال المتصل بالكمبيوتر وارسال رسائل نصية منه AHMED213 0 98 22-02-24, 11:47 AM
آخر رد: AHMED213
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 323 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  كيفية رسم بيان دالة رياضية؟ الخير19 6 415 23-12-23, 03:36 PM
آخر رد: الخير19
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 671 14-12-23, 12:07 PM
آخر رد: asmarsou

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم