سورس زیبا سازی button و غیره.. کاربردی

[ایمان سعیدی 48]

توضیحات تو خود سورس

http://s5.picofile.com/file/8138981650/anim.rar.html

#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 a1 As Animation

Private Button1 As Button

Private Button2 As Button

Private Button3 As Button

Private Button4 As Button

Private Button5 As Button

Private Button6 As Button

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("1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click

a1.InitializeScaleCenter("",1,1,0,0,Button1)

a1.Duration = 1000 ' in mesle timer amal mikone

a1.RepeatCount = 1' in tekrareshe

a1.RepeatMode = a1.REPEAT_REVERSE ' in yani bargasht be halate aval

a1.Start(Button1)

End Sub

Sub Button2_Click

a1.InitializeAlpha("a1",1,0)

a1.Duration = 1000 ' in mesle timer amal mikone

a1.RepeatCount = 1' in tekrareshe

a1.RepeatMode = a1.REPEAT_REVERSE ' in yani bargasht be halate aval

a1.Start(Button2)

End Sub

Sub Button3_Click

a1.InitializeScale("",1,1,0,0)

a1.Duration = 1000 ' in mesle timer amal mikone

a1.RepeatCount = 1' in tekrareshe

a1.RepeatMode = a1.REPEAT_REVERSE ' in yani bargasht be halate aval

a1.Start(Button3)

End Sub

Sub Button4_Click

a1.InitializeRotateCenter("",0,180,Button4)

a1.Duration = 1000 ' in mesle timer amal mikone

a1.RepeatCount = 1' in tekrareshe

a1.RepeatMode = a1.REPEAT_REVERSE ' in yani bargasht be halate aval

a1.Start(Button4)

End Sub

Sub Button5_Click

a1.InitializeRotate("",0,180)

a1.Duration = 1000 ' in mesle timer amal mikone

a1.RepeatCount = 1' in tekrareshe

a1.RepeatMode = a1.REPEAT_REVERSE ' in yani bargasht be halate aval

a1.Start(Button5)

End Sub

Sub Button6_Click

a1.InitializeTranslate("a1",0,0,0,100)

a1.Duration = 1000 ' in mesle timer amal mikone

a1.RepeatCount = 1' in tekrareshe

a1.RepeatMode = a1.REPEAT_REVERSE ' in yani bargasht be halate aval

a1.Start(Button6)

End Sub

' age Sub Button6_Click in bashe

' a1.InitializeTranslate("a1",0,0,0,100)

' a1.Duration = 1000

' a1.Start(Button6)

'End Sub

'va

'Sub a1_AnimationEnd

'Button6.Top = Button6.Top+100

'End Sub

'tasvir dg barnemigarde

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

سلام ممنون عالی بود اما توضیحاتی توش ندیدم :| یه خورده بگو در مورد کار با انیمیشن

[ایمان سعیدی 48]

تاپیک update شد

[مهران محمودی 778]

با عرض سلام،

ایمان ممنون بابت سورس ولی:

1- سورس کد رو باید پیوست میکردی.

2- توضیحات باید بدی در مورد کارت تا قبل از دانلود کاربر بدونه به چه دردی میخوره این سورس.

3- این تاپیک

4- تو که کد قرار دادی، چپ چین میکردی که از سمت چپ نوشته بشن، اینطوری خیلی بد شده و ناجور.

میدونم زحمت کشیدی، ولی ما دوست داریم هممون بهترین کار رو ارائه بدیم.

موفق باشی.

[kiyan 11]

با عرض سلام،

ایمان ممنون بابت سورس ولی:

1- سورس کد رو باید پیوست میکردی.

2- توضیحات باید بدی در مورد کارت تا قبل از دانلود کاربر بدونه به چه دردی میخوره این سورس.

3- این تاپیک

4- تو که کد قرار دادی، چپ چین میکردی که از سمت چپ نوشته بشن، اینطوری خیلی بد شده و ناجور.

میدونم زحمت کشیدی، ولی ما دوست داریم هممون بهترین کار رو ارائه بدیم.

موفق باشی.

من خودم مدیر سایتم میدونم دقیقا حس مدیر سایت رو ..

شما ک قوی هستید بر اساس قوانین عمل کنید .. تا نظم بهتری روی سایت حاکم باشه

مرسی از مدیریت