اسلاید عکس با متن

[reza644 435]

سلام من میخوام یه همچین چیزی بسازم

 

علاوه بر عکس متن هم باشه و خودکار یا توسط کاربر اسلاید شه

 

[AMiN.M7892 1,029]

سلام دوست عزیز،

از PagerBullet استفاده کنید.

اسلاید خودکار رو هم با تایمر ایجاد کنید.

[ctrain 38]

در 2 ساعت قبل، AMiN.M7892 گفته است :

سلام دوست عزیز،

از PagerBullet استفاده کنید.

اسلاید خودکار رو هم با تایمر ایجاد کنید.

سلام امین جان.

میشه یه راهنمایی با تایمر برای رد شدن خودکار اسلایدها تو PagerBullet کنی؟

[reza644 435]

در 4 ساعت قبل، ctrain گفته است :

سلام امین جان.

میشه یه راهنمایی با تایمر برای رد شدن خودکار اسلایدها تو PagerBullet کنی؟

سلام

اول اینو دانلود کن بعد کد های منو بزن

دریافت نسخه دوم کتابخونه به همراه سمپل 

 

سوالی بود در خدمتم

#Region  Project Attributes 
	#ApplicationLabel: PagerBullet v2
	#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.
Dim t As Timer
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 pa As PagerBulletAdapter
	Dim pb As PagerBullet
	Dim a As Int 
End Sub

#AdditionalRes: ..\res

Sub Activity_Create(FirstTime As Boolean)

'	PagerBullet v2
a=0
t.Initialize("t",3000)
t.Enabled=True
	pa.Initialize
	For i = 1 To 7
		Dim p As Panel
		p.Initialize("p")
		p.SetBackgroundImage(LoadBitmap(File.DirAssets,i&".jpg"))
		pa.AddPage(p)
	Next
	pb.Initialize(pa,"pb")
	pb.setDotsColor(Colors.White,Colors.LightGray)
	pb.Transition = pb.ZOOM_OUT_SIDE
	Activity.AddView(pb,0,0,100%x,100%y)
	pb.CurrentItem=a
End Sub

Sub pb_onPageChanged(position As Int)
	Log(position)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub t_Tick
		If a =6 Then
			pb.CurrentItem=0
			a=0
			Else	
		a=a+1		
		pb.CurrentItem=a
		End If
	t.Enabled=True
End Sub

 

مرسی امین خان