B4J Question Initialize not found in map Contain form as value

invocker · Dec 5, 2022

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

B4X:

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 · Dec 8, 2022

B4X:

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.

Erel · Dec 5, 2022

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

invocker · Dec 5, 2022

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 · Dec 6, 2022

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:

B4X:

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

invocker · Dec 7, 2022

Erel said:
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:

B4X:

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

B4X:

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

B4X:

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 · Dec 8, 2022

B4X:

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 · Dec 8, 2022

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

B4J Question Initialize not found in map Contain form as value

invocker

Active Member

Erel

Erel

B4X founder

invocker

Active Member

Erel

B4X founder

invocker

Active Member

Erel

B4X founder

invocker

Active Member

Similar Threads

B4J Question Initialize not found in map Contain form as value

Active Member

B4X founder

Active Member

B4X founder

Active Member

B4X founder

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency