salam ye click darim rosh click mikonim opacitye panel yavash yavash beshe 0
Emkanesh hast ? aya ?
Thanx All C# TeaM
Emkanesh hast ? aya ?
Thanx All C# TeaM
No user |
Dim animation1 As Animation
Private Panel1 As Panel
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("form1")
End Sub
Sub Activity_Resume
animation1.InitializeAlpha("Animation1",255,0)
animation1.Duration = 5000
End Sub
Sub Animation1_AnimationEnd
Panel1.Visible = False
End Sub
Sub Button1_Click
animation1.Start(Panel1)
End Sub
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
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 Panel1 As Panel
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("form1")
End Sub
Sub Activity_Resume
animation1.InitializeAlpha("Animation1",255,0)
animation1.Duration = 5000
End Sub
Sub Animation1_AnimationEnd
Panel1.Visible = False
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
animation1.Start(Panel1)
End Sub
Dim animation1 As Animation <<<~~~~ tarifesh kardim
Sub Activity_Resume
animation1.InitializeAlpha("Animation1",255,0) <<<~~~~ chera [b]InitializeAlpha va 255 ta 0 ham migim ke[/b]
az 255 ke maximize hast shoroo kone berese be 0 ke minimize hast???? dorost goftam inja ro ?
animation1.Duration = 5000 <<<~~~~ moddat zamani ke tool mikeshe ke az 255 berese be 0 . doroste????
End Sub
Sub Animation1_AnimationEnd <<<<~~~ inja ham y voide ke ke animation ke end shod yani bad az 5 sanie amal kone. doroste?
Panel1.Visible = False
End Sub
Sub Button1_Click
animation1.Start(Panel1) <<<~~~~ [b][/b]
[b]InitializeAlpha ke tarif kardim az 255 ta 0 bere start bokhore. doroste????[/b]
[b][/b]
End Sub
animation1.InitializeAlpha("Animation1",255,0)
animation1.Duration = 5000
Sub Animation1_AnimationEnd
Panel1.Visible = False
End Sub
Sub Button1_Click
animation1.Start(Panel1)
End Sub
|
|