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

الكتابة العمودية

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

السلام عليكم أخوتى الكرام

اخوتى

كيف يمكننى جعل نص في ليبل بشكل عمودى

جزاكم الله خيرا

#2

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

اختي جربي الاجراء التالي


Sub VerticalText(ByVal lbl As Label)
Dim list As New List(Of Char)
For Each c As Char In lbl.Text
list.Add(c)
Next
lbl.Text = String.Join(vbCrLf, list)
End Sub
ومن ثم يمكنك استدعاه بالصوره التاليه
VerticalText(Label1)

      
      

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

    

  

    
    

      
#3
        
        

      
اخى الكريم
هناك خطا في في الجملة التالية والخطاء موجود في list
  (lbl.Text = String.Join(vbCrLf, list
جزاك الله خيرا

      
      

      
    

  

    
    

      
#4
        
        

      
السلام عليكم ورحمه الله وبركاته
اختي يمكن نسيتي اضافة
Imporst System.Collections.Generics
جربي المرفق ..
  
VerticalText.zip

      
      

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

    

  

    
    

      
#5
        
        

      
جربى أيضا هذا الكود
الكود يقوم بطباعة كلمة ArabTeam عموديا فى أداة Label
Public Class Form1

    Private Sub Label1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
        Dim str As String = "ArabTeam"
        Dim fmt As New StringFormat
        fmt.FormatFlags = StringFormatFlags.DirectionVertical
        Dim sz As SizeF = e.Graphics.MeasureString(str, Me.Font, Me.Width, fmt)
        Me.Label1.Size = sz.ToSize
        e.Graphics.DrawString(str, Me.Font, Brushes.Black, 0, 0, fmt)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Font = New Font(Me.Font, FontStyle.Bold)
        Me.Label1.AutoSize = False
    End Sub
End Class

      
      

      
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

    

  

    
    

      
#6
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي قد خطرت ببالي هالفكرة بس حسب مافهمت من السؤال وما هو مذكور كيفية جعل النص عمودي وليس رسم النص؟!! والامر يرجع للسائل!!

      
      
1

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

    

  

    
    

      
#7
        
        

      
جزاكما الله خيرا
أخى الكريم GHOST2010 
ممتاز الكود
لكن ليس هذا مااردت
جزاك الله خيرا
أخى الكريم VB Helper 
مازال هناك خطا في في الجملة التالية والخطاء موجود في list
(lbl.Text = String.Join(vbCrLf, list
أنا اعمل على فيجول 2005
* اخي قد خطرت ببالي هالفكرة بس حسب مافهمت من 
السؤال وما هو مذكور كيفية جعل النص عمودي وليس رسم
 النص؟!! والامر يرجع للسائل!! 
* فعلا هذا ماريد بحيث يمكننى من التحكم في مكان النص
 (الذى يكون مكتوب في ليبل والكود لاستدارة الليبل بشكل عمودى )
جزاك الله خيرا

      
      

      
    

  

    
    

      
#8
        
        

      
السلام عليكم ورحمه الله وبركاته
اختي لم تجيبي على سؤالي سابقا, هل عملتي استيراد لـ System.Collections.Generics؟!!

      
      
1

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

    

  

    
    

      
#9
        
        

      
اخى الكريم 
 نعم عملت استيراد لـ System.Collections.Generics؟
لكن المشكلة كما قلت سابقا
هناك خطا في في الجملة التالية والخطاء موجود في list
(lbl.Text = String.Join(vbCrLf, list
جزاك الله خيرا
كذلك المرفق عندما فتحته وجدت به نفس المشكلة
هل لانى اعمل على فيجول 2005 ؟

      
تم تعديل هذه المشاركة بواسطة & الأمل & في 23 يونيو 2011 في 21:20

      

      
    

  

    
    

      
#10
        
        

      
السلام عليكم ورحمه الله وبركاته
اختي مفهوم ال Generics اصلا اول ما ظهر في الاصدار 2.0؟!! ممكن ترفقي مشروعك؟

      
      
1

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

    

  

    
    

      
#11
        
        

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

 Sub VerticalText(ByVal lbl As Label)
    	Dim list(lbl.Text.Length - 1) As String
    	For i As Integer = 0 To list.Length - 1
        	list(i) = lbl.Text(i)
    	Next
    	lbl.Text = String.Join(vbCrLf, list)
	End Sub
 

      
      
1

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

    

  

    
    

      
#12
        
        

      
اخى الكريم 
هذا التطبيق
مثال.rar

      
      

      
    

  

    
    

      
#13
        
        

      
السلام عليكم ورحمه الله وبركاته
اختي خلاص ألغي المثالين السابقين لأني وكما رأيت في المرفق انك تريد الكتابة تظل متصله وعمودي لذا فحل الأخ GHOST2010 هو الانسب(اقصد الرسم) ولكن لم يرسم الخط بالصوره المطلوبه فقمت بعمل مثال يطبق فكرتك
مثال.zip

      
تم تعديل هذه المشاركة بواسطة VB Helper في 24 يونيو 2011 في 16:44

      
1

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

    

  

    
    

      
#14
        
        

      
جزاك الله خيرا اخى الكريم 
ونفع الله بكم

      
      

      
    

  

    
    

      
#15
        
        

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

      
      

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

    

  

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