📄 main.prg
字号:
CLEAR ALL
CLOSE ALL
public SysPath
cCurrentProcedure=SYS(16,1)
nPathStart=AT(":",cCurrentProcedure) -1
nLenofPath=RAT("\",cCurrentProcedure)-(nPathStart)
set default to(substr(cCurrentProcedure,nPathStart,nLenofPath))
SysPath=substr(cCurrentProcedure,nPathStart,nLenofPath)
SET CONSOLE OFF
SET SAFETY OFF
SET EXACT ON
SET DELETED ON
SET TALK OFF
SET DATE TO ANSI
SET STATUS BAR OFF
SET DECIMALS TO 2
SET CENTURY ON
_SCREEN.AUTOCENTER=.T.
_SCREEN.WINDOWSTATE=2
do form SysPath+"\登陆界面.scx"
read events
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -