السلام عليكم
كيف اسويscroll لل label ???
رجاء من يعرف الطريقة يدلني عليها
Scroll للlabel
ولماذا الـ Label ?? هل الـ TextBox غير مناسب ؟؟ ولماذا ؟؟
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
ال textbox لا أدري لماذا لا استطيع استخدام ال chr() فيها ...خاصة وان الكتبة بالعربي
فإن استطعت استخدام ال chr() ستنحل المشكلة
الدالة تمام وكل حاجه سليمه .. او انا مش فاهم .. طيب ياريت مثال يثبت فشل إستخدام الدالة Chr
وياريت تجربي الكود ده الأول
Text1.Text = Chr(212) & Chr(219) & Chr(199) & Chr(225) & Chr(191)
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
انا اريد ان استخدم chr(13 ) والتي تعني enter اي تنزل لسطر جديد
هل استطيع ان اجعل ال ritchtextbox يتجه لليمين بمجرد فتح الفورم باستخدام sendkeys "^r"???
حاولت ولم استطع ....!!!
اهااا .. قومي بتغير خاصية الـ MultiLine إلى True أولا لجعل الـ TextBox يقبل أكثر من سطر
ثم بعدها أكتبي ما تشائين فيه .. ولكن لابد وان تعلمي ان السطر الجديد يعني vbNewLine
أي إذا أردتي كتابة "الفريق العربي للبرمجة" على 3 سطور .. ستكون بهذه الطريقة
Text1.Text = "الفريق" & vbNewLine & "العربي" & vbNewLine & "للبرمجة"
وأعتقد بكده إن شاء الله تكون إتحلت المشكلة بسهولة وبدون ScrollBar ولا حتى Label ;)
وبالتوفيق إن شاء الله
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
شكرا جزيلا
انحلت المشكلة الله يجزاك خير ويوفقك
سؤال آخر اذا ممكن
هل أستطيع في الفيجزال بيسك 6 أن أحدد كلمة عن طريقة التظليل ويعرف الفيجوال ؟؟
كأن يكون عندي مجموعة كلمات في تكست واحد واحدد كلمة واحدو من بينها (بالتظليل) وأٌضغط على button مثلا وظيفته يبحث في الداتابيس عن هذه الكلمة.؟؟
تم تعديل هذه المشاركة بواسطة شهودة في 24 يناير 2009 في 19:10
بالفعل ممكن تظليل كلمة وممكن معرفة الكلمة المظظلة أيضا
لو إفترضنا أنا الـ Text1 به قيمة "الفريق العربي للبرمجة" .. وهدفنا تظليل كلمة "العربي"
X = InStr(1, Text1.Text, "العربي", vbTextCompare)
If X > 0 Then
Text1.SelStart = X - 1
Text1.SelLength = Len("العربي")
End If
Dim X As Long
وإذا اردنا ظهور رسالة بالنص المظلل :
MsgBox Text1.SelText
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
شكرا جزيلا لك أخي
ما أقصده بالنسبة للتظليل أن يقوم اليوزر بتظليل الكلمة وليس البرنامج اقصد اليوزر يقوم هو بتظليل الكلمة
هل هذا SelText يقصد ه التظليل
سؤال آخر ....لاأدري لمَ التكست بوكس يُظهر لون الخط بالرصاصي الفاتح رغم انني جربته على برنامج آخر ويظهر لون الخط أسود؟؟
هل هناك من سبب؟؟؟
نعم .. خاصية الـ SelText هي التي تحوي النص المظلل داخل الـ TextBox .. علما بأنها تكون فارغة في حالة اللا تظليل
وخاصية الـ ForeColor هي التي تحوي لون النص للـ TextBox .. كل النص وليس المظلل فقط
كما ان اللون يتحول باهتا عند تغيير خاصية الـ Enabled إلى False
وفي حالة رغبتك في أن يكون الـ Enabled قيمته False وأردتي إستخدام لون آخر غير اللون الباهت
قومي بوضع الـ TextBox وحده داخل أي Control من نوع PictureBox مثلا
وتغير خاصية الـ Enabled للـ PictureBox وحده دون تغير الخاصية نفسها للـ TextBox
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
الله يجزاك خير ويوفقك
ماقصرت