منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - برجاء المساعدة بكود تعدد الصفحات

بسم الله الرحمن الرحيم

لدي 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)

لا حول ولا قوة إلا بالله العلي العظيم

السلام عليكم و رحمة الله و بركاته

قم بتعريف متغير بالكلاس و ليكن 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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Hazem1

Hazem1

WaeLx