منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تكست بوكس (/showthread.php?tid=31820)

تكست بوكس - EMADSSS - 21-10-19

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

RE: تكست بوكس - محمد كريّم - 22-10-19

جرب هذا الكود
غير الرقم 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

RE: تكست بوكس - EMADSSS - 22-10-19

(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

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

RE: تكست بوكس - EMADSSS - 23-10-19

(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

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

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