Private Sub mnuInAppBilling_Click
If Not(Starter.IsBillingSupported) Then
ToastMessageShow(Starter.language.value("strInAppBillingError"),True)
Return
Else
If Starter.IsLicensevalid Then
Msgbox2Async(Starter.language.value("strLicenseIsValid"), "Info", Starter.language.Value("strJa"), Starter.language.Value("strCancel"),"", Null, False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
RequestProductsInformation
End If
Else
RequestProductsInformation
End If
End If
End Sub
Public Sub RequestProductsInformation
ProgressDialogShow2(Starter.language.Value("strPleaseWait"), True)
Starter.billmanager.GetInventoryInformation(Array(Starter.Product_1year, Starter.Product_6month, Starter.Product_1month ))
End Sub
Public Sub billmanager_InventoryCompleted (Success As Boolean, Products As List)
If Success Then
Dim mp As Map
mp.Initialize
For Each sk As SkuDetails In Products
Select sk.Sku
Case Starter.Product_1year
mp.Put(Starter.Product_1year, sk.Price)
Case Starter.Product_6month
mp.Put(Starter.Product_6month, sk.Price)
Case Starter.Product_1month
mp.Put(Starter.Product_1month, sk.Price)
End Select
Next
CallSub2(Me, "ShowInAppBilling", mp)
End If
ProgressDialogHide
End Sub
Private Sub ShowInAppBilling(LocalizedPrice As Map)
...
End Sub