کتابخانه TapsellFillBannerAd برای ایجاد بنر همسان تپسل

[mohsen m 156]

سلام خدمت همه عزیزان

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

میتونید هم از Layout استفاده کنید و هم بدون اون تو اکتیویتی تبلیغ را نمایش بدید. 

قابلیت تغییر فونت و سایز داره و همینطور نمایش یا مخفی کردن تبلیغ

نمونه کد بدون لایوت:

Sub Globals
	Dim ad As TapsellfillNativeBanner
	Dim zoneId As String
	Dim AppKey As String
	Dim p As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	zoneId="5f9ed15a55fa710001ce5136" 'شناسه تبلیغ گاه
	AppKey="hotmcgdeeeifgclgtsqnrreplnrgigcrloheghrpasokjjtdietanbrlkalqmhjollbogl" 'کلید تپسل
	
	p.Initialize("")
	ad.Initialize(p, AppKey, zoneId, 100%x, 50dip)
	Activity.AddView(p,0,100%y-50dip,100%x,50dip)
	ad.LoadAd

End Sub

نمونه کد با لایوت:

Sub Globals
	Dim ad As TapsellfillNativeBanner
	Dim zoneId As String
	Dim AppKey As String
	Private Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	
	zoneId="5f9ed15a55fa710001ce5136" 'شناسه تبلیغ گاه
	AppKey="hotmcgdeeeifgclgtsqnrreplnrgigcrloheghrpasokjjtdietanbrlkalqmhjollbogl" 'کلید تپسل
	
	ad.Initialize(Panel1, AppKey, zoneId, Panel1.Width, Panel1.Height)
	ad.Font("iransansmobile.ttf")
	ad.FontSize(12)
	ad.LoadAd
End Sub

Sub Button1_Click
	ad.Visible(False)
End Sub

Private Sub Button2_Click
	ad.Visible(True)
End Sub

فیلم آموزش کار با کتابخانه

 

خدمت دوستان

Source+Lib.zip