رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

graphicomid

گروه دانشجو
  • تعداد ارسال ها

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

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

اعتبار در سایت

0

درباره graphicomid

  • درجه
    برنامه نویس

پیشفرض

  • وضعیت فردی :
    متاهل
  • جنسیت :
    اقا
  • محل تولد :
    Abadan
  • محل سکونت :
    abadan
  • مدل گوشی :
    htc

آخرین بازدید کنندگان نمایه

85 بازدید کننده نمایه
  1. با سلام و احترام به اساتید بزرگوار سایت انسور سینتر من یک دیتابیس دارم متشکل از id , link که در قسمت link آدرس لینک عکس قرارداد دادم الان میخوام لینک ها را فراخوانی کنم و بصورت اسلاید عکس در برنامه فراخوانی شوند مثل نرم افزار بازار یا مارکت که اگر هر وقت بخوام لینک عکس جدید اضاف کنم یا تغییر بدم لینک قبلی بصورت خودکار در برنامه عکس جدید اضافه یا عوض بشه لذا نمیدونم چطور این لینک ها را فراخوانی کنم البته دستوراتی که نوشتم بشرح ذیل است ولی متاسفانه با ارور مواجه میشم از اساتید محترم تقاضای کمک و راهنمایی دارم با تشکر دستورات Sub Process_Globals Dim sssss() As String Dim joda() As String End Sub Sub Globals Dim Slider As Slider Dim sliiider As HttpJob 'Dim imSlider As ImageSlider Private img As ImageView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") sliiider.Initialize("sliiider",Me) sliiider.Download("http://192.168.0.119/administrator/slider.php") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub JobDone(job As HttpJob) If job.Success = True Then If job.JobName = "sliiider" Then Dim rep As String rep = job.GetString Dim first() As String = Regex.Split("<br>",rep) For i = 0 To first.Length-1 Dim joda() As String = Regex.Split("#",first(i)) Dim links As Map links.Initialize Slider.Initialize("Slider") Activity.AddView(Slider,0dip,0dip,100%x,40%y) Slider.AddSlide("1", sssss(1)) ' وقتی که اجرا میکنم از اینجا ارور میگیره Slider.AddSlide("2", sssss(2)) Slider.AddSlide("3", sssss(3)) Slider.AddSlide("4", sssss(4)) Dim filelist As List = File.ListFiles(File.DirDefaultExternal ) For Each fi As String In filelist Dim path As String =File.Combine(File.DirDefaultExternal , fi) If fi.LastIndexOf (".JPG")>0 Or fi.LastIndexOf (".png")>0 Then Slider.AddSlide(fi , "file:" & path ) End If Next Slider.SetTransition(Slider.SLIDER_TRANSITION_Fade) Slider.Delay=5000 Slider.Start CallSubDelayed2(ImageDownloader, "Download", links) CallSub(ImageDownloader, "ActivityIsPaused") Next End If End If End Sub
×