ملف وورد واحد - نسخة قابلة للطباعة

ملف وورد واحد - نسخة قابلة للطباعة

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

ملف وورد واحد - abuzzouz - 23-05-13

أخواني الأعزاء
عند استدعاء ملف وورد استخدم الكود التالي

كود :

Dim p As New System.Diagnostics.Process

        p.StartInfo.FileName = "winword.exe"

        p.Start()

إلا أني بحاجة إلى كود يمنع فتح أكثر من ملف وورد واحد .. فهل هذا ممكن جزاكم الله خيرا

ملف وورد واحد - kslawy - 23-05-13

كود :

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 من وجود نسخة من برنامج الويرد مفتوحة مسبقاً أم لا

إذا ما في يتم فتح نسخة جديدة