B4J Question B4J OpenFile Dialog...

Private Sub openFileDialog(frame As JavaObject) As String   
    Dim fileChooser As JavaObject
    fileChooser.InitializeNewInstance("javax.swing.JFileChooser", Array(Null))
     Dim result As Int = fileChooser.RunMethod("showOpenDialog", Array(jframe))
    If result = fileChooser.GetField("APPROVE_OPTION") Then
        Dim selectedFile As JavaObject = fileChooser.RunMethod("getSelectedFile", Null)
        Dim filePath As String = selectedFile.RunMethod("getPath", Null)
        Log("Selected file Path: " & filePath)
        Dim FileName As String = fileChooser.RunMethodJO("getSelectedFile",Null).RunMethod("getName",Null)
        Log($"Selected File name:${FileName}"$)
        ' Process the selected file here
    Else
        Log("No file selected.")
    End If

End Sub
'to call it:
    Dim jframe As JavaObject
    jframe.InitializeNewInstance("javax.swing.JFrame",Array(""))
    openFileDialog(jframe)

    Dim fchoose As FileChooser
    fchoose.Initialize
    fchoose.InitialDirectory = "."
    fchoose.InitialFileName = "*.java"
    Dim fname As String = fchoose.ShowOpen(MainForm)
If fname = "" then 
'no file chosen 
Else 
'it contains selected file name and path.
End If

    Dim fchoose As FileChooser
    fchoose.Initialize
    fchoose.InitialDirectory = "."
    fchoose.InitialFileName = "*.jpg"
    Dim fname As String = fchoose.ShowOpen(Root)
    If fname = "" Then
        'no file chosen
    Else
        'it contains selected file name and path.
    End If

java.lang.ClassCastException: class javafx.scene.layout.AnchorPane cannot be cast to class anywheresoftware.b4j.objects.Form (javafx.scene.layout.AnchorPane is in module javafx.graphics of loader 'app'; anywheresoftware.b4j.objects.Form is in unnamed module of loader 'app')

WARNING: package com.sun.javafx.embed.swing.oldimpl not in javafx.swing

Dim result As Int = fileChooser.RunMethod("showOpenDialog", Array(jframe))

    Dim fname As String = fchoose.ShowOpen(Main.MainForm)

Sub Process_Global

   Private jframe As JavaObject



End Sub
Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
    Button1.Text="Open File Dialog"
      
    jframe.InitializeNewInstance("javax.swing.JFrame",Array(""))
   ' jframe.RunMethod("setSize", Array(30, 20)) 'optional
End Sub
Private Sub openFileDialog(frame As JavaObject) As String
    Dim fileChooser As JavaObject
    fileChooser.InitializeNewInstance("javax.swing.JFileChooser", Array(Null))
     Dim result As Int = fileChooser.RunMethod("showOpenDialog", Array(jframe))
    If result = fileChooser.GetField("APPROVE_OPTION") Then
        Dim selectedFile As JavaObject = fileChooser.RunMethod("getSelectedFile", Null)
        Dim filePath As String = selectedFile.RunMethod("getPath", Null)
        Log("Selected file Path: " & filePath)
        Dim FileName As String = fileChooser.RunMethodJO("getSelectedFile",Null).RunMethod("getName",Null)
        Log($"Selected File name:${FileName}"$)
        ' Process the selected file here
    Else
        Log("No file selected.")
    End If

End Sub

'to call it:
  
Private Sub Button1_Click
    openFileDialog(jframe)
End Sub

    Dim filename As String = fchoose.ShowOpen(B4XPages.GetNativeParent(B4XPages.MainPage))