Set console to full screen on Ctrl+E

[Lynn Wakefield]

The console window does not start in CONSOLE SET SCREEN mode as set with CONSOLE SET SCREEN. Is there a way to set it to CONSOLE SET SCREEN on start up? I have to click on the Maximize button to start the application, Thanks

[Adam J. Drake]

There are two ways to do so programatically mentioned here:

http://www.powerbasic.com/support/pbforums/showthread.php?t=16523&highlight=keybd_event

[Lynn Wakefield]

I don't want to go to DOS, I want to maximize the console window to the CONSOLE SET SCREEN on start up of the application.

[Adam J. Drake]

So you want maximized, but not full screen?

[Lynn Wakefield]

So you want maximized, but not full screen?

Yes I want the Console Screen to go to the 'CONSOLE SET SCREEN 60,128' that I set in the program. As it is, on start up with Ctrl E, the CONSOLE window goes to a small window with side bars. Then I have to click on maximize window button to get full screen (a real pain)!
Thanks, Lynn

[Eric Pearson]

Lynn --

What version of Windows are you using?

-- Eric

[Lynn Wakefield]

Lynn --

What version of Windows are you using?

-- Eric

Eric,
I'm running XP Pro on my laptop and XP on my Dell desktop.
Both act the same.

[Fred Buffington]

Lynn, try something like (chage rows/cols to your liking)
may be able to use hConsole AS DWORD

  LOCAL sTitle AS STRING, hConsole AS LONG
  sTitle ="MENU"
  CONSOLE NAME sTitle
  CONSOLE SCREEN 26,80
  hConsole = FindWindow(BYVAL %NULL, BYVAL STRPTR(sTitle))  ' use findwindow to get hwnd
  lResult&=ConsoleWindow(%MAXIMIZE)

of course this is not full screen but rather maximized window.
Actually the hConsole = Findwindow.... is used later to put an icon on the window caption

[Adam J. Drake]

Does this work?

' Needed Declare, equate
DECLARE FUNCTION ShowWindow LIB "USER32.DLL" ALIAS "ShowWindow" (BYVAL hWnd AS DWORD, BYVAL nCmdShow AS LONG) AS LONG
%SW_MAXIMIZE        = 3                                                                                              
'===========================================
' This seems to maximize for me
ShowWindow CONSHNDL, %SW_MAXIMIZE

[Lynn Wakefield]

Does this work?

' Needed Declare, equate
DECLARE FUNCTION ShowWindow LIB "USER32.DLL" ALIAS "ShowWindow" (BYVAL hWnd AS DWORD, BYVAL nCmdShow AS LONG) AS LONG
%SW_MAXIMIZE        = 3                                                                                              
'===========================================
' This seems to maximize for me
ShowWindow CONSHNDL, %SW_MAXIMIZE

This seems to work for me also, thanks to you Adam and all that helped!!