2016-02-24 72 views
0

我在我的Windows應用中實施了Admob,這是橫幅廣告和插頁式廣告。橫幅的工作方式(當在窗口中點擊時,廣告中的文本有時會被選中而不是觸發廣告)。 當interstitialAd出現時,它很好,當廣告被點擊/觸摸時,它就會消失。它確實將用戶引導到廣告網站。它只是回到了應用程序。Windows Phone 8.1 Admob插頁式廣告消失

我的代碼:

Public Sub showIntAd() 
    Dim IntAd As InterstitialAd = New InterstitialAd(INT_AD_UNIT) 
    Dim AdRequest As AdRequest = New AdRequest() 

    'AdRequest.ForceTesting = True 

    AddHandler IntAd.ReceivedAd, AddressOf OnAdReceived 
    AddHandler IntAd.FailedToReceiveAd, AddressOf adFailed 

    IntAd.LoadAd(AdRequest) 

End Sub 

Public Sub loadBannerAd(adReq As AdView) 
    adReq.Format = AdFormats.SmartBanner 

    adReq.AdUnitID = BANNER_AD_UNIT 
    Dim AdRequest = New AdRequest() 

    'AdRequest.ForceTesting = True 
    'BuildLocalizedApplicationBar() 
    adReq.LoadAd(AdRequest) 
End Sub 



Private Sub adFailed(sender As Object, e As AdErrorEventArgs) 
    'DO NOTHING 
End Sub 

Private Sub OnAdReceived(ByVal sender As Object, ByVal e As AdEventArgs) 
    Dim intAd As InterstitialAd = CType(sender, InterstitialAd) 
    intAd.ShowAd() 
End Sub 

任何想法?

回答

0

在我的閃屏,我有以下幾點:

的AddHandler Touch.FrameReported,AddressOf screenTapped

子screenTapped駁回了閃屏。由於某些原因,此代碼似乎會影響Admob InterstitialAd,但廣告在第二個屏幕上調用。我刪除了這段代碼,現在它工作的很好。