BarryW Active Member Licensed User Longtime User Jul 27, 2018 #1 how to create a B4J app that run on a fullscreen that cannot be close and cannot be end tru task manager and cannot be minimize. The only way to end that is to click a button from the program itself.
how to create a B4J app that run on a fullscreen that cannot be close and cannot be end tru task manager and cannot be minimize. The only way to end that is to click a button from the program itself.
M micro Well-Known Member Licensed User Longtime User Jul 27, 2018 #2 BarryW said: how to create a B4J app that run on a fullscreen Click to expand... B4X: Dim jfs As JavaObject = MainForm Dim stage As JavaObject = jfs.GetField("stage") stage.RunMethod("setFullScreen", Array As Object(True)) MainForm.Show BarryW said: and cannot be end tru task manager Click to expand... ?? BarryW said: that cannot be close Click to expand... BarryW said: and cannot be minimize Click to expand... B4X: MainForm.SetFormStyle("UNDECORATED") Upvote 0
BarryW said: how to create a B4J app that run on a fullscreen Click to expand... B4X: Dim jfs As JavaObject = MainForm Dim stage As JavaObject = jfs.GetField("stage") stage.RunMethod("setFullScreen", Array As Object(True)) MainForm.Show BarryW said: and cannot be end tru task manager Click to expand... ?? BarryW said: that cannot be close Click to expand... BarryW said: and cannot be minimize Click to expand... B4X: MainForm.SetFormStyle("UNDECORATED")
jahswant Well-Known Member Licensed User Longtime User Jul 27, 2018 #3 The above doesn’t work correctly on macOS use this instead. B4X: Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1 MainForm.WindowWidth = fx.PrimaryScreen.MaxX - fx.PrimaryScreen.MinX MainForm.WindowLeft = fx.PrimaryScreen.MinX MainForm.WindowHeight = fx.PrimaryScreen.MaxY - fx.PrimaryScreen.MinY MainForm.WindowTop = fx.PrimaryScreen.MinY MainForm.Show End Sub B4X: MainForm.SetFormStyle("UNDECORATED") Upvote 0
The above doesn’t work correctly on macOS use this instead. B4X: Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1 MainForm.WindowWidth = fx.PrimaryScreen.MaxX - fx.PrimaryScreen.MinX MainForm.WindowLeft = fx.PrimaryScreen.MinX MainForm.WindowHeight = fx.PrimaryScreen.MaxY - fx.PrimaryScreen.MinY MainForm.WindowTop = fx.PrimaryScreen.MinY MainForm.Show End Sub B4X: MainForm.SetFormStyle("UNDECORATED")