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

فصل الأحرف

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

السلام عليكم

أخواني لدي حقل أكتب فية حروف اللوحة السيارة

أريد أن أكتب الحروف مثلاً

أكتب "ل" فيقوم البرنامج بوضع مسافة بعد "ل"

أكتب "ب" فيقوم البرنامج بوضع مسافة بعد "ب"

أكتب "س" فيقوم البرنامج بوضع مسافة بعد "س"

فيصبح textbox كالتالي

"ل ب س"

تقبلو تحياتي

تم تعديل هذه المشاركة بواسطة memoon في 2 أكتوبر 2009 في 09:58

من مواضعي

برنامج يتصل بقواعد بيانات MYSQL

طريقة إرسال البيانات من البرنامج إلى الوورد

قاطعوا المنتجات الدنماركية والهولندية لنصرة رسول الله والإسلام

lom024p4owxcwq2.gif

للمراسلة عبر الماسنجر :

#2

السلام عليكم...

جرب هذا الكود في الحدث KeyPress لمربع النص:

  1.  
  2. Private Sub Text1_KeyPress(KeyAscii As Integer)
  3.     Dim NewChar As String
  4.     Dim OldText As String
  5.  
  6.     If KeyAscii > 32 Then
  7.         NewChar = Chr(KeyAscii)
  8.         KeyAscii = 0
  9.         OldText = Trim$(Text1.Text)
  10.         Text1.Text = Trim$(OldText & " " & NewChar)
  11.         Text1.SelStart = Len(Text1.Text)
  12.     End If
  13. End Sub
  14.  

نرجو الاستفادة و السلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#3
        
        

      
جزيت خيراً هذا كان المطلوب
بارك الله فيك

      
      

      
من مواضعي 
برنامج يتصل بقواعد بيانات MYSQL 
طريقة إرسال البيانات من البرنامج إلى الوورد
قاطعوا المنتجات الدنماركية والهولندية لنصرة رسول الله والإسلام
lom024p4owxcwq2.gif
للمراسلة عبر الماسنجر :

    

  

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