منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=17979)



إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع - أبووسم - 10-11-16

السلام عليكم

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

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

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


RE: إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع - ممدوح - 10-11-16

وعليكم السلام

يمكنك استغلال الخاصية 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



RE: إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع - أبووسم - 10-11-16

(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 للمشروع


RE: إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع - silverlight - 10-11-16

أنت تحتاج الي Genric Dictinary (Of Integer, String و تضيف له اسم الملف شاملا فهرس الملف و تحسب Hashcode الخاص ب stream الملف و تضيفه علي هيئة Integer إلي Generic Dictionary وهذا سيؤدي الي سهولة التعامل مع الملفات من حيث الحذف او عرضها


RE: إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع - أبووسم - 10-11-16

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

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