الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طباعة نص بشكل عمودي

بدأه iamsad في 14 يونيو 2011 · 7 رد · 501 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

كيف أستطيع طباعة نص بشكل عمودي عن طريق printdocument ؟

يا أهل سوريا اعلنوها خلافة اسلامية لتكون الشام عقر دار المسلمين وخلاص ارض فلسطين

#2

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

اخي جرب الكود التالي


Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim direction As New StringFormat(StringFormatFlags.DirectionVertical)
e.Graphics.DrawString("Vertical Text", New Font("Arial", 20), Brushes.Blue, 10, 10, direction)
End Sub
 

      
      
1

      
.:: Wish to become better and better ::.

    

  

    
    

      
#3
        
        

      
وعليكم السلام
مشكور أخي جدا لكن ألا يمكن كتابة النص العمودي من الأسفل للأعلى ؟

      
      

      
يا أهل سوريا اعلنوها خلافة اسلامية لتكون الشام عقر دار المسلمين وخلاص ارض فلسطين 

    

  

    
    

      
#4
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي جرب الكود التالي قبل رسم النص
e.Graphics.RotateTransform(180)
 

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#5
        
        

      
وعليكم السلام
أخي لقد حاولت فهم طريقة عمل  e.Graphics.RotateTransform لكن دون جدوى. ما لاحظته أن النص يدور في شكل قطاع داخل دائرة ولكن لم أعرف كيف أستطيع ضبط النص وهذه محاولتي
 
 e.Graphics.TranslateTransform(360.0F, 360.0F)
        e.Graphics.RotateTransform(180)
        Dim direction As New StringFormat(StringFormatFlags.DirectionVertical)
        e.Graphics.DrawString("Vertical Text", New Font("Arial", 20), Brushes.Blue, 0, 0, direction)

      
      

      
يا أهل سوريا اعلنوها خلافة اسلامية لتكون الشام عقر دار المسلمين وخلاص ارض فلسطين 

    

  

    
    

      
#6
        
        

      
السلام عليكم ورحمه الله وبركاته
احي جرب الطريقة الاخرى على النحو التالي

	Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    	Dim direction As New StringFormat(StringFormatFlags.DirectionVertical)
    	Dim bmp As New Bitmap(50, 200)
    	Dim g As Graphics = Graphics.FromImage(bmp)
    	g.TextRenderingHint = TextRenderingHint.AntiAlias
    	g.Clear(Color.White)
    	g.DrawString("Vertical Text", New Font("Arial", 20), Brushes.Blue, 10, 10, direction)
    	bmp.RotateFlip(RotateFlipType.Rotate180FlipNone)
    	e.Graphics.DrawImage(bmp, 0, 0)
	End Sub
 

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#7
        
        

      
جزاك الله خيرا أجبت ووفيت.

      
      

      
يا أهل سوريا اعلنوها خلافة اسلامية لتكون الشام عقر دار المسلمين وخلاص ارض فلسطين 

    

  

    
    

      
#8
        
        

      
السلام عليكم ورحمه الله وبركاته
بالتوفيق اخي ..

      
      

      
.:: Wish to become better and better ::.

    

  

    
    
    
 مواضيع مشابهة