دیتابیس و مولتی پنل

[alirezakazemizaroomi 437]

سلام به همگی. من یه سری لینک عکس تو دیتابیس دارم ومی خوام وقتی برنامه باز شد لینکها دانلود بشند وتو ایمیج ویو مولتی پنل به ترتیب قرار بگیرن؟کی بلده؟؟؟؟؟

[alirezakazemizaroomi 437]

درود

این رو ببینید فکر کنم کارتون راه بیفته :

http://answercenter.ir/index.php?app=nexus&module=payments&section=store&do=item&id=16

آق ایزدی دمت گرم اینو خریدم مشکلم حل شد.

[alirezakazemizaroomi 437]

آقای ایزدی جواب بدین دیگه؟؟؟؟؟؟؟؟؟؟؟

[مجید آرتا 5,874]

سلام

شما کافیه لینک عکسایی که از دیتابیس میگیرید بدید به HttpJob و در رویداد JobDone  عکسارو ست کنید.

در مورد دانلود عکس جست و جو کنید یک نمونه سورس MultiImageDownloader  هستش بکارتون میاد

[مهدی ایزدی 9,203]

درود

این رو ببینید فکر کنم کارتون راه بیفته :

http://answercenter.ir/index.php?app=nexus&module=payments&section=store&do=item&id=16

[alirezakazemizaroomi 437]

از این کدها برا عکسها استفاده کردم ولی تو مولتی پنل فقط عکس آخر دانلود میشه،مشکلش از کجاست؟؟؟؟

 

 

Sub Activity_Create(FirstTime As Boolean)

job1.Initialize("job1",Me)

   job1.Download(cur1.GetString("link"))

End Sub

 

 

 

Sub JobDone (Job As HttpJob)

 link("Done")

    img1.SetBackgroundImage(job1.GetBitmap)

End Sub

 

[مهدی ایزدی 9,203]

 

از این کدها برا عکسها استفاده کردم ولی تو مولتی پنل فقط عکس آخر دانلود میشه،مشکلش از کجاست؟؟؟؟

 

 

Sub Activity_Create(FirstTime As Boolean)

job1.Initialize("job1",Me)

   job1.Download(cur1.GetString("link"))

End Sub

 

 

 

Sub JobDone (Job As HttpJob)

 link("Done")

    img1.SetBackgroundImage(job1.GetBitmap)

End Sub

 

 

 

مشکل از اینه که حلقه استفاده نکردید دیگه.

پیشنهاد میکنم آموزش تصویری کار با مولتی پنل  رو دانلود کنید تا بهتر کار با دیتابیس و حلقه و خواندن اطلاعات رو صورت مولتی رو یاد بگیرید :

http://answercenter.ir/topic/2213-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%88-%D8%AE%D9%88%D8%A7%D9%86%D8%AF%D9%86-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%A8%D8%A7-multi-panel/

[alirezakazemizaroomi 437]

آموزششو دیدم ولی لینک عکسهارو نمیدونم چجوری همزمان دانلود کنم وتو ایمیج ویو مولتی پنل نشون بدم کدهایی کامل ترم:

 

 

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("lay1")

File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db")

sql2.Initialize(File.DirInternal,"sql1.db",False)

cur1=sql2.ExecQuery("SELECT * From tbltest WHERE id BETWEEN 1 AND 30")

For i=0 To cur1.RowCount-1

cur1.Position=i

Dim ps As Panel

ps.Initialize("ps")

ScrollView2.Panel.AddView(ps,0,Stopint,100%x,100%Y)

Stopint=Stopint+150dip

ps.LoadLayout("nn")

 

Panel1.Tag=i                            

If (i Mod 2)=1 Then

Panel1.Color=Colors.Red

Else

Panel1.Color=Colors.Blue

End If

 

 job1.Initialize("job1",Me)

   job1.Download(cur1.GetString("Logo"))

  

    img1.Tag=cur1.GetString("Logo")

 

 

 

img2.Tag=i

Lbb1.text="Name: "&cur1.GetString("id")&"  "&cur1.GetString("name")

Lbb2.text="Text: "&cur1.GetString("q64")

bbb3.Tag=cur1.GetString("q64")

ScrollView2.Panel.Height=Stopint

Next

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

    Log("Done")

    img1.SetBackgroundImage(job1.GetBitmap)

  Else

        ToastMessageShow("اینترنت گوشی شما قطع میباشد!",True)

' ProgressDialogShow("در حال دانلود کردن")

End If

End Sub

 

Sub bbb3_Click 

Dim z1 As Button

   z1 = Sender

StartActivity( p.OpenBrowser(z1.Tag ))

ProgressDialogShow("در حال دانلود کردن")

End Sub

 

[alirezakazemizaroomi 437]

بابا یکی جواب بده دیگه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[alirezakazemizaroomi 437]

یک نفرجواب نمیده؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!؟