با سلام و عرض خسته نباشید من در کد نویسی به کمک دوستان کدی رو پیدا کردم اما نمیتونم مولتی پنل رو در اون قرار بردم میشه کمک کنید
هرکاری میکنم مولتی پنل رو نمیخونه یا من بلد نیستم!!!!!!!!! البته تازه
#Region Project Attributes
#ApplicationLabel: MultiPanel With Animation
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim an,an1 As AnimationPlus
Dim s As ScrollView
Dim p,p1 As Panel
Dim t As Int
Dim l As Label
Dim k As Long
Dim temp As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
t=0
s.Initialize2(1000dip,"s")
s.Color=Colors.White
Activity.AddView(s,0,0,100%x,100%y)
l.Initialize("li")
createlist(0)
End Sub
Sub p_Touch (Action As Int, X As Float, Y As Float)
Dim pnl As Panel = Sender
Dim lbl As Label = pnl.GetView(0)
Activity.Title = lbl.Text
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub createlist(start As Int)
k =2000
For i=start To start+15
l.Text="Item "&i
p1.Initialize("ps")
p1.LoadLayout("act")
s.Panel.AddView(p1,0,t,100%x,18%y)
an.InitializeTranslate("an",100%X,0,0,0)
an1.InitializeTranslate("an1",100%X,0,0,0)
an.Duration=k
an1.Duration=k
an.Start(p1)
an1.Start(l)
k=k+100
t=t+18%y+2dip
p.Tag=i+1
s.Panel.Height=t
temp=i
Next
End Sub
Sub s_ScrollChanged(Position As Int)
If Position + s.Height >= s.Panel.Height Then
createlist(temp)
End If
End Sub
کارم البته من اموزشش رو خریدم جوری دیگه ای بود اما به کارم نیومد میخواستم بدونم در کاری کد بالا من باید کد مولتی رو قرار بدم تا فراخوانیش کنه؟؟؟؟؟؟
سوال
rezamoaser 53
با سلام و عرض خسته نباشید من در کد نویسی به کمک دوستان کدی رو پیدا کردم اما نمیتونم مولتی پنل رو در اون قرار بردم میشه کمک کنید
هرکاری میکنم مولتی پنل رو نمیخونه یا من بلد نیستم!!!!!!!!! البته تازه
#Region Project Attributes #ApplicationLabel: MultiPanel With Animation #VersionCode: 1 #VersionName: #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Dim an,an1 As AnimationPlus Dim s As ScrollView Dim p,p1 As Panel Dim t As Int Dim l As Label Dim k As Long Dim temp As Int End Sub Sub Activity_Create(FirstTime As Boolean) t=0 s.Initialize2(1000dip,"s") s.Color=Colors.White Activity.AddView(s,0,0,100%x,100%y) l.Initialize("li") createlist(0) End Sub Sub p_Touch (Action As Int, X As Float, Y As Float) Dim pnl As Panel = Sender Dim lbl As Label = pnl.GetView(0) Activity.Title = lbl.Text End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub createlist(start As Int) k =2000 For i=start To start+15 l.Text="Item "&i p1.Initialize("ps") p1.LoadLayout("act") s.Panel.AddView(p1,0,t,100%x,18%y) an.InitializeTranslate("an",100%X,0,0,0) an1.InitializeTranslate("an1",100%X,0,0,0) an.Duration=k an1.Duration=k an.Start(p1) an1.Start(l) k=k+100 t=t+18%y+2dip p.Tag=i+1 s.Panel.Height=t temp=i Next End Sub Sub s_ScrollChanged(Position As Int) If Position + s.Height >= s.Panel.Height Then createlist(temp) End If End Subکارم
البته من اموزشش رو خریدم جوری دیگه ای بود اما به کارم نیومد میخواستم بدونم در کاری کد بالا من باید کد مولتی رو قرار بدم تا فراخوانیش کنه؟؟؟؟؟؟ 
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.