Italian B4J

[maxware]

Ciao raga
qualcuno sta provando B4J ?
Ciauzzz
Mamo

 

[Spinter]

Si io ,pero se devo essere sincero non vedo il motivo di usarlo? o forse non riesco ad interpretarlo bene io!

 

[ellpopeb4a]

Ciao Mamo ho fatto qualche prova con gli esempi che ha messo Erel sembra funzionare bene un doppio click su Jar e parte come un eseguibile per fare qualcosa di serio aspetto una guida di riferimento e qualche altra libreria in più... Ciao

 

[maxware]

Nel mio caso sto pensando ad una versione di alfadesk per pc ove i dati vengono letti " direttametne" dal dispositivo
Pure io sono ancora in fase di prova. diciamo che ho fatto un form ove leggo il db delle anagrafiche pero' avendo il database messo in locale sul pc
qualcuno ha capito come eseguire da una button un secondo modulo (per b4a lo StartActivity )

 

[Spinter]

'bottone
Sub Button1_MouseClicked (EventData As MouseEvent)
Dim c As classe
c.test
End Sub

'Classe
'Class module
Sub Class_Globals
Private fx As JFX
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize

End Sub

Public Sub test
Main.Text1.Text = "Test"
End Sub

 

[maxware]

Spinter e' per me il codice ?

 

[Spinter]

Si!! chiedevi questo?

 

[maxware]

Ciao Spinter sto cerdando di eseguire un form da un altro form

 

[Spinter]

non riesco a capirti!

 

[maxware]

trovato
da una button action
Dim mf As FrmAna
mf.Initialize(MainForm)
v_ritorno= mf.show
ove Frmana e' una classemodule

nella classe frmana

Sub Class_Globals
Private fx As JFX
Private frm As Form
end sub
Public Sub Initialize (Parent As Form)
frm.Initialize("frm", 300dip, 200dip)
frm.Title = "Choose color"
frm.RootPane.LoadLayout("PanAnagrafiche")
end sub

 

[Spinter]

ho fatto un due prove aprire senza classe!!!!

Librerie B4A :

Sub Process_Globals
	Private fx As JFX
	Private MainForm As Form
	Dim Text1 As TextArea
	Dim Button1 As Button
	Private frm As Form
End Sub

Sub AppStart (Form1 As Form, Args() As String)
	MainForm = Form1
	MainForm.RootPane.LoadLayout("1") 'Load the layout file.
	MainForm.Show
End Sub

Sub Button1_Action
    frm.Initialize("frm", 300dip, 200dip)
	frm.Title = "Choose color"
	frm.SetFormStyle("DECORATED")
	frm.RootPane.LoadLayout("2")
	frm.Show  
End Sub

Sub frm_CloseRequest (EventData As Event)
	frm.Close
End Sub

 

[maxware]

grazie Spinter ..poi ieri pom.. lo avevo trovato in un esempio
Ps. ho trovato questo sito in it utile per il design JavaFx Scene Builer se interessa il link
Ciaooo
Mamo

 

[maXim]

B4J Italia su FacebooK:

​