VFP 愛用者社區

wsk · 註冊時間: 2004-01-14 文章: 51 第 1 樓

我先啟動程序檔(program), 後由此程序檔自動啟動一個表單(表單內含有功能表), 但不知為什麼總有一個 "Microsoft Visual Foxpro" 的視窗同時出現, 此視窗只可被最少化, 但不能被關閉, 請問怎樣才可以不讓此視窗出現??? Sad

Ruey · 發表於: 星期一三月 29, 2004 10:21 pm 文章主題:

你是指VFP主表單嗎?
_SCREEN.VISIBLE=.F.

啟動表單再去設定
ShowWindow=2

wsk · 註冊時間: 2004-01-14 文章: 51 第 3 樓

Ruey :
我在程序檔的開頭加入 _SCREEN.VISIBLE=.F. 及在表單的 INIT 加入 THISFORM.SHOWWINDOW = 2 (表單的 SHOWWINDOW 屬性是0), 但畫面一閃就停了, 請問應怎樣做才好呢???

Ruey · 發表於: 星期二三月 30, 2004 5:44 pm 文章主題:

少加入READ EVENTS

程式結束時要加入
CLEAR EVENTS

wsk · 註冊時間: 2004-01-14 文章: 51 第 5 樓

Ruey :
如不加 _SCREEN.VISIBLE = .F. 及 THISFORM.SHOWWINDOW = 2, 程式可正常運作, 但加了後就出現上述問題. 請繼續指教, 謝謝

Ruey · 發表於: 星期二三月 30, 2004 9:04 pm 文章主題:

可以由底下的程式.測試然後自行加入適當的位置

wsk · 註冊時間: 2004-01-14 文章: 51 第 7 樓

Ruey 兄:

下面是我的主程式, 在最後的 DO FORM MENUFORM 就是有功能表的表單, 請問該兩句指令應加在那裡, 請指教!
****************************************
SET EXCLUSIVE OFF
SET SCOREBOARD OFF
SET DATE BRITISH
SET CENTURY ON && show 4-digit year e.g. 26/12/1998
SET TALK OFF
SET SAFETY OFF
SET ESCAPE ON
SET STATUS OFF
SET STATUS BAR OFF
SET MULTILOCKS ON
SET REPROCESS TO 5
SET SECOND OFF

=SYS(3050,1,VAL(SYS(3050,1,0))/3)

IF FILE("c:\dashingaccount\data\cat_3.dbf")
SET PATH TO \dashingaccount\DATA; \dashingaccount && SERVER
ELSE
SET PATH TO \\acserver\DATA$; \dashingaccount && WORKSTATION
ENDIF

PUBLIC Vchange, Vsetpath, S1VC, S1CC, S1BANK, S1SELFBANK, S1FA, S1CA, S1CAP, S1LA, S1RE, S1EX, S1SA, S1BS, S1PD, S1MA, S1PM, S1GL, ;
S1AC, S1CR, S1DS, S1ZP, S1FS, S1WT, S1KL, S1FHT, S1CODING, S1FRONTVIEW, Vwaveprogram

:
:
:
IF Vok && if password is ok, run Mainmenu
DO FORM menuform
ENDIF

Ruey · 發表於: 星期二三月 30, 2004 9:56 pm 文章主題:

主程式開始處

wsk · 註冊時間: 2004-01-14 文章: 51 第 9 樓

Ruey 兄:

按上述提議試驗後, 畫面一閃程式自動完結, 什麼也看不清, 請問怎麼辦??

Ruey · 發表於: 星期二三月 30, 2004 11:14 pm 文章主題:

1.menuform
要把他加上去
SHOWWINDOW = 2

2.底下文章.請讀一下
解決VFP執行檔一閃而過的情形(轉貼)
http://vfp.sunyear.com.tw/viewtopic.php?t=97&highlight=read+events

wsk · 註冊時間: 2004-01-14 文章: 51 第 11 樓

Ruey 兄:

按照您的指引已成功解決了, 真開心, 原來在 do form menuform 之前還有一個 form 忘記加 read events, 加了就 OK !!