B4J Question Initialize not found in map Contain form as value

[invocker]

I add a form as value in map and i get error when need to initialze the form How resolve it

B4XPages.MainPage.OpenForm.As(Form).Initialize("Svcfrm",600,400)

Error
java.lang.RuntimeException: Method: Initialize not found in: anywheresoftware.b4a.objects.collections.Map$MyMap

 

[Erel]

What is OpenForm? Why do you need to cast it to a Form?

 

[invocker]

openform is a map
project client server , that need to open process form and contact form ... for each client and when client disconnect ,thein their form close also

I can resolve this issue with initialize a form first and add to map but need more powerfull method

 

[Erel]

Your code is wrong.
If OpenForm is a Map then there is no meaning to OpenForm.As(Form). I guess that you are missing a Get call:

OpenForm.Get("some form").As(Form)...

 

[invocker]

Your code is wrong.
If OpenForm is a Map then there is no meaning to OpenForm.As(Form). I guess that you are missing a Get call:

OpenForm.Get("some form").As(Form)...

thank you mr erel it is work now , how can use it for close a form if client disconnect I use it like this but not work perfect

Public Sub Show(info As Map,c As Client)
    checklistsize
    If  B4XPages.MainPage.OpenForm.Size>0 Then
        For Each s As Client In  B4XPages.MainPage.OpenForm.Keys
            If s = c Then
            B4XPages.MainPage.OpenForm.Get(s).As(Form).Close
                B4XPages.MainPage.OpenForm.Remove(s)
                checklistsize
                B4XPages.MainPage.OpenForm.Put(s,Svcfrm) 'add form with client astream as key
                B4XPages.MainPage.OpenForm.get(s).As(Form).Initialize("form",600,400)
                B4XPages.MainPage.OpenForm.get(s).As(Form).RootPane.LoadLayout("ServicesLay")
                B4XPages.MainPage.OpenForm.get(s).As(Form).Title="Services Manager "
                B4XPages.MainPage.OpenForm.get(s).As(Form).Icon= fx.LoadImage(File.DirAssets, "svr.png")
                B4XPages.MainPage.OpenForm.get(s).As(Form).Show
            End If
        Next
    Else
        B4XPages.MainPage.OpenForm.Put(c,Svcfrm) 'add form with client astream as key
        B4XPages.MainPage.OpenForm.get(c).As(Form).Initialize("form",600,400)
        B4XPages.MainPage.OpenForm.get(c).As(Form).RootPane.LoadLayout("ServicesLay")
        B4XPages.MainPage.OpenForm.get(c).As(Form).Title="Services Manager "
        B4XPages.MainPage.OpenForm.get(c).As(Form).Icon= fx.LoadImage(File.DirAssets, "svr.png")
        B4XPages.MainPage.OpenForm.get(c).As(Form).Show
    End If
    fillList(info) 'fill information
    checklistsize
   
End Sub

disconnect form code

Public Sub formDisconnected (c As Client)
    For Each s As Client In B4XPages.MainPage.OpenForm.Keys
        If s = c Then
            B4XPages.MainPage.OpenForm.Get(s).As(Form).Close 'close form of disconnected client
            B4XPages.MainPage.OpenForm.Remove(s)  'remove from map
        End If
    Next
End Sub

 

[Erel]

If B4XPages.Main.OpenForms.Contains(c) Then
 Dim frm As Form = B4XPages.MainPage.OpenForm.Get(c)
 ...
 frm.Title = ".."
 B4XPages.Main.OpenForms.Remove(c)
End If

Your code is correct but not very elegant. See my code for correct usage of maps.

 

[invocker]

Thank you Erel it is work now I change the show code and disconnect and it work Thank you again