Here is a hack that hides the top menubar completely. Dim hWnd Dim nWidth Dim nHeight Dim bRepaint
Declare "Function GetForegroundWindow Lib ""Coredll"" () As Long" Declare "Function MoveWindow Lib ""Coredll"" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long" hWnd = GetForegroundWindow MoveWindow hWnd, 0, -26, Output.Width, Output.Height + 26, True >Hi George > >I tried this but the application stops before it has focus to handle >it? >Any other suggestions? > >Regards > >Brian >--- In nsbasic...@yahoogroups.com, "George Henne" <g...@...> wrote: >> >> If you put a Sub Output_Close routine in your program, you can trap >this. >> >> >Hi George >> > >> >ShowFullScreen True stops the display of the menu bar but does not >> >stop the "X" being displayed in the corner... I could live with >this >> >if I could work out how to handle the object and just display a >pop >> >up message or something like that for the time being. >> > >> >All the best >> > >> >Brian >> > >> > >> > >> >--- In nsbasic...@yahoogroups.com, "George Henne" <gh@> wrote: >> >> >> >> Here's one tip: The syntax of ShowFullScreen is now >> >> >> >> ShowFullScreen True >> >> >> >> Trying to hide parts of the UI was giving inconsistant results on >> >> varying devices. >> >> >> >> <http://www.nsbasic.com/ce/info/enhancements.htm> >> >> >> >> >> >> >> >> >Hi >> >> > >> >> >I am working away with the NS Basic software now and developing >a >> >set >> >> >of screens to be autorun on a device. Problem is I am not able >to >> >> >disable the close "X" in the corner of the form. Is there a >simple >> >> >solution to this. >> >> > >> >> >I have tried: >> >> > >> >> > ShowOKButton False >> >> > ShowFullScreen 2 + 8 + 8192 >> >> > >> >> >I also would also like to get rid of the line cursor which >parks >> >> >itself in the opposite corner? >> >> > >> >> >I have tried: >> >> > >> >> > WaitCursor False >> >> > >> >> >Any suggestions would be greatly appreciated. >> >> > >> >> >All the best >> >> > >> >> >Brian >> >> > >> >> > >> >> >------------------------------------ >> >> > >> >> >Yahoo! Groups Links >> >> > >> >> > >> >> > >> >> >> > >> > >> > >> >------------------------------------ >> > >> >Yahoo! Groups Links >> > >> > >> > >> > > > > >------------------------------------ > >Yahoo! Groups Links > > > --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "nsb-ce" group. To post to this group, send email to nsb-ce@googlegroups.com To unsubscribe from this group, send email to nsb-ce+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en -~----------~----~----~----~------~----~------~--~---
