من با استفاده از این دستورات یک اسلایدر عکس برای برنامم ساختم:
Dim panels(5) As Panel
cd.Initialize(Colors.Blue,10dip)
cd2.Initialize(Colors.Red,10dip)
For i = 0 To 4
panels(i).Initialize("panels")
imgs(i).Initialize("imgs")
Activity.AddView(panels(i),50%x,10%y,100%x,50%y)
panels(i).SetBackgroundImage(LoadBitmapSample(File.DirAssets,"m"&(i+1)&".jpg",panels(i).Width,panels(i).Height))
Activity.AddView(imgs(i),offsetX,(panels(i).Top + panels(i).Height) + 5dip,10dip,10dip)
If i = 0 Then
imgs(i).Background = cd2
Else
imgs(i).Background = cd
End If
offsetX = offsetX + 12dip
Next
sd.Initialize
sd.panels = panels
SlidingPanels.Initialize(sd, SlidingDuration)
sd.targetPanel = -1
sd.currentPanel = currentPanelBeforePaused - 1
ChangePanel(True)
حالا میخوام ببینم چه طور من میتونم روی هرکدوم از این پنل ها که حاوی عکس مربوطه است، کلیک کنم؟
سوال
MR.B4A 125
سلام.
من با استفاده از این دستورات یک اسلایدر عکس برای برنامم ساختم:
Dim panels(5) As Panel cd.Initialize(Colors.Blue,10dip) cd2.Initialize(Colors.Red,10dip) For i = 0 To 4 panels(i).Initialize("panels") imgs(i).Initialize("imgs") Activity.AddView(panels(i),50%x,10%y,100%x,50%y) panels(i).SetBackgroundImage(LoadBitmapSample(File.DirAssets,"m"&(i+1)&".jpg",panels(i).Width,panels(i).Height)) Activity.AddView(imgs(i),offsetX,(panels(i).Top + panels(i).Height) + 5dip,10dip,10dip) If i = 0 Then imgs(i).Background = cd2 Else imgs(i).Background = cd End If offsetX = offsetX + 12dip Next sd.Initialize sd.panels = panels SlidingPanels.Initialize(sd, SlidingDuration) sd.targetPanel = -1 sd.currentPanel = currentPanelBeforePaused - 1 ChangePanel(True)
حالا میخوام ببینم چه طور من میتونم روی هرکدوم از این پنل ها که حاوی عکس مربوطه است، کلیک کنم؟
ممنون میشم راهنماییم کنید.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.