تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 0 13 منذ 57 دقيقة مضت
آخر رد: dubai.eig
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 74 أمس, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 35 أمس, 02:27 PM
آخر رد: abo_alaa315
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 48 أمس, 01:39 PM
آخر رد: thevirus
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 78 18-01-17, 05:25 PM
آخر رد: dubai.eig
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 179 15-01-17, 02:11 PM
آخر رد: abudawoodd
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 417 04-01-17, 01:12 AM
آخر رد: Namer
  [VB.NET] هل الكود هذا صحيح dubai.eig 10 217 01-01-17, 10:15 PM
آخر رد: مساعدة
  اين اكتب هذا الكود anis_derna 3 140 28-12-16, 12:18 PM
آخر رد: thevirus
  [سؤال] تعديل html قبل عرضه في WebBrowser ali.alfoly 16 301 24-12-16, 11:48 AM
آخر رد: Basil Abdallah

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


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