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

لو سمحتم كيف بقدر احعل التكست بوكس اثناء التشغيل للبرنامج يكبركلما ادخلت به اخرف اكثر ويصغر كلما قلت الاحرف اي يكون بحجم الكلمة التي بداخله فقط

جرب هذا الكود
غير الرقم 100 إلى ما يناسبك (عرض الأداة الإفتراضي)


المصدر : https://stackoverflow.com/a/8124085/3814729

(22-10-19, 01:54 AM)محمد كريّم كتب : [ -> ]جرب هذا الكود
غير الرقم 100 إلى ما يناسبك (عرض الأداة الإفتراضي)

كود :

   Const width As Integer = 100

   Private Sub textBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim font As Font = New Font(textBox1.Font.Name, textBox1.Font.Size)
       Dim s As Size = TextRenderer.MeasureText(textBox1.Text, font)

       If s.Width > width Then
           textBox1.Width = s.Width
       End If
   End Sub

المصدر : https://stackoverflow.com/a/8124085/3814729

اخي الكريم شكرا الك لكن وين لازم اضع هذا السطر   Const width As Integer = 100

---

(22-10-19, 07:01 PM)EMADSSS كتب : [ -> ]

(22-10-19, 01:54 AM)محمد كريّم كتب : [ -> ]جرب هذا الكود
غير الرقم 100 إلى ما يناسبك (عرض الأداة الإفتراضي)

كود :

   Const width As Integer = 100

   Private Sub textBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim font As Font = New Font(textBox1.Font.Name, textBox1.Font.Size)
       Dim s As Size = TextRenderer.MeasureText(textBox1.Text, font)

       If s.Width > width Then
           textBox1.Width = s.Width
       End If
   End Sub

المصدر : https://stackoverflow.com/a/8124085/3814729

اخي الكريم شكرا الك لكن وين لازم اضع هذا السطر   Const width As Integer = 100

اي اي اخي الكريم مشي الحال وكله تمام  وفقكم الله جميعا

(22-10-19, 07:01 PM)EMADSSS كتب : [ -> ]

(22-10-19, 01:54 AM)محمد كريّم كتب : [ -> ]جرب هذا الكود
غير الرقم 100 إلى ما يناسبك (عرض الأداة الإفتراضي)

كود :

   Const width As Integer = 100

   Private Sub textBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim font As Font = New Font(textBox1.Font.Name, textBox1.Font.Size)
       Dim s As Size = TextRenderer.MeasureText(textBox1.Text, font)

       If s.Width > width Then
           textBox1.Width = s.Width
       End If
   End Sub

المصدر : https://stackoverflow.com/a/8124085/3814729

اخي الكريم شكرا الك لكن وين لازم اضع هذا السطر   Const width As Integer = 100

---

(22-10-19, 07:01 PM)EMADSSS كتب : [ -> ]

(22-10-19, 01:54 AM)محمد كريّم كتب : [ -> ]جرب هذا الكود
غير الرقم 100 إلى ما يناسبك (عرض الأداة الإفتراضي)

كود :

   Const width As Integer = 100

   Private Sub textBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim font As Font = New Font(textBox1.Font.Name, textBox1.Font.Size)
       Dim s As Size = TextRenderer.MeasureText(textBox1.Text, font)

       If s.Width > width Then
           textBox1.Width = s.Width
       End If
   End Sub

المصدر : https://stackoverflow.com/a/8124085/3814729

اخي الكريم شكرا الك لكن وين لازم اضع هذا السطر   Const width As Integer = 100

اي اي اخي الكريم مشي الحال وكله تمام  وفقكم الله جميعا

اخي الكريم حسب الكود الذي ارسلته لي اصبح التكست بوكس ثابت من الجهة اليسرا ويكبر من الجهة اليمنه بقدر اجعل العكس اي ثابت من الجهة اليمنه ويكبر باتجاه اليسار وشكرا لك سلفا