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

[ تمت الإجابة ]كيف أكتب جملة من الكود في أكثر من سطر ، وكيف أضيف فراغا للنص؟؟

بدأه maajed555 في 29 يناير 2009 · 3 رد · 525 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي جملة طويلة من كود وأريد أن أكتبه في أكثر من سطر على أجزاء؟؟

كيف أنقل جزء من النص إلى سطر جديد بالكود البرمجي؟؟

كيف أضيف للنص المعروض فراغ بين كلمتين أو بين حرفين؟؟

ولكم جزيل الشكر والتقدير

#2

هل تقصد كتابة أمر برمجيا على أكثر من سطر ؟؟


TMPStr = "Word Word Word Word Word Word Word " & _
"Word Word Word Word Word Word Word " & _
"Word Word Word Word Word Word Word "
MsgBox TMPStr
	Dim TMPStr As String

وإذا أردت ملأ متغير نصي مثلا بنص معلوم يتوسطه قيمة غير معلومه ..


TMPStr = "تاريخ اليوم : " & Date & " ميلادي"
MsgBox TMPStr
	Dim TMPStr As String

وإذا أردت مثلا إضافة سطر جديد بين نص معلوم .. فأمامك 3 طرق


TMPStr = "السطر الأول" & vbNewLine & "السطر الثاني"
MsgBox TMPStr
	Dim TMPStr As String


TMPStr = "السطر الأول" & vbCrLf & "السطر الثاني"
MsgBox TMPStr
	Dim TMPStr As String


TMPStr = "السطر الأول" & Chr(13) & "السطر الثاني"
MsgBox TMPStr
	Dim TMPStr As String

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#3
اقتباس
عندي جملة طويلة من كود وأريد أن أكتبه في أكثر من سطر على أجزاء؟؟

هذا مثال:

  1.  
  2. Private Sub MyLongSub(A As Integer, B As Integer, _
  3.     C As Integer)
  4.  
  5. End Sub
  6.  
  7.  
إذاً عندما تريد الانتقال إلى السطر التالي فإنك تضغط Space ثم _ ، ثم تنتقل وتكمل.
اقتباس
كيف أنقل جزء من النص إلى سطر جديد بالكود البرمجي؟؟
كالتالي:
  1.  
  2. Text1.Text = Text1.Text + vbNewLine
  3.  
  4.  
أو:
  1.  
  2. Text1.Text = Text1.Text + Chr(13)
  3.  
  4.  
أو:
  1.  
  2. Text1.Text = Text1.Text + vbCrLf
  3.  
  4.  
وغيرها. طبعاً لا تنس ضبط خاصية MultiLine للـText1 إلى True .
اقتباس
كيف أضيف للنص المعروض فراغ بين كلمتين أو بين حرفين؟؟
هكذا مثلاً:
  1.  
  2. Text1.Text = "Hello" + space(1) + "World"
  3.  
  4.  

وفقك الله
------------------------------
عفواً أخ mrx_Ta7ady لم يكن ردك موجوداً عندما رددت. :)

      
تم تعديل هذه المشاركة بواسطة Abboodd في 29 يناير 2009 في 16:44

      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#4
        
        

      
الأخوين الكريمين ....
بارك الله فيكما  ووفقكما لكل خير ...
أسأل الله أن يجزيكما خير الجزاء ، وأن يوفقكما في الدنيا والآخرة ويرفع قدركما وينفع بكما الإسلام والمسلمين ....
شكرا لكما

      
تم تعديل هذه المشاركة بواسطة maajed555 في 29 يناير 2009 في 16:44

      

      
    

  

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…