تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برجاء المساعدة بكود تعدد الصفحات
#1
بسم الله الرحمن الرحيم

لدي Textbox3 و Textbox2 و Textbox1  أريد أن يتم طباعة كل نص في صفحة على حدى في نفس المكان، فما الكود بارك الله فيكم ويسر لكم أعمالكم
للعلم أنا حاولت وللأسف الصفحة الثانية تأتي فارغة ويتم إضافة الصناديق النصية الثلاثة فوق بعضها في الصفحة الأولى

هذا مثال للكود :
كود :
Dim Fontsize As New System.Drawing.Font("Calibri (Body)", 12.03)
     

e.Graphics.DrawString(TextBox5.Text, Fontsize, Brushes.Black, 5, 11)
e.Graphics.DrawString(TextBox8.Text, Fontsize, Brushes.Black, 5, 11)
e.Graphics.DrawString(TextBox11.Text, Fontsize, Brushes.Black, 5, 11)


الملفات المرفقة صورة/صور
   
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
لا حول ولا قوة إلا بالله العلي العظيم
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة: ابراهيم ايبو
#3
السلام عليكم و رحمة الله و بركاته

قم بتعريف متغير بالكلاس و ليكن pn كمتغير رقمي صحيح

كود :
Dim pn As Integer = 1

ثم ضع الكود الخاص بك بالشروط التالية

كود :
Dim Fontsize As New System.Drawing.Font("Calibri (Body)", 12.03)

       If pn = 1 Then
           e.Graphics.DrawString(TextBox5.Text, Fontsize, Brushes.Black, 5, 11)
           pn = 2
           e.HasMorePages = True
       ElseIf pn = 2 Then
           e.Graphics.DrawString(TextBox8.Text, Fontsize, Brushes.Black, 5, 11)
           pn = 3
           e.HasMorePages = True
       ElseIf pn = 3 Then
           e.Graphics.DrawString(TextBox11.Text, Fontsize, Brushes.Black, 5, 11)
           e.HasMorePages = False
       End If
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فني للمحترفين..أرجو المساعدة alziny1 4 214 11-10-21, 12:16 AM
آخر رد: alziny1
Exclamation استفسار بخصوص مشروع عمل ختمة قرآنية بتوزيع الصفحات (لأصحاب الصدقات الجارية) elsayedhasan 10 789 11-09-21, 07:01 PM
آخر رد: dalas
  مشكلة كبيرة ارجو المساعدة خالد20 3 520 22-06-21, 04:54 PM
آخر رد: خالد20
  طلب المساعدة لحل مشكلة هذه الرسالة System Argument Exception abutalal2020 1 318 18-06-21, 10:42 AM
آخر رد: alfaiz678
  تعدد المستخدمين aldery 0 257 12-06-21, 03:51 PM
آخر رد: aldery
Lightbulb ارجوا المساعدة في طباعة الكاشير بدون إظهار التقرير abo.alaa315 6 790 02-05-21, 05:56 PM
آخر رد: alfaiz678
  ارجو المساعدة في عرض البيانات على التاتا جرد فيو moahmed.abdelmohsen 1 573 15-03-21, 09:38 PM
آخر رد: moahmed.abdelmohsen
  المساعدة في انشاء شريط تحميل progress bar MustafaShaker 1 775 08-03-21, 04:14 PM
آخر رد: alsouf
  المساعدة - بكود زر البحث وخانة رقم التسجيل crazykinko 0 400 18-01-21, 04:52 PM
آخر رد: crazykinko
Lightbulb [VB.NET] أرجو المساعدة اخواني nssow 1 427 12-01-21, 10:23 PM
آخر رد: moosa_alabri

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


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