[عبدالله السلمي]

هل ينطبق الشرح على c#؟

[الوادي]

نعم ينطبق إذا كنت تعرف هيكلية كود C#

[tryold]

سألت سؤال محد رد علي  والسؤال هو

اريد ان اطبع الصورة التي في الورم picture1  الى الوورد في خانة bookmark  بالكود مثل ما فعلنا بالتكست بوكس

ولا اريد ان اعطيه مسار للصوره حتى يطبعها لي على الوورد  اريد فقط التي موجودة في الفورم

فهل احصل على هذا الكود

[الوادي]

احفظها في المجلد المؤقت IO.Path.GetTempFileName واعطيه المسار.

[tryold]

ممكن الطريقة ؟

لكن لا اريد الصورة تبقى في مسار البرنامج بعد الطباعة

الا يوجد طريقة آخرى

[الوادي]

أنا قلت المجلد المؤقت يعني ما راح تكون في مسار البرنامج وهذا المجلد يقوم الويندوز بحذف محتوياته تلقائية عندما يعلم بأن ما فيه لم يعد أي برنامج يحتاجه
هذا الطريقة

PHP كود :

Dim fn As String = IO.Path.GetTempFileName
Me.PictureBox1.Image.Save(fn)

' fn = هنا حيكون مسار الصورة 


أنا ليست لدي فكرة عن مسألة الوورد، ولكن وضعت حل لمشكلة وجود الصورة في أداة عن طريق استغلال حفظها للحصول على مسار الصورة

[tryold]

شكرا لك عزيزي

وبارك الله فيك وفي علمك

على العموم ماضبط معي  

انا لم استخدم اي كود من اكواد شرح الأخ عبدالله الدوسري او اي كلاس 
ما عدى الرفرينس اللي هو Interop.Word.dll   فقط وبنيت الكود هكذا :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


       Static wd1 As Word.Application
       Static wd1Doc As Word.Document
       wd1 = New Word.Application
       wd1.Visible = True
      wd1Doc = wd1.Documents.Add(Application.StartupPath & "\DocFiles\DocPrint.dotx") 'path of do




       With wd1Doc

           .Bookmarks.Item("txtFname").Range.Text = txtFname.Text
           .Bookmarks.Item("txtLname").Range.Text = txtLname.Text
           .Bookmarks.Item("txttel").Range.Text = txttel.Text
           .Bookmarks.Item("CombCity").Range.Text = CombCity.Text
           .Bookmarks.Item("CombGroub").Range.Text = CombGroub.Text
           .Bookmarks.Item("txtPosts").Range.Text = txtPosts.Text
           .Bookmarks.Item("txtPoints").Range.Text = txtPoints.Text

' هنا اريد كود الصوره مثل البقية



     End With

       wd1 = Nothing
       wd1Doc = Nothing
   End Sub

[السندبااد]

(19-08-16, 09:58 PM)tryold كتب : شكرا لك عزيزي

وبارك الله فيك وفي علمك

على العموم ماضبط معي  

انا لم استخدم اي كود من اكواد شرح الأخ عبدالله الدوسري او اي كلاس 
ما عدى الرفرينس اللي هو Interop.Word.dll   فقط وبنيت الكود هكذا :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


       Static wd1 As Word.Application
       Static wd1Doc As Word.Document
       wd1 = New Word.Application
       wd1.Visible = True
      wd1Doc = wd1.Documents.Add(Application.StartupPath & "\DocFiles\DocPrint.dotx") 'path of do




       With wd1Doc

           .Bookmarks.Item("txtFname").Range.Text = txtFname.Text
           .Bookmarks.Item("txtLname").Range.Text = txtLname.Text
           .Bookmarks.Item("txttel").Range.Text = txttel.Text
           .Bookmarks.Item("CombCity").Range.Text = CombCity.Text
           .Bookmarks.Item("CombGroub").Range.Text = CombGroub.Text
           .Bookmarks.Item("txtPosts").Range.Text = txtPosts.Text
           .Bookmarks.Item("txtPoints").Range.Text = txtPoints.Text

' هنا اريد كود الصوره مثل البقية



     End With

       wd1 = Nothing
       wd1Doc = Nothing
   End Sub

أخي الكريم أنت استخدمت مكتبة microsoft.office.interop.word.dll
وهذه لا أظن أنها تدعم الصور والجداول من البرنامج للوورد
هي تدعم فقط النصوص على حد علمي

[الوادي]

يا tryold،

الموضوع أساساً حول شرح الأستاذ عبدالله الدوسري، وأيضا هذا قسم مقالات VB.NET.

وطالما طلبك مختلف المفروض تفتح موضوع خاص بك في قسم أسئلة VB.NET وتعرض اللي توصلت له وتذكر النقطة اللي توقفت عندها.

[tryold]

أسف

يعطيكم العافيه