السلام عليكم :
بعد ان عرفنا طريقة ربط الفيجول بيسك 6 مع برنامج الورد من خلال موضوع سابق (( للدخول للموضوع اضغط هنا )) نتطرق اليوم لربط ملفات الورد مع
الدوت نت , طبعا الدوت نت لغة رائعة بكل معنى الكلمة وبالامكان التحكم بخيارتها واكوادها اكثر من الفيجول 6 ....
نبدي بالعمل :
1- افتح برنامج الدوت نت 2008 او 2005 او 2010
2- انشئ ملف ورد وغير اسمه الى spy.doc و ضعه في المسار التالي :
C:\Users\SPYMAN\bin\Debug
وانت غير المسار حسب مكان مشروعك
3- اضف الى المشروع صندوق النص الغني rich text box
4- اضف كوماند ( زر امر ) وضع فيه هذا الكود :
RichTextBox1.LoadFile((Application.StartupPath & "\spy.doc"))
لو تلاحظ الكود زين رح تشوف الدالة path واضحة واستخدمناها لان ملف الورد في نفس المجلد للبرنامج اما اذا كان ملف الورد بغير مسار فهذا بحث اخر
5- الان شغل البرنامج واضغط على زر الامر ورح تلاحظ ملف الورد ينفتح بداخل صندوق النص الغني ...
للعلم استخدمنا صندوق النص الغني لانه يدعم التنسيقات الموجودة بالورد وكذلك الصور وغيرها , بينما text box العادي لا يدعم هذا الشيء
--------------------------------------------
اذا اردت ان يكون برنامج اكثر نظام وجمالية لا تستخدم زر امر , لان زر الامر يأخذ مكان من البرنامج وشكله مو نظامي
لذلك افضل ان تستخدم كومبو بوكس ( لانه عبارة عن قائمة منسدلة )
اذا استخدمت الكومبو بوكس يكون الكود هيج ..
اول شيء ضع هذا الكود بحدث تحميل الفورم
كود PHP:
ComboBox1.Items.Add("هنا يكون اسم الموضوع ")
ComboBox1.Items.Add(" هنا يكون اسم الموضوع ")
ComboBox1.Items.Add("هنا يكون اسم الموضوع ")
هذا الكود اضافة البيانات للكومبو بوكس
----------------------------------------
وضع هذا الكود في الكومبوبوكس :
كود PHP:
If ComboBox1.SelectedIndex = 0 Then
doc.RichTextBox1.LoadFile((Application.StartupPath & "\spy"))
ElseIf ComboBox1.SelectedIndex = 1 Then
RichTextBox1.LoadFile((Application.StartupPath & "\spy2.doc"))
ElseIf ComboBox1.SelectedIndex = 2 Then
RichTextBox1.LoadFile((Application.StartupPath & "\spy3.doc"))
End If
وسلامتكم ....
لتحميل المشروع من المرفقات ....
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة anjo0o
