|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
CPS0204
註冊時間: 2014-08-24 文章: 441
第 1 樓
|
發表於: 星期三 十二月 02, 2015 11:06 am 文章主題: 表單form執行時,如何讓上方的工具列不出現? |
|
|
上方的工具列有 (開啟新檔,開啟舊檔,列印,?) 等那工具列!
如何在do form 時隱藏呢?謝謝! |
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 441
第 2 樓
|
發表於: 星期三 十二月 02, 2015 11:14 am 文章主題: |
|
|
補上圖片 |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 3 樓
|
發表於: 星期三 十二月 02, 2015 1:16 pm 文章主題: |
|
|
後學的做法 :
LOCAL M->SYS_BAR
WITH THIS &&& 儲存各工具列之名稱
.ToolBars[1,1] = "表單控制項"
.ToolBars[2,1] = "表單設計工具"
.ToolBars[3,1] = "查詢設計工具"
.ToolBars[4,1] = "配置"
.ToolBars[5,1] = "報表控制項"
.ToolBars[6,1] = "報表設計工具"
.ToolBars[7,1] = "資料庫設計工具"
.ToolBars[8,1] = "資料集設計工具"
.ToolBars[9,1] = "預覽列印"
.ToolBars[10,1] = "標準"
.ToolBars[11,1] = "調色板"
ENDWITH
FOR M->SYS_BAR = 1 TO 11 &&& 儲存各工具列之狀態
THIS.ToolBars[M->SYS_BAR,2] = WVISIBLE(THIS.ToolBars[M->SYS_BAR,1]) &&& WVISIBLE 判斷表單控制項是否打開
IF THIS.ToolBars[M->SYS_BAR,2]
HIDE WINDOW (THIS.ToolBars[M->SYS_BAR,1]) && 將已顯示的工具列隱藏起來
ENDIF
ENDFOR |
|
回頂端 |
|
|
perry
註冊時間: 2014-07-20 文章: 203
第 4 樓
|
發表於: 星期三 十二月 02, 2015 1:41 pm 文章主題: |
|
|
檢視-工具列 標準 取消
編譯時就不會出現在 exe 中 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 5 樓
|
發表於: 星期三 十二月 02, 2015 5:01 pm 文章主題: |
|
|
三樓的網友,跟我不知道從哪抄來的一樣作法:
代碼: |
****************** ShowToolbar()
* 顯示系統預设工作列
*
* 使用方式:在 MODIFY MEMO 或是 MODYFY REPORT 前 叫用 ShowToolbar
*
FUNCTION ShowToolbar()
DIMENSION SYS_TB [14]
&& Toolbar
SYS_TB[1] = 'Database Designer'
SYS_TB[2] = 'Form Designer'
SYS_TB[3] = 'Print Preview'
SYS_TB[4] = 'Query Designer'
SYS_TB[5] = 'Report Designer'
SYS_TB[6] = 'Database'
SYS_TB[7] = 'Form Controls'
SYS_TB[8] = 'Report Controls'
SYS_TB[9] = 'Report Designer'
SYS_TB[10] = 'Color Palette'
SYS_TB[11] = '配置'
SYS_TB[12] = '調色版'
SYS_TB[13] = '報表设計工具'
SYS_TB[14] = '報表控制項'
nSYSTB = ALEN(SYS_TB,0)
FOR I =1 TO nSYSTB
IF !WVISIBLE (SYS_TB[I]) AND WEXIST(SYS_TB[I])
ACTIVATE WINDOW(SYS_TB[I])
ENDIF
NEXT
ENDFUNC
****************** HideToolbar()
* 隱藏系統預设工作列 繁體那個字衝碼. XD
*
* 使用方式:在 MODIFY MEMO 或是 MODYFY REPORT 後 叫用 HideToolbar
*
FUNCTION HideToolbar()
DIMENSION SYS_TB[14]
&& Toolbar
SYS_TB[1] = 'Database Designer'
SYS_TB[2] = 'Form Designer'
SYS_TB[3] = 'Print Preview'
SYS_TB[4] = 'Query Designer'
SYS_TB[5] = 'Report Designer'
SYS_TB[6] = 'Database'
SYS_TB[7] = 'Form Controls'
SYS_TB[8] = 'Report Controls'
SYS_TB[9] = 'Report Designer'
SYS_TB[10] = 'Color Palette'
SYS_TB[11] = '配置'
SYS_TB[12] = '調色版'
SYS_TB[13] = '報表设計工具'
SYS_TB[14] = '報表控制項'
nSYSTB = ALEN(SYS_TB,0)
FOR I =1 TO nSYSTB
IF WVISIBLE (SYS_TB[I]) AND WEXIST(SYS_TB[I])
DEACTIVATE WINDOW(SYS_TB[I])
ENDIF
NEXT
ENDFUNC
|
_________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 6 樓
|
發表於: 星期五 十二月 04, 2015 12:38 pm 文章主題: |
|
|
ㄟ
後學好像是 承蒙 Syntech 大師的指導 耶 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 7 樓
|
發表於: 星期五 十二月 04, 2015 2:53 pm 文章主題: |
|
|
是嗎?
我搜尋不到.
我忘記是google,紅狐,還是本站得來的. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|