رفتن به مطلب

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


ارسال های توصیه شده

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

با عرض سلام،

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

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

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

3- این تاپیک

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

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

موفق باشی.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

با عرض سلام،

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

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

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

3- این تاپیک

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

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

موفق باشی.

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...