تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عن التكست بوكس
#1
السلام عليكم و رحمة الله و بركاته

اسأل عن كيفية اظهار ارقام في موقع آخر عند ادخالها في التكست بوكس كما في الصورة المرفقة
وجزاكم الله خيرا


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
أضف أداةTextBox

ثم ضع Panel وضع بداخلها عدة أدوات Lable  مع ترتيب اماكنها حسب الحاجة


ثم استخدم هذا الكود
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
   Try
       Dim p As Control = Panel1
       For Each c As Control In p.Controls
           c.Text = ""
           c.AutoSize = False
           c.Size = New Size(13, 13)
       Next
       For i = 0 To Len(TextBox1.Text) - 1
           p.Controls(i).Text = TextBox1.Text(i)
       Next
   Catch ex As Exception
   End Try
End Sub
الرد
تم الشكر بواسطة: munimteer , elgokr , elgokr , Abou Eman , Abou Eman , ابراهيم ايبو
#3
(11-08-18, 02:32 AM)Null كتب : أضف أداةTextBox

ثم ضع Panel وضع بداخلها عدة أدوات Lable  مع ترتيب اماكنها حسب الحاجة


ثم استخدم هذا الكود
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
   Try
       Dim p As Control = Panel1
       For Each c As Control In p.Controls
           c.Text = ""
           c.AutoSize = False
           c.Size = New Size(13, 13)
       Next
       For i = 0 To Len(TextBox1.Text) - 1
           p.Controls(i).Text = TextBox1.Text(i)
       Next
   Catch ex As Exception
   End Try
End Sub
مشكور جداً Null لقد اشتغل الكود كما أريد بارك الله فيك و جزاك الله خيراً

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

بعد ان اشتغل الكود 
اردت ان امحى كلمة label1  من الخصائص من التكسيت فتختفي من الفورم
كيف اجعلها لاتختفي و بدون عنوان؟


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: Null , Null
#4
(11-08-18, 12:58 PM)munimteer كتب :
السلام عليكم و رحمة الله و بركاته

بعد ان اشتغل الكود 
اردت ان امحى كلمة label1  من الخصائص من التكسيت فتختفي من الفورم
كيف اجعلها لاتختفي و بدون عنوان؟

من الخاصية Text لكل Label اسمح المكتوب داخلها
وأيضا غير الخاصية AutoSize إلى False
ثم حدد حجم Label من الخاصية Size إلى 13;13 أو الحجم الذي تريده
مع حذف السطرين من الكود السابق c.AutoSize = False و(c.Size = New Size(13, 13 مثل هذا الكود
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
  Try
      Dim p As Control = Panel1
      For Each c As Control In p.Controls
          c.Text = ""
      Next
      For i = 0 To Len(TextBox1.Text) - 1
          p.Controls(i).Text = TextBox1.Text(i)
      Next
  Catch ex As Exception
  End Try
End Sub
الرد
تم الشكر بواسطة: Abou Eman , munimteer , elgokr
#5
مشكورر كثير NULL على الجهد الرائع
الرد
تم الشكر بواسطة: Null , Null , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] كود يقوم بتحميل الكومبو بوكس من موقع ويدخلها في الكومبو بوكس في البرنامج SnTnt 10 262 13-09-19, 02:23 AM
آخر رد: SnTnt
  عايز اعمل ProgressBar فى وضع مسج بوكس بالتزامن مع شئ على زهران 7 194 08-09-19, 08:41 PM
آخر رد: سعود
Thumbs Up [سؤال] كيف تجعل التكست بوكس يعرف أول حرف مكتوب أمجد وضاح 3 163 06-09-19, 03:44 AM
آخر رد: أمجد وضاح
  مشكلة في حفظ حقول من تكست بوكس علي قاعدة بيانات بواسطة داتاسيت Abdalazim19 20 627 02-09-19, 07:32 PM
آخر رد: Abdalazim19
  [سؤال] كيف احذف اول مسافة فقط في تيكست بوكس واجعلها في سطر جديد dametucorazon 6 166 02-09-19, 04:39 PM
آخر رد: dametucorazon
Exclamation [VB.NET] منع ادخال اكثر من مسافه بين الكلمات في التكست بوكس سميـر 9 263 22-08-19, 01:57 AM
آخر رد: ابراهيم ايبو
  [كود] اريد كود تغير لون مؤشر الكتابه في التكست بوكس اليوم السابع 1 113 20-08-19, 12:56 AM
آخر رد: اسامه الهرماوي
  [سؤال] اريد كود للتعامل مع الكومبو بوكس أمجد وضاح 3 181 17-08-19, 04:28 PM
آخر رد: أمجد وضاح
Sad [سؤال] مشكله فى التكست بوكس حسين ادريس 8 276 14-08-19, 03:43 AM
آخر رد: حسين ادريس
  [كود] طلب كود تحقق شرط واظهار مسج بوكس mac9 5 210 12-08-19, 01:44 AM
آخر رد: mac9

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم