Sub LoadNativeAd(AdName As String, IdAd As String)
LogColor("LoadNativeAd: " & AdName, Colors.Green)
Dim AdUnitId As String = IdAd
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim builder As JavaObject
builder.InitializeNewInstance("com.google.android.gms.ads.AdLoader.Builder", Array(ctxt, AdUnitId))
Dim onUnifiedAdLoadedListener As Object = builder.CreateEventFromUI("com/google/android/gms/ads/nativead/NativeAd.OnNativeAdLoadedListener".Replace("/", "."), _
"UnifiedAdLoaded", Null)
builder.RunMethod("forNativeAd", Array(onUnifiedAdLoadedListener))
Dim Listener As JavaObject
' Listener.InitializeNewInstance(Application.PackageName & ".main$MyAdListener", Array(AdName)) 'change 'main' with the current activity module name
Listener.InitializeNewInstance(Application.PackageName & ".mwnative$MyAdListener", Array(AdName, Me))
builder.RunMethod("withAdListener", Array(Listener))
' Sends a request To AdMob, requesting an ad.
Dim AdLoader As JavaObject = builder.RunMethod("build", Null)
Dim AdRequestBuilder As JavaObject
AdRequestBuilder.InitializeNewInstance("com/google/android/gms/ads/AdRequest.Builder".Replace("/", "."), Null)
''' Error =========================================================================
''' Error =========================================================================
AdLoader.RunMethod("loadAd", Array(AdRequestBuilder.RunMethod("build", Null)))
''' Error =========================================================================
''' Error =========================================================================
Wait For (builder) UnifiedAdLoaded_Event (MethodName As String, Args() As Object)
Dim NativeAd As JavaObject = Args(0)
' Log(GetType(NativeAd))
' Log("getHeadline: " & NativeAd.RunMethod("getHeadline", Null))
' Log("getBody: " & NativeAd.RunMethod("getBody", Null))
' Log("getAdvertiser: " & NativeAd.RunMethod("getAdvertiser", Null))
' Log("getCallToAction: " & NativeAd.RunMethod("getCallToAction", Null))
' Log("getPrice: " & NativeAd.RunMethod("getPrice", Null))
' Log("getStarRating: " & NativeAd.RunMethod("getStarRating", Null))
' Log("getStore: " & NativeAd.RunMethod("getStore", Null))
' Log("getExtras: " & NativeAd.RunMethod("getExtras", Null))
Dim NativeAdView As JavaObject
NativeAdView.InitializeNewInstance("com/google/android/gms/ads/nativead/NativeAdView".Replace("/", "."), _
Array(ctxt))
Dim pNativeAdView As Panel = NativeAdView
Dim content As Panel
content.Initialize("")
pNativeAdView.AddView(content, 0, 0, 100%x, 70%y)
Dim lblAd As Label
lblAd.Initialize("")
lblAd.TextSize = 14
lblAd.TextColor = xui.Color_White
lblAd.Color = xui.Color_RGB(255,140,0) 'Dark Orange
lblAd.Text = "AD"
lblAd.Padding = Array As Int (0,0,0,0)
lblAd.Gravity = Gravity.CENTER
content.AddView(lblAd, 10dip, 1dip, 25dip, 16dip)
Dim lbl As Label
lbl.Initialize("")
lbl.TextSize = 20
lbl.TextColor = xui.Color_Black
lbl.Text = NativeAd.RunMethod("getHeadline", Null)
content.AddView(lbl, 10dip, 15dip, 300dip, 50dip)
NativeAdView.RunMethod("setHeadlineView", Array(lbl))
Dim lbl2 As Label
lbl2.Initialize("")
lbl2.TextColor = xui.Color_Black
lbl2.Text = NativeAd.RunMethod("getBody", Null)
content.AddView(lbl2, 10dip, 65dip, 300dip, 50dip)
NativeAdView.RunMethod("setBodyView", Array(lbl2))
Dim logo As JavaObject = NativeAd.RunMethod("getIcon", Null)
If logo.IsInitialized Then
Dim logoView As Panel
logoView.Initialize("")
logoView.Background = logo.RunMethod("getDrawable", Null)
content.AddView(logoView, 250dip, 10dip, 80dip, 80dip)
NativeAdView.RunMethod("setIconView", Array(logoView))
End If
Dim MediaContent As JavaObject = NativeAd.RunMethod("getMediaContent", Null)
If MediaContent.IsInitialized Then
Dim vid As JavaObject = MediaContent.RunMethod("getVideoController", Null)
End If
Log("vid.IsInitialized: " & vid.IsInitialized)
'check if ad has a video
If vid.IsInitialized Then
Dim MediaView As JavaObject
MediaView.InitializeNewInstance("com/google/android/gms/ads/nativead/MediaView".Replace("/", "."), Array(ctxt))
content.AddView(MediaView, 10dip, 100dip, 280dip, 180dip)
NativeAdView.RunMethod("setMediaView", Array(MediaView))
Else
'If don't has video, check if is there are images
Dim images As List = NativeAd.RunMethod("getImages", Null)
If images.IsInitialized And images.Size > 0 Then
Dim MediaView As JavaObject
MediaView.InitializeNewInstance("com/google/android/gms/ads/nativead/MediaView".Replace("/", "."), Array(ctxt))
content.AddView(MediaView, 10dip, 100dip, 200dip, 200dip)
NativeAdView.RunMethod("setImageView", Array(MediaView))
End If
End If
'*** new button to action
Dim btAction As Button
btAction.Initialize("")
Dim cd As ColorDrawable
cd.Initialize(Colors.RGB(65,105,225),3dip)
btAction.Background = cd
btAction.Text = NativeAd.RunMethod("getCallToAction", Null)
content.AddView(btAction, 10dip, 275dip, 100dip, 50dip)
NativeAdView.RunMethod("setCallToActionView", Array(btAction))
NativeAdView.RunMethod("setNativeAd", Array(NativeAd))
TheParentPanel.AddView(pNativeAdView, 0, 0, 100%x, 70%y)
End Sub
