Private Sub Page_Resize(Width As Int, Height As Int)
SetLayout
iad.Initialize("iad","ca-app-pub-xx",mpa,iad.SIZE_BANNER)
Dim no As NativeObject = Me
iad.SetTestDevices(Array(no.RunMethod("simulatorId", Null)))
iad.LoadAd
iad.Color = 0xff0000ff
pnlroot.AddView(iad,0,pnlroot.Height-50,300,50)
End Sub
Sub iad_ReceiveAd
Log("ecchime")
End Sub
Sub iad_FailedToReceiveAd (ErrorCode As String)
Log(ErrorCode)
End Sub
#if objc
#import <GoogleMobileAds/GoogleMobileAds.h>
- (NSObject*)simulatorId {
return kGADSimulatorID;
}
#end if