runmethod

B4X: Private KEY_CTRL_PRESSED As Boolean = False Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1 MainForm.RootPane.LoadLayout("Main") 'Load the layout file. MainForm.Show AddKeyPressedListener(MainForm) End Sub Sub AddKeyPressedListener(f As Form)...

I use this code to set a image in native ad advanced. B4X: Dim images As List = NativeContentAd.RunMethod("getImages", Null) If images.IsInitialized And images.Size > 0 Then Dim image As JavaObject = images.Get(0) logoView.Background = image.RunMethod("getDrawable", Null)...

I am very sorry for this problem using Google Translate. The transparent status bar I set up with the following code has always worked well, but the following problems occur on Android 11. B4X: Dim jo As JavaObject Dim window As JavaObject = jo.InitializeContext.RunMethod("getWindow"...

I use this code to set a image in native ad advanced. B4X: Dim images As List = NativeContentAd.RunMethod("getImages", Null) If images.IsInitialized And images.Size > 0 Then Dim image As JavaObject = images.Get(0) logoView.Background = image.RunMethod("getDrawable", Null)...

Hi, I have a simple example of B4XComboBox and Spinner. when I do JavaObject. RunMethod("performClick",Null) it works on Spinner but not on B4XComboBox (see attached picture) Is it possible to have "perform click" another way/other means for B4XComboBox? Any help is appreciated B4X: 'This...

Hi, I have a simple example of B4XComboBox and Spinner. when I do JavaObject. RunMethod("performClick",Null) it works on Spinner but not on B4XComboBox (see attached picture) Is it possible to have "perform click" another way/other means for B4XComboBox? Any help is appreciated B4X: 'This...

تکه کد چک کردن گوگل پلی سرویس در b4a Sub CheckForGooglePlayServices As Boolean Dim GoogleApiAvailablity As JavaObject GoogleApiAvailablity = GoogleApiAvailablity.InitializeStatic("com.google.android.gms.common.GoogleApiAvailability").RunMethod("getInstance", Null) Dim context As...

#تکه_کد برای گرفتن مدت زمان یک ویدیو میتونید از کد زیر استفاده کنید : `GetVideoDuration(File.Combine(Dir,Name))` ```Public Sub GetVideoDuration (path As String) As Long Try Dim mFile As JavaObject mFile.InitializeNewInstance("java.io.File",Array(path)) Dim inputStream As...