Remove the EDIT menu that Liberty BASIC automatically adds to the menu bar when program contains a texteditor. Updated August 14, 2006
NoMainWin Menu #main, "&File","E&xit",[quit] Menu #main, "Edit" Texteditor #main.t,10,10,200,200 Open "A Window" For Window As #main #main "trapclose [quit]" hMain=hWnd(#main) hMainMenu=GetMenu(hMain) hMainEdit=GetSubMenu(hMainMenu,1) result=RemoveMenu(hMainMenu,hMainEdit) Call DrawMenuBar hWnd(#main) Wait [quit] Close #main:End 'functions: Sub DrawMenuBar hWnd CallDLL #user32, "DrawMenuBar",_ hWnd As ulong, r As boolean End Sub Function GetSubMenu(hMenuBar,nPos) CallDLL #user32, "GetSubMenu",_ hMenuBar As ulong, nPos As long,_ GetSubMenu As ulong End Function Function GetMenu(hWnd) CallDLL #user32, "GetMenu",hWnd As ulong,_ GetMenu As ulong End Function Function RemoveMenu(hMenu,hSubMenu) CallDLL #user32, "RemoveMenu", hMenu As ulong,_ hSubMenu As ulong, _MF_BYCOMMAND As ulong,_ RemoveMenu As boolean End Function