تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ضغط حجم النص
#11
شكراً أخي العزيز nmst70
لكن للأسف لم يكن هذا ما أردته وإنما العكس تماماً أريد ضغط حجم النص ليتناسب مع حجم مربع النص وليس العكس

جزاك الله خيراً على أية حال
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}
تم الشكر بواسطة:
#12
السلام عليكم ورحمة الله وبركاته

تفضل أخي هذا الكود في حال كان النص سطرا واحدا

كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.PreferredSize.Width > TextBox1.Width Then
            Dim FontSize As Single = TextBox1.Font.Size
            Dim NewWidth As Integer = 0
            Do
                With TextBox1

                    FontSize -= 0.001F
                    NewWidth = TextRenderer.MeasureText(.Text, New Font(.Font.Name, FontSize, Font.Style)).Width
                    If NewWidth <= .Width Then
                        .Font = New Font(.Font.Name, FontSize, Font.Style)
                        Exit Do
                    End If

                End With

            Loop

        End If
    End Sub

وعليه فقِس في الحالة الثانية...

بالتوفيق
الرد }}}
تم الشكر بواسطة: abuzzouz
#13
المشكلة هنا ليست في عمل Scale للفونت المشكلة ان الفونت يصغر كلما قام المستخدم ب الكتابة ف التكست بوكس.

ما أريد أن أقوله هنا هو أننا نقوم ب حل مشكلة و نصنع مشكلة أخري ......

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

أعتقد و الله أعلم إن الحل الأفضل هو أن نترك المستخدم يكتب ما يريده ب الفونت العادي....ثم نحاول أن نكتشف هل انتهي من الكتابة أم لا ثم بعد ذلك نقوم ب تغيير حجم الفونت ليتناسب To Fit في التكست بوكس لذلك و كما قلت سابقا نحن في حاجة الي صناعة كونترول جديد يتم توريثه من التكست بوكس و نغير في خصائصه عن طريق رسم التكست في الحدث Paint ليتناسب مع ما تريد

لكن انا عندي سؤال ما هدفك الأصلي من تحجيم الفونت في التكست بوكس ..ربما لو قمت بتوضيح هدفك من ذلك قد نجد حلا اسهل ليتناسب مع ما تريده
الرد }}}
تم الشكر بواسطة: abuzzouz
#14
سأخبرك بذلك أخي silverlight
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}
تم الشكر بواسطة:
#15
السلام عليكم

أخواني الأعزاء أخيراً وبفضل الله تعالى وجدت الحل لضغط حجم النص تلقائياً في مربع النص وذلك بتعديل حجم الخط

كود :
Dim fontSize As Single = 12.0F
        Dim measuredWidth As Single
        Dim g As Graphics = Me.CreateGraphics
        Do
            Using font As New Font("Tahoma", fontSize, FontStyle.Bold)
                measuredWidth = g.MeasureString(TextBox1.Text, font).Width
            End Using
            If (measuredWidth > TextBox1.Width) Then
                fontSize = fontSize - 0.1
            End If
        Loop While (measuredWidth > TextBox1.Width)

        Using font As New Font("Tahoma", fontSize, FontStyle.Bold)
            TextBox1.Font = New Font("Tahoma", fontSize, FontStyle.Bold)
        End Using



تقبلوا جميعاً تحياتي
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed
  دالة ادخال ارقام فقط في مربع النص atefkhalf2004 7 809 20-08-23, 09:04 AM
آخر رد: atefkhalf2004
  طريقة حذف حرف زيادة من مربع النص علاء الكبابي 2 553 19-06-23, 05:08 PM
آخر رد: Taha Okla
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,884 03-06-23, 04:56 AM
آخر رد: سعود
Rainbow [كود] النص المكتوب يكون على شكل وميض او تغير في الالوان محمد مسافر 1 460 13-05-23, 01:30 AM
آخر رد: عبدالله الدوسري
  [VB.NET] كود نسخ النص MOHAMMED ALZWI 2 496 13-03-23, 11:24 AM
آخر رد: MOHAMMED ALZWI
  اريد مساعدة في ازالة جزء من النص لان لا يوجد لدي خبرة كافية للتعامل مع دوال النصوص Meroo1809 2 521 05-01-23, 07:38 PM
آخر رد: Meroo1809
  مسح جميع أدوات النص دفعة واحدة sads 8 3,663 29-10-22, 04:04 PM
آخر رد: خالد العصاوي
  تحويل النص تلقائيا للعربية او الانجليزية nooralcown 6 5,771 19-08-22, 06:29 AM
آخر رد: esawy1

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


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