منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أضف أداةTextBox

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


ثم استخدم هذا الكود

(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 لقد اشتغل الكود كما أريد بارك الله فيك و جزاك الله خيراً

---

(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 مثل هذا الكود