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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة في كتابة عربي مع انجليزي في نص واحد ali.alfoly 7 246 14-12-16, 03:01 PM
آخر رد: ali.alfoly
  [سؤال] مثال عن نسخ جدول من مستند وورد لمستند وورد آخر omran.a 3 121 05-12-16, 03:53 PM
آخر رد: sendbad100
  كيف اربط ملف وورد الى قاعدة البيانات abanoub saeed nabil 4 151 08-11-16, 12:13 AM
آخر رد: ممدوح
  طريقة حفظ بيانات عامود واحد أسامة السالمي 0 130 24-09-16, 12:12 AM
آخر رد: أسامة السالمي
  [VB.NET] هل فيه طريقة سهلة لإرسال البيانات من التكست بوكس لمستند وورد ؟ أبووسم 4 237 19-09-16, 01:41 PM
آخر رد: myalsailamy
  كيفة مسح نص واحد من textbox أحمد محمد جمعة 3 170 03-09-16, 04:26 PM
آخر رد: silverlight
  [سؤال] كيف يتم استبدال إشارة مرجعية موجودة في ملف وورد من خلال برنامجي ؟ السندبااد 2 152 17-08-16, 10:56 AM
آخر رد: السندبااد
  نسخ بيانات عامود واحد ونقلها الى عامود آخر في قاعدة بيانات أخرى أسامة السالمي 5 212 09-08-16, 03:43 PM
آخر رد: أسامة السالمي
  [سؤال] جعل البرنامج يعمل على جهاز واحد أسامة السالمي 1 234 02-08-16, 12:41 AM
آخر رد: boudyonline
Question سؤال واحد لكم محمد بن عطية 2 159 03-07-16, 07:09 AM
آخر رد: أسامة

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


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