منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - انشاء صفحة اختيار رابط صورة بشكل عشوائي

انشاء صفحة اختيار رابط صورة بشكل عشوائي
هذا يناسب العديد من الافكار
مثلا احب ان يكون توقيعي متغير
لذلك هذا هو الكود الذي يقوم بالمهمة
في منطقة التصريحات العامة اكتب

كود :

Dim lst As New List(Of String)

ثم اكتب روابط لصور في ملف نصي
وقم بتخزينها في قائمة من نوع نص عبر اجراء بسيط

كود :

Private Sub lopics()

        For Each h In My.Computer.FileSystem.ReadAllText(Server.MapPath("\picslinks.txt")).Split(vbNewLine)

            lst.Add(h.Trim)

        Next

    End Sub

ثم اكتب دالة تختار رابط بشكل عشوائي من القائمة

كود :

Private Function getpic() As String

        Return lst.Item(Rnd() * lst.Count - 1)

    End Function

ثم عند حدث تحميل الصفحة اكتب

كود :

       Randomize()

        If Not IsPostBack Then

            lopics()

        End If

        Response.Redirect(getpic)

واحفظ الصفحة باي اسم وبتوقيعك اكتب رابط الصفحة
ارجو ان اكون قدمت لكم شيئا مفيدا هذا اليوم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود