VFP 愛用者社區

狼人 · 註冊時間: 2004-04-23 文章: 37 第 1 樓

此程序此程序需加什么命令才可以使窗口最大化. 首先謝過各位大大.
CLOSE ALL
CLEAR

SET TALK OFF
SET ESCAPE OFF
SET EXCLUSIVE OFF
SET DELETED ON
SET HELP ON
**SET HELP TO Mysoft_HELP.CHM
SET CONSOLE OFF
SET DATE ANSI
SET CENTURY ON
SET SAFETY OFF
SET OPTIMIZE ON
SET SYSMENU OFF
SET STATUS BAR OFF

LOCAL lcSys16, lcProgram
lcSys16 = SYS(16) &&查詢當前運行?#123;序名
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)

CD LEFT(lcProgram, RAT("\", lcProgram))
*-- If we are running MAIN.PRG directly, then
*-- CD up to the parent directory
IF RIGHT(lcProgram, 3) = "FXP"
CD ..
ENDIF
SET PATH TO PROGS, FORMS, ;
MENUS, DATAS, images,reports
DO form login (登入界面)
Read Events

garfield · 發表於: 星期一六月 14, 2004 6:43 pm 文章主題:

....
_screen.WindowState = 2
DO form login (登入界面)
....