تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ملف وورد واحد
#1
أخواني الأعزاء
عند استدعاء ملف وورد استخدم الكود التالي
كود :
Dim p As New System.Diagnostics.Process
        p.StartInfo.FileName = "winword.exe"
        p.Start()
إلا أني بحاجة إلى كود يمنع فتح أكثر من ملف وورد واحد .. فهل هذا ممكن جزاكم الله خيرا
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim query = From process In System.Diagnostics.Process.GetProcesses() _
                     Where process.ProcessName.ToLower = "winword" _
                    Select process.ProcessName


        If query.Count = 1 Then
            MsgBox("يوجد ملف ويرد مفتوح مسبقاً", MsgBoxStyle.Exclamation, "Error")
            Exit Sub
        End If


        Dim p As New System.Diagnostics.Process
        p.StartInfo.FileName = "winword.exe"
        p.Start()


    End Sub

نتحقق في البداية عن طريق الـ Linq من وجود نسخة من برنامج الويرد مفتوحة مسبقاً أم لا

إذا ما في يتم فتح نسخة جديدة
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مثال عن نسخ جدول من مستند وورد لمستند وورد آخر omran.a 3 48 05-12-16, 03:53 PM
آخر رد: sendbad100
  كيف اربط ملف وورد الى قاعدة البيانات abanoub saeed nabil 4 106 08-11-16, 12:13 AM
آخر رد: ممدوح
  طريقة حفظ بيانات عامود واحد أسامة السالمي 0 105 24-09-16, 12:12 AM
آخر رد: أسامة السالمي
  [VB.NET] هل فيه طريقة سهلة لإرسال البيانات من التكست بوكس لمستند وورد ؟ أبووسم 4 185 19-09-16, 01:41 PM
آخر رد: myalsailamy
  كيفة مسح نص واحد من textbox أحمد محمد جمعة 3 131 03-09-16, 04:26 PM
آخر رد: silverlight
  [سؤال] كيف يتم استبدال إشارة مرجعية موجودة في ملف وورد من خلال برنامجي ؟ السندبااد 2 127 17-08-16, 10:56 AM
آخر رد: السندبااد
  نسخ بيانات عامود واحد ونقلها الى عامود آخر في قاعدة بيانات أخرى أسامة السالمي 5 168 09-08-16, 03:43 PM
آخر رد: أسامة السالمي
  [سؤال] جعل البرنامج يعمل على جهاز واحد أسامة السالمي 1 169 02-08-16, 12:41 AM
آخر رد: boudyonline
Question سؤال واحد لكم محمد بن عطية 2 132 03-07-16, 07:09 AM
آخر رد: أسامة
  التعديل ولاضافة في زر واحد makky 7 210 21-06-16, 03:15 AM
آخر رد: makky

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


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