رفتن به مطلب

pejman

کاربر عادی
  • تعداد ارسال ها

    81
  • تاریخ عضویت

  • آخرین بازدید

پست ها ارسال شده توسط pejman

  1. 
    

    Sub Globals

    'These global variables will be redeclared each time the activity is created.

    'These variables can only be accessed from this module.

    Dim ag As AriaGalleryView

    Dim aga As AriaGalleryAdapter

    Dim l1 As List

    End Sub

    Sub Activity_Create(FirstTime As Boolean)

    'Do not forget to load the layout file created with the visual designer. For example:

    Activity.LoadLayout("Layout1")

    ag.Initialize("ag")

    Activity.AddView(ag,0,0,100%x,35%y)

    l1.Initialize

    l1.Add("http://file.digikala.com/Digikala/Image/Webstore/Banner/1395/3/8/dc767d1b-4a2c-4c4f-b7f7-b6c867f6ca1a.jpg")

    l1.Add("http://file.digikala.com/Digikala/Image/Webstore/Banner/1395/3/5/42b1da93-10c6-4a07-b0d5-07b7dd3f7f52.jpg")

    l1.Add("http://file.digikala.com/Digikala/Image/Webstore/Banner/1395/3/4/17b4a2c5-55ea-445b-8953-175bf13b294e.jpg")

    l1.Add("http://file.digikala.com/Digikala/Image/Webstore/Banner/1395/3/8/6d2115d9-0a30-4310-98b1-a98294dd8a42.jpg")

    aga.Initialize("imgviewelayout",l1).ToGalleryView(ag)

    End Sub

    Sub Activity_Resume

    End Sub

    Sub Activity_Pause (UserClosed As Boolean)

    End Sub

    Sub ag_imageclicked (ParentEventName As String,position As Int)

    ToastMessageShow(position,False)

    End Sub

×
×
  • اضافه کردن...