تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل هذا الكود
#1
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
               Dim newName As New FileInfo("C:\Users\Name\Desktop\photo\a.jpg")
        newName.MoveTo("C:\Users\Name\Desktop\photo" + Label1.Text + ".jpg")
        Label1.Text = Label1.Text + 1
    End Sub
اريد بعدتغير الاسم label يدغير رقمه مثلا لو 1 لى 2 كل ما يغير لاسم منغير وضع الكود فى زر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
هذا هو الكود
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim newName As New FileInfo("C:\Users\Name\Desktop\photo\a.jpg")
        newName.MoveTo("C:\Users\Name\Desktop\photo" + Label1.Text + ".jpg")
        Label1.Text = "Label" & (Val(Label1.Text.Substring(5)) + 1)
    End Sub

بالتوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 103 18-10-17, 09:49 PM
آخر رد: سعود
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 115 17-10-17, 12:09 AM
آخر رد: e-coder
  [VB.NET] اخر تعديل بالكلاس محمد اسماعيل 1 41 14-10-17, 09:41 PM
آخر رد: محمد اسماعيل
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 37 13-10-17, 06:39 PM
آخر رد: e-coder
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 6 901 11-10-17, 08:48 PM
آخر رد: رمضان محمد
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 62 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 132 08-10-17, 11:30 PM
آخر رد: dubai.eig
  استشارة في الكود hikmat 1 56 28-09-17, 01:33 AM
آخر رد: wale90
  مساعدة في الكود hikmat 0 42 27-09-17, 10:08 AM
آخر رد: hikmat
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 1 109 23-09-17, 05:32 PM
آخر رد: محمود صالح

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم