[COLOR="#000000"]كيف لى أن أتحكم فى عرض الTEXT أو ال Label على قدر طول الكلام المكتوب فيه؟
كمايحدث مثلآ فى الACCESS عند الضغط فى أى جدول على (عرض العمود) ثم اختيار (الاحتواء أفضل)
فهل من كود أو أى طريقة لمثل ذلك تحكم لى عرض الTEXT أو ال Label على قدر طول الكلام المكتوب فيه؟
ولكم ألف شكر [/COLOR]
[COLOR="#0000FF"]السلام عليكم
من خصائص Label اجعل الخاصية Autosize تساوي True[/COLOR]
جرب هذا الكود
1-ضع واحد تكست بوكس
2-تايمر و اجعل interval=1
ثم ضع هذا الكود في التايمر
Dim a As Integer
a = Len(Text1.Text)
Text1.Width = a * 50
السندبااد كتب :[color="#0000ff"]السلام عليكم
من خصائص label اجعل الخاصية autosize تساوي true[/color]
بارك الله فيك
وماذا عن الtext
اسلام الكبابى كتب :بارك الله فيك
وماذا عن الtext
[COLOR="#0000FF"]جرب طريقة الأخ AGASHE
أو من خصائص Text فعّل خيار MultiLine
وكذلك اجعل خيار ScrollBars يساوي Both[/COLOR]
[COLOR="#000000"]قد عملت مثل هذا الكود من قبل
ولم يفلح هذا الكود بسبب أن أحرف الكتابة ليست كلها بعرض ثابت
وجرب الكود بنفسك مع text مكتوب بها مثلا عشرة أحرف
مرة كذلك"اااااااااا"
ومرةهكذا"كككككككككك"[/COLOR]
السلام عليكم...
* ضع على الـ Form مكون PictureBox و اضبط الخاصية Visible له على False.
* اكتب الكود التالي:
كود :
Const MIN_TXT_WIDTH = 16 ' Pixels
Private Sub Form_Load()
Picture1.ScaleMode = Me.ScaleMode
Set Picture1.Font = Text1.Font
End Sub
Private Sub Text1_Change()
Dim TxtWidth As Single
If Text1.Text = "" Then
Text1.Width = Me.ScaleX(MIN_TXT_WIDTH, vbPixels, Me.ScaleMode)
Else
TxtWidth = Picture1.TextWidth(Text1.Text) + Me.ScaleX(6, vbPixels, Me.ScaleMode)
If TxtWidth < Me.ScaleX(MIN_TXT_WIDTH, vbPixels, Me.ScaleMode) Then
Text1.Width = Me.ScaleX(MIN_TXT_WIDTH, vbPixels, Me.ScaleMode)
Else
Text1.Width = TxtWidth
End If
End If
End Sub
نرجو الاستفادة و السلام.
[COLOR="#0000FF"]وعليكم السلام ورحمة الله وبركاته
أستاذنا الحبيب ناجي أنت دائماً مبدع
زادك الله من علمه وفضله
[/COLOR]
سلمت يداك اخ ناجي على الكود الاكثر من رائع:d وكمان الاخ اسلام على هذا السؤال