تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] انشاء صفحة اختيار رابط صورة بشكل عشوائي
#1
انشاء صفحة اختيار رابط صورة بشكل عشوائي
هذا يناسب العديد من الافكار
مثلا احب ان يكون توقيعي متغير
لذلك هذا هو الكود الذي يقوم بالمهمة
في منطقة التصريحات العامة اكتب
كود :
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)

واحفظ الصفحة باي اسم وبتوقيعك اكتب رابط الصفحة
ارجو ان اكون قدمت لكم شيئا مفيدا هذا اليوم
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , sami2015
#2
يسلمو ايديك
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال صفحة login سعود 12 2,386 25-05-13, 01:22 PM
آخر رد: shaker.soft
  تعلم كيف تنقل بيانات من صفحة لأخرى بإستخدام QueryString RaggiTech 0 699 15-10-12, 10:49 AM
آخر رد: RaggiTech
  صفحة الفيديو الخاصة ب Asp.net من مايكروسوفت RaggiTech 0 317 15-10-12, 10:20 AM
آخر رد: RaggiTech
  مثال الاسماء في صفحة من جدول وتفاصيلها في صفحة اخرى من جدول آخر سعود 0 541 17-09-12, 10:42 AM
آخر رد: سعود

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


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