رفتن به مطلب

تخته امتیازات

  1. mohsen m

    mohsen m

    کاربر رو به رشد


    • امتیاز

      1

    • تعداد ارسال ها

      166



مطالب محبوب

در حال نمایش مطالب دارای بیشترین امتیاز در سه شنبه, 12 اسفند 1399 در همه بخش ها

  1. 1 امتیاز
    سلام خدمت همه عزیزان با این کتابخانه دیگه نیازی به تنظیم مستندات تپسل برای ایجاد بنر همسان تو برنامه ندارید. میتونید هم از 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
×
×
  • جدید...