رفتن به مطلب
  • 0

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


reza644

سوال

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

 

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

 

com.khorasannews.latestnews6.jpg

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

3 پاسخ به این سوال تاکنون داده شده است

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

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

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

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

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

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

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

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

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

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

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

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

در 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

 

مرسی امین خان:53:

 

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

بایگانی شده

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

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

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