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

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

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

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

يمكن تحريك النص بدون تحريك الأداة عن طريق استخدام بعض دوال الـ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

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

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

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

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

اخوي محمد هذا كود تحريك النص داخل اليبل...الي عليك تعملة هو عمل 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).

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

السلام عليكم

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

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

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

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

ضع ليبل على الفورم ... ومعه تايمر خاصية 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

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

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

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

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

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

بدون توقف

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

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

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

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

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

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

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

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

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

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

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

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