تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع
#1
السلام عليكم

لدي عدة مستندات وورد ، اريد أن اعمل لها اختصار في برنامجي بحيث يسهل علي الوصول إليها

المطلوب كتابة الكود للوصول إلى المسار وثم حفظة في زر (RadioButton) و لكم التقدير و العرفان

المشروع في المرفقات


الملفات المرفقة
.rar   Visul 4 arab.rar (الحجم : 80.37 ك ب / التحميلات : 36)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام

يمكنك استغلال الخاصية Tag لوضغ المسار بها

استفد من هذا الكود
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Using open As New OpenFileDialog With {.Filter = "‫Microsoft Word Document‬ ‎(*.docx)‎|*.docx"}
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim title As String = IO.Path.GetFileNameWithoutExtension(open.FileName)
            Dim path As String = open.FileName

            MsgBox(title)
            MsgBox(path)

        End If
    End Using
End Sub
الرد }}}
تم الشكر بواسطة:
#3
(10-11-16, 04:59 PM)ممدوح كتب : وعليكم السلام

يمكنك استغلال الخاصية Tag لوضغ المسار بها

استفد من هذا الكود
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   Using open As New OpenFileDialog With {.Filter = "‫Microsoft Word Document‬ ‎(*.docx)‎|*.docx"}
       If open.ShowDialog = Windows.Forms.DialogResult.OK Then

           Dim title As String = IO.Path.GetFileNameWithoutExtension(open.FileName)
           Dim path As String = open.FileName

           MsgBox(title)
           MsgBox(path)

       End If
   End Using
End Sub

ممتاز اخي ممدوح

و لكن ممكن بعد اذنك ، اريد كود لحذف المسار مستقبلاً

و إذا أمكن كود فتح لمسار الملف لنفترض أنه على Button3

أقصد عند أختيار زر .. رادوبوتين .... و الضغط على Button3 يفتح معي المستند المحدد

نسيت أضافة الـ Button3 للمشروع
الرد }}}
تم الشكر بواسطة:
#4
أنت تحتاج الي Genric Dictinary (Of Integer, String و تضيف له اسم الملف شاملا فهرس الملف و تحسب Hashcode الخاص ب stream الملف و تضيفه علي هيئة Integer إلي Generic Dictionary وهذا سيؤدي الي سهولة التعامل مع الملفات من حيث الحذف او عرضها
الرد }}}
تم الشكر بواسطة:
#5
(10-11-16, 10:06 PM)silverlight كتب : أنت تحتاج الي Genric Dictinary (Of Integer, String  و تضيف له اسم الملف شاملا فهرس الملف و تحسب Hashcode الخاص ب  stream الملف و تضيفه علي هيئة Integer إلي Generic Dictionary وهذا سيؤدي الي سهولة التعامل مع الملفات من حيث الحذف او عرضها

معليش اخي انا معلوماتي في الاكواد ضعيفة ممكن لو تكرمت تعدل على البرنامج أو تكتب لي الكود لمراجعته و نسخة على برنامجي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart اقدم لكم هدية تصفح منتدى vb4arb.com بشكل أفضل من قبل مع ( vb4arb Code Highlighter ) عبدالله الدوسري 5 1,716 24-01-24, 10:31 PM
آخر رد: annagui
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
  [سؤال] كيف نستعيد قيمة من دالة ضمن مسار مستقل justforit 2 393 21-11-23, 10:51 AM
آخر رد: justforit
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
Rainbow [كود] معرفه حجم كل المجلدات في القرص C بشكل واضح محمد مسافر 7 409 10-09-23, 01:56 AM
آخر رد: أبو خالد الشكري
Exclamation [SQL] مشكلة إضافة قاعدة بيانات SQL أبو خالد الشكري 6 590 22-08-23, 08:25 PM
آخر رد: أبو خالد الشكري
  [VB.NET] نسخ الصور من الفورم الى الوورد صبيح 1 305 17-08-23, 03:03 PM
آخر رد: تركي الحلواني
  السلام عليكم اريد فتح تطبيق Whatsapp علما بان الواتس ليس لديه مسار ملف بويندوز 10 moh61 7 541 02-08-23, 10:00 PM
آخر رد: ahmed_king2023

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


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