الى خبراء الفيجيول بيسك

[the digital man]

السلام عليكم

شبااب انا طالب المساعدة واتوقع ما حتردوني الى وانا مبسوط

انا شبااب مبتدأ بالفيجيول بيسك انشاء الله اتكونو سبب احترافي

المهم خلينا نخش بالموضوع ههههه:D :D

شباااب انا بدي شفرة ادخلها بمكان الكومن(command) يطلعلي كتابة على اليبل (label)
http://members.lycos.co.uk/arabdigital/vbbbv.gif
يعني شبااب اذا بدي اذا حد ضغط الكومن (command) يطلعله عبارة ترحيب باليبل(label)
بكون مكتوب على الـcommand "اضغط هنا " عند الضغط يطلعلي بالـlabel اهلا وسهلا بك

انشاء الله تكونو افهمتو قصدي

مشكووورين

[DotNetExpert]

بوجهة تصميم المشروع اضغظ على الزر المطلوب مرتين بالفارة, بينفتح مجال الكود.
مكان وجود المؤشر بتكتب على فرض اسم اللوحة ( Label1) السطر التالي.

Label1.Text ="My Text" 'replace my text with the text you need

[the digital man]

اخي مشكووور بس ممكن تعطيني الكود من الاول لعند end sub

اذا ممكن

تشكرات

[Xacker]

اول شي اكيد Command1_onmousedown
المهم بعدها فورا
Label1.Text="ur words"
End Sub

[ab2222]

للأسف طريقة الأخوان الاثنين غلط
حيث أن أداة Label لا تتعامل مع خاصية Text
فالأداة المستقبلة في Label هي Caption
لذلك إليك الطريقة الصحيحة

اضغط مرتين على زر كوماند لتظهر نافذة البرمجة وبها مكتوب هكذا

Private Sub Command1_Click()

End Sub

الآن بين السطرين السابقين ضع هذا السطر
label1.Caption = "مشكوووور والله AB2222 على المساعدة"
غير بين القوسين جملة مشكوووور والله AB2222 على المساعدة إلى النص الذي تريده

ليصبح الشكل النهائي للكود كالتالي


Private Sub Command1_Click()
label1.Caption = "مشكوووور والله AB2222 على المساعدة"
End Sub

[the digital man]

واشكرك اخ ab2222



افضل حل كان منك مع احترامي

بس كمان الاكواد الي من الخوة السابقين ادت تقريبا نفس الغرض

مشكولارين