تعديل هذا الكود - نسخة قابلة للطباعة

تعديل هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل هذا الكود (/showthread.php?tid=7708)

تعديل هذا الكود - مبتدئ - 22-02-13

كود :

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 كل ما يغير لاسم منغير وضع الكود فى زر

تعديل هذا الكود - sooriaty03 - 22-02-13

السلام عليكم
هذا هو الكود

كود :

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

بالتوفيق