[alaa yosry]

(21-12-15, 05:11 AM)سعود كتب : مثل ماقال الاخ الكريم 
silverlight 



حبيت اكتب الكود حسب المطلوب

PHP كود :

Public Class Form1
    Dim all As String = My.Computer.FileSystem.ReadAllText("urls.txt")
    Dim b() As String = Nothing
    Dim cur As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        b = all.Split(vbNewLine)
        url.Text = b(cur)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        url.Text = b(0)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If cur = b.Length - 1 Then Exit Sub
        cur += 1
        url.Text = b(cur)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If cur <= 0 Then Exit Sub

        cur -= 1
        url.Text = b(cur)

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        cur = b.Length - 1
        url.Text = b(cur)
    End Sub
End Class 


الف شكر اخى الكريم ... 
انا لسه مبتدئ فى البرمجه وبحاول اتعلم مع نفسي 
فممكن اكون مفهمتش قصد اخى silverlight .. ولكن الف شكر ليه ايضا
واعتذر ان كنت تعبتكم معايا