+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب حاجة بخصوص label (/showthread.php?tid=18945)
طلب حاجة بخصوص label - MOSTAFA.KAMEL - 24-01-17
انا عامل label عايز اربط label بملف text عشان انا اكتب اى حاجة تظهر فى الـ label امسح يبقى ال label فاضى
RE: طلب حاجة بخصوص label - silverlight - 24-01-17
في المرفقات ستجد مثالا مكتوب بنسخة الفيجوال استوديو 2015
سوف يعطيك فكرة عن كيفة بناء ملف و الكتابة الي الملف و القراءة من الملف
الكود الموجود في المرفقات يصلح فقط لقراءة و كتابة تكست وحيد من و الي الملف الذي يتم بناؤه تحت فهرس المشروع
لو محتاج أكواد أسهل قليلا لك يمكنك الإعتماد علي الكلاس My.Computer.FileSystem
عليك فقط أن تدرس الكلاس و هو موجود في اللينك التالي
الرابــــــــــــط
RE: طلب حاجة بخصوص label - وائل القطاوي - 25-01-17
label1.Text = My.Computer.FileSystem.ReadAllText("d:\اسم الملف.txt")
ضع هذا الكود في زر
RE: طلب حاجة بخصوص label - مساعدة - 25-01-17
السلام عليكم
ممكن توضح أكثر، ماذا تقصد بربط label بملف text ؟
RE: طلب حاجة بخصوص label - MOSTAFA.KAMEL - 25-01-17
عايز اعمل زاى شريط اخبار متحرك ان انا اضيف فى ويظهر الكلام فى ال label ويتحرك بس
RE: طلب حاجة بخصوص label - silverlight - 25-01-17
سؤالك الأصلي لم يتطرق لتحريك التكست
عموما الأن لديك المثال الخاص بقراءة التكست من الملف في الرد السابق
و الكود التالي يوضح كيف تقوم بعملية تحريك للتكست و هذه أسهل طريقة لك بدون الدخول في متاهة رسم التكست
افتح مشروع و اضف 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