+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه (/showthread.php?tid=4836)
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - اسلام الكبابى - 02-10-12
[COLOR="#000000"]كيف لى أن أتحكم فى عرض الTEXT أو ال Label على قدر طول الكلام المكتوب فيه؟
كمايحدث مثلآ فى الACCESS عند الضغط فى أى جدول على (عرض العمود) ثم اختيار (الاحتواء أفضل)
فهل من كود أو أى طريقة لمثل ذلك تحكم لى عرض الTEXT أو ال Label على قدر طول الكلام المكتوب فيه؟
ولكم ألف شكر [/COLOR]
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - السندبااد - 02-10-12
[COLOR="#0000FF"]السلام عليكم
من خصائص Label اجعل الخاصية Autosize تساوي True[/COLOR]
من خصائص Label اجعل الخاصية Autosize تساوي True[/COLOR]
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - AGASHE - 02-10-12
جرب هذا الكود
1-ضع واحد تكست بوكس
2-تايمر و اجعل interval=1
ثم ضع هذا الكود في التايمر
Dim a As Integer
a = Len(Text1.Text)
Text1.Width = a * 50
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - اسلام الكبابى - 02-10-12
السندبااد كتب :[color="#0000ff"]السلام عليكم
من خصائص label اجعل الخاصية autosize تساوي true[/color]
بارك الله فيك
وماذا عن الtext
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - السندبااد - 02-10-12
اسلام الكبابى كتب :بارك الله فيك
وماذا عن الtext
[COLOR="#0000FF"]جرب طريقة الأخ AGASHE
أو من خصائص Text فعّل خيار MultiLine
وكذلك اجعل خيار ScrollBars يساوي Both[/COLOR]
أو من خصائص Text فعّل خيار MultiLine
وكذلك اجعل خيار ScrollBars يساوي Both[/COLOR]
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - اسلام الكبابى - 02-10-12
[COLOR="#000000"]قد عملت مثل هذا الكود من قبل
ولم يفلح هذا الكود بسبب أن أحرف الكتابة ليست كلها بعرض ثابت
وجرب الكود بنفسك مع text مكتوب بها مثلا عشرة أحرف
مرة كذلك"اااااااااا"
ومرةهكذا"كككككككككك"[/COLOR]
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - ناجي إبراهيم - 02-10-12
السلام عليكم...
* ضع على الـ 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نرجو الاستفادة و السلام.
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - السندبااد - 02-10-12
[COLOR="#0000FF"]وعليكم السلام ورحمة الله وبركاته
أستاذنا الحبيب ناجي أنت دائماً مبدع
زادك الله من علمه وفضله
[/COLOR]
عرض الTEXT أو ال Label حسب طول الكلام المكتوب فيه - عمر الدعيس - 12-10-12
سلمت يداك اخ ناجي على الكود الاكثر من رائع:d وكمان الاخ اسلام على هذا السؤال