الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اخوان ممكن مساعده حول كود تحريك Text

بدأه ahmed husien في 13 يوليو 2009 · 7 رد · 2,177 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

شباب محتاج كود تحريك الكلمات داخل text

وياريت لو برنامج مع الدوارة كاملة

الحقيقه حصلت برنامج من احد الاخوان في المنتدى

لكن الكلمات لاتتحرك من اليسار نحو اليمين مع ترك فراغ يفصل بين كل مجموعة الكلمات المعروضة

ثانيا

محتاج كيف اجعل الكوماند مرادف له زر enter

في لوحة المفاتيح

اي بدون اختيار الامر بالماوس

asc وياريت

الكودات الخاصة بلوحة المفاتيح

#2

السلام عليكــم ورحمـة الله وبركاتــه ،،

بالنسبة للسؤال الأول

لماذا لا تقوم بتحريك الليبل أو مربع النص بدلا من تحريك الكلام بداخله

يمكن تحريك النص بدون تحريك الأداة عن طريق استخدام بعض دوال الـAPI الخاصة بالرسم لكنها لن تعمل مع مربع النص

بالنسبة للسؤال الثانى

لجعل الزر افتراضى أى يتم استدعاء الحدث Click الخاص به عند استخدام Enter قم بتغيير خاصية Default الخاصة بهذا الزر إلى True

وإذا أردت أن يتم استدعاء الكود عند الضغط على Escape غير الخاصية Cancel إلى True

بالنسبة للسؤال الثالث

هذا الكود يقوم بطباعة الأكواد داخل ملف C:\Ascii_Codes.txt

Private Sub Command1_Click()
Dim fn As Integer
fn = FreeFile
Open "C:\ascii_codes.txt" For Output As #fn
Dim i As Integer
For i = 0 To 255
Print #fn, Chr(i) & vbTab & " = " & i
Next
Close #fn
End Sub

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

اخي العزيز كل الشكر

للمعلومات القيمه لكن بالحقيقه لا اعرف لللاسف عن تحريك الاداة اللبيل

ممكن معلومات اكثر حول الموضوع

#4

السلام عليكــم ورحمـة الله وبركاتــه

اخوي محمد هذا كود تحريك النص داخل اليبل...الي عليك تعملة هو عمل timer و ليبل على الفورم.

هذا الكود تضعة في الفورم لود:

() Private Sub Form_Load

Label1.Left = 0

End SuB

وهذا الكود تضعة في التايمر:

()Private Sub Timer1_Timer

Label1.Left = Label1.Left + 10

If Label1.Left = 1000 Then

Timer1 = False

End If

End Sub

طبعا لازم تضبط التايمر على اي عدد يكون اقل من الف مثل 100.على حسب رغيتك في عدد دوران النص.

وضبط التايمر طبعا معروف عن طريق الخاصية (interval).

ان الله تكون المعلومة وصلت .. وشكرا

#5

السلام عليكم

اخي العزيز شكرا للك

اكيد جدا واظحة الفكرة

ساحول تجربتها وموافاتك بالنتائج

#6

جرب هذا الكود ..

ضع ليبل على الفورم ... ومعه تايمر خاصية interval فيه 100 او غيرها على السرعه التي تريد ..

وانسخ هذا الكود .. مباشرة ..

Private Sub Form_Load()
Me.Label1.Top = 0
End Sub

Private Sub Timer1_Timer()
a = Me.Height
b = 200
If Me.Label1.Top < a Then 'Me.Height Then
Me.Label1.Top = Me.Label1.Top + b
Exit Sub
End If
For m = 1 To (Int(a / b) + 1)
Me.Label1.Top = Me.Label1.Top - 200
For x = 1 To 1000000
Next
Next
End Sub

تحياتي العطرة ..

يَارَبُ إِن ضَاقَت قُلُوُب الْنَّاسٍ عَنْ مّافِي .. مِنْ خَيْرٍٍ فَعَفْوكَ لَا يَضِيْقْ ..

#7

السلام عليكم اخي العزيز

جربت هذا الكود الخاص بيك

لكن حاولت التعديل عليه في ما يخص تحريك الليبل من اليسار اليمين

مع تكرار العملية

بدون توقف

لكن لم استطيع التوصل لتحريكه باستمراردون توقف

#8

في ما يخص الكود

الخاص بالاخ سنان جزاه الله خير الجزاء

ساحاول تجربته

...................................

الاخوة الاعزاء شكرا لجهودكم القيمه في تحظير الكودات

الحقيقه الي محتاجه هو برنامج احد مكوناته هو شريط متحرك شريط اعلانات

يلف من اليمين نحو اليساروباستمرار وبدون توقف

اضافة لاداة يستطيع المستخدم من خلالها ادخال ملاحظاته وظهورها في الشريط المتحرك

اقصد بكلمة اداة طبعا text على سبيل المثال وهذي مو مشكلة استطيع عملها

لكن المشكله هي في اظهار الكلمات باستمرار وبصورة صحيحة

اي بالظبط مثل الشريط الي فوق الصفحه هذه

مواضيع مشابهة