Italian B4J - Passare da un Modulo di codice ad un'altro

[GIS]

che stressss. Ho trovato in un esempio funzionante che per passare ad un'altro modulo utilizza nomemodulo.Show e successivamente chiude il precedente con nomemodulo.close a me non mi da la possibilita di inserire .Show. Mi da solo due opzioni o .AppStart o .Process.Globals
Allego file.
Come devo fare, o meglio cosa sbaglio?

#Region Project Attributes
    #MainFormWidth: 800
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    
    MainForm = Form1
    MainForm.RootPane.LoadLayout("mio") 'Load the layout file.
    MainForm.SetWindowSizeLimits(400, 400, 800, 800)
    Form1.Title = "MEMORY Ver.4.0 By 184"
    MainForm.Show
End Sub
Sub MenuBar1_Action
    Dim mi As MenuItem = Sender
    
    'Log(mi.text)
    If mi.Text = "CODICI BOBINE" Then Log("CODICI BOBINE")
    If mi.Text = "STAMPA ETI.BOBINE" Then Log("STAMPA ETI.BOBINE")
    If mi.Text = "SCHEDE" Then     
        Log("SCHEDE")
        
        sSchede
    End If
    
    If mi.Text = "MT. LINEA" Then Log("MT. LINEA")
    
End Sub

Sub sSchede
    
    '*****************************************
        mSchede.?????????????????
        MainForm.Close
    
    '****************************************
End Sub


'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

 

[LucaMs]

Premesso che in questo momento non sono al massimo della lucidità... qual'è il problema?

Ho effettuato una sorta di login, arrivato allo User Form e il Logout mi riporta al form di Login.

Cosa vuoi ottenere, invece?

 

[GIS]

quello è solo un esempio che ho trovato per il passaggio tra due moduli...il mio è quello che ho messo nel code:


sub sSchede

 

[LucaMs]

Allora...

Erel crea un modulo di codice per ogni Form, in quell'esempio.

In ognuno di quei moduli di codice, dichiara un Form, crea una routine Show che inizializza (se necessario) un Form e lo mostra (show).

Se non è chiaro, allega il tuo progetto oppure mandamelo in privato, che se non m'addormento gli dò un'occhiata

 

[GIS]

non ti basta quello che ho messo nel Thread di apertura?

 

[LucaMs]

non ti basta quello che ho messo nel Thread di apertura?

mSchede.?????????????????

No, perché no so cosa sia mSchede.

Dovrebbe essere un modulo di codice fatto più o meno come il LoginForm o lo UserForm dell'esempio, con la routine Show.

 

[GIS]

ok

 

[LucaMs]

Erel ha la (buona) abitudine di creare un modulo di codice per ogni Form che utilizza.

 

[GIS]

grazie!! ma che cavolo ci hai fatto??

 

[LucaMs]

Oggi ho festeggiato... l'ennesima non vincita al Lotto/SuperEnalotto )

 

[GIS]

il problema era questo?

Public Sub Show
    If frm.IsInitialized = False Then
        frm.Initialize("frm", 400, 400)
        frm.RootPane.LoadLayout("vSchede")
    End If
    frm.Show
End Sub

 

[LucaMs]

grazie!! ma che cavolo ci hai fatto??

Aggiunto al modulo di codice mSchede la routine pubblica Show, dopo aver dichiarato la variabile frm nella Process_Globals

 

[LucaMs]

il problema era questo?

Public Sub Show
    If frm.IsInitialized = False Then
        frm.Initialize("frm", 400, 400)
        frm.RootPane.LoadLayout("vSchede")
    End If
    frm.Show
End Sub

Non c'era proprio quella routine nel modulo mSchede; e, in questo modulo, non era proprio dichiarato il form "frm"

 

[GIS]

Non c'era proprio quella routine nel modulo mSchede; e, in questo modulo, non era proprio dichiarato il form "frm"

ok capito!!ty