24-01-17, 09:58 PM
24-01-17, 11:16 PM
في المرفقات ستجد مثالا مكتوب بنسخة الفيجوال استوديو 2015
سوف يعطيك فكرة عن كيفة بناء ملف و الكتابة الي الملف و القراءة من الملف
الكود الموجود في المرفقات يصلح فقط لقراءة و كتابة تكست وحيد من و الي الملف الذي يتم بناؤه تحت فهرس المشروع
لو محتاج أكواد أسهل قليلا لك يمكنك الإعتماد علي الكلاس My.Computer.FileSystem
عليك فقط أن تدرس الكلاس و هو موجود في اللينك التالي
الرابــــــــــــط
سوف يعطيك فكرة عن كيفة بناء ملف و الكتابة الي الملف و القراءة من الملف
الكود الموجود في المرفقات يصلح فقط لقراءة و كتابة تكست وحيد من و الي الملف الذي يتم بناؤه تحت فهرس المشروع
لو محتاج أكواد أسهل قليلا لك يمكنك الإعتماد علي الكلاس My.Computer.FileSystem
عليك فقط أن تدرس الكلاس و هو موجود في اللينك التالي
الرابــــــــــــط
25-01-17, 02:13 PM
label1.Text = My.Computer.FileSystem.ReadAllText("d:\اسم الملف.txt")
ضع هذا الكود في زر
ضع هذا الكود في زر
25-01-17, 02:54 PM
السلام عليكم
ممكن توضح أكثر، ماذا تقصد بربط label بملف text ؟
ممكن توضح أكثر، ماذا تقصد بربط label بملف text ؟
25-01-17, 05:23 PM
عايز اعمل زاى شريط اخبار متحرك ان انا اضيف فى ويظهر الكلام فى ال label ويتحرك بس
25-01-17, 08:31 PM
سؤالك الأصلي لم يتطرق لتحريك التكست
عموما الأن لديك المثال الخاص بقراءة التكست من الملف في الرد السابق
و الكود التالي يوضح كيف تقوم بعملية تحريك للتكست و هذه أسهل طريقة لك بدون الدخول في متاهة رسم التكست
افتح مشروع و اضف Label و تايمر للفورم
و اكتب الكود بالشكل التالي
عموما الأن لديك المثال الخاص بقراءة التكست من الملف في الرد السابق
و الكود التالي يوضح كيف تقوم بعملية تحريك للتكست و هذه أسهل طريقة لك بدون الدخول في متاهة رسم التكست
افتح مشروع و اضف Label و تايمر للفورم
و اكتب الكود بالشكل التالي
PHP كود :
Public Class Form1
Dim animationBuilder As New System.Text.StringBuilder
Dim animationDirection As Boolean = True
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.AutoSize = True
Label1.Dock = DockStyle.Bottom
Label1.Text = "first news........... second news............. third news ......................"
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If animationBuilder.Length = 0 Then animationBuilder.Append(Label1.Text)
If animationDirection Then
animationBuilder.Insert(0, animationBuilder(animationBuilder.Length - 1))
animationBuilder.Remove(animationBuilder.Length - 1, 1)
Else
animationBuilder.Append(animationBuilder(0))
animationBuilder.Remove(0, 1)
End If
Me.Label1.Text = animationBuilder.ToString
End Sub
End Class