Windows phone 8.1 Windows Phone 8.1 Admob Interstitual在触摸时消失

Windows phone 8.1 Windows Phone 8.1 Admob Interstitual在触摸时消失,windows-phone-8.1,windows-phone,admob,interstitial,Windows Phone 8.1,Windows Phone,Admob,Interstitial,我已经在我的Windows应用程序中实现了Admob,它既是一个横幅,也是一个间隙。横幅在某种程度上起作用(在windows中单击它时,广告中的文本有时会被选中,而不是触发广告)。 当Interstitalad出现时,它做得很好,当点击/触摸广告时,它就消失了。它确实会将用户引导到广告站点。它只是回到应用程序 我的代码: Public Sub showIntAd() Dim IntAd As InterstitialAd = New InterstitialAd(INT_AD_UNIT)

我已经在我的Windows应用程序中实现了Admob,它既是一个横幅,也是一个间隙。横幅在某种程度上起作用(在windows中单击它时,广告中的文本有时会被选中,而不是触发广告)。 当Interstitalad出现时,它做得很好,当点击/触摸广告时,它就消失了。它确实会将用户引导到广告站点。它只是回到应用程序

我的代码:

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

有什么想法吗?

在我的启动屏幕中,我有以下内容:

AddHandler Touch.FrameReported,点击屏幕的地址

点击子屏幕将取消启动屏幕。尽管在第二个屏幕上调用了ad,但出于某种原因,此代码似乎会影响Admob Interstituralad。我删除了这个代码,现在它可以正常工作了