splash

[ali@ali 10]

سلام خسته نباشید

من یه تب هاست دارمم و قبلس یه اسپلش گذاشتم...

مشکل اینه وقتی برنامه باز میشه این اسپلش پشت منو تب هاست میاد

چرا؟

اینم کداش

Sub Globals	'These global variables will be redeclared each time the activity is created.	'These variables can only be accessed from this module.	Dim animation1 As Animation	Private ImageView1 As ImageView	Private TabHost1 As TabHostEnd 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")	Activity.LoadLayout("w")	animation1.InitializeAlpha("btnclikcanim",1,0)	animation1.Duration = 50000	animation1.Start(ImageView1)	Activity.Finish		Activity.LoadLayout("q")		TabHost1.AddTab("yek","m")	TabHost1.AddTab("do","w")	End Sub
Sub Activity_Resume	End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnclikcanim_AnimationEnd	ImageView1.Visible = FalseEnd Sub

[moinmah 40]

این کد رو تویه پوشش Code قرار بدین تا راحت تر متوجه بشیم مشکل از کجاست (تویه پوشش HTML احتمالا قرارش داید)

[ali@ali 10]

اینم تو پوشش کد

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim animation1 As Animation
Private ImageView1 As ImageView
Private TabHost1 As TabHost
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")
Activity.LoadLayout("splash")
animation1.InitializeAlpha("btnclikcanim",1,0)
animation1.Duration = 50000
animation1.Start(ImageView1)
Activity.Finish



Activity.LoadLayout("tabhost")
TabHost1.AddTab("yek","page1")
TabHost1.AddTab("do","page2")

End Sub


Sub Activity_Resume

End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub btnclikcanim_AnimationEnd
ImageView1.Visible = False
End Sub

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

شرمنده کدتون کلا مشکل داره یعنی اشکالاتش زیاده.

ولی یک کد بهت میدم قدیما ازش استفاده میکردم *گاز* واسه اسپلش برنامس:

Sub Globals
Dim SplashPnl As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
        Activity.LoadLayout("SplashLayout")
        AnimView(SplashPnl, "Anim",1,0)
End Sub

Sub AnimView ( V As View , EventName As String , Arg1 As Float , Arg2 As Float)
   SplashAnim.InitializeAlpha(EventName,Arg1,Arg2)
   SplashAnim.PersistAfter = True
   SplashAnim.Duration = 5000
   SplashAnim.Start(V)
End Sub

[ali@ali 10]

داداش مجید مشکلش چیه؟؟

بگو باد بگیرم*گاز*

[ali@ali 10]

شرمنده کدتون کلا مشکل داره یعنی اشکالاتش زیاده.

ولی یک کد بهت میدم قدیما ازش استفاده میکردم *گاز* واسه اسپلش برنامس:

Sub Globals
Dim SplashPnl As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
        Activity.LoadLayout("SplashLayout")
        AnimView(SplashPnl, "Anim",1,0)
End Sub

Sub AnimView ( V As View , EventName As String , Arg1 As Float , Arg2 As Float)
   SplashAnim.InitializeAlpha(EventName,Arg1,Arg2)
   SplashAnim.PersistAfter = True
   SplashAnim.Duration = 5000
   SplashAnim.Start(V)
End Sub

آقا مجید کدت مورد داشت !*گاز*

تو این قسمت

[b]Sub AnimView ( V As View , EventName As String , Arg1 As Float , Arg2 As Float)
   SplashAnim.InitializeAlpha(EventName,Arg1,Arg2)
   SplashAnim.PersistAfter = True
   SplashAnim.Duration = 5000
   SplashAnim.Start(V) 
[/b][b]End Sub
[/b]

SplashAnim قرمز میشه*عصبانی2*

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

ببخشید دیگه آثار پیریه دیگه *گاز*

کتابخانه AnimationPlus رو فعال کن و این کد رو هم توی Globals بنویس : *گاز*

    Dim SplashAnim As AnimationPlus

[ali@ali 10]

ببخشید دیگه آثار پیریه دیگه *گاز*

کتابخانه AnimationPlus رو فعال کن و این کد رو هم توی Globals بنویس : *گاز*

    Dim SplashAnim As AnimationPlus

اخوی یه چک دگ بکن این ارور و میده موقع اجرا :|

http://s6.uplod.ir/i/00558/88wf6pt7sby3.png

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

خب میگه شما پنل رو اینیشالیز نکردی.

شما بیا یک پنل از دیزانر اضافه کن به لایوتت مشکلت حل میشه

[ali@ali 10]

خب میگه شما پنل رو اینیشالیز نکردی.

شما بیا یک پنل از دیزانر اضافه کن به لایوتت مشکلت حل میشه

از دیزاینر یه پنل ساختم اینم تو global isj

Private Panel1 As Panel

بازم ارور میده*تعجب3*

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

کدی که نوشتی رو بزار اینجا ببینم مشکلش چیه

[ارمین رمضانی دلیجانی 381]

دوست عزیز خیلی راحت روی اسبلش کلیک راست کن از قسم دیزاینر بعد send to back یا بالایشو بزن تمام