VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

文號: Q285672
最後更新日期:February 23, 2001
本文資訊適用於:
• Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0

概述
在 Visual FoxPro (VFP) 中創建的表單的大小和位置在不同的實例間不會自動保存. 但是, 可以在你用 VFP 創建的表單中構造這種能力.
更多資訊
以下代碼使用在 Registry.prg 文件中定義的 Registry 物件. 該程式同 VFP 5.0 和 6.0 同時發佈可以在 Samples\Classes 中找到. 該目錄在 VFP 5.0 中位於默認的 HOME() 目錄中, 在 VFP 6.0 中包含在 MSDN 幫助中.

重要:爲使用該代碼你必須可以訪問 Registry.prg.

要使用該代碼, 按以下步驟:
1. 啓動 VFP 並創建一個新表單.
2. 在表單功能表中, 單擊新建屬性來創建一個新的屬性. 命令新屬性爲 oReg. 然後創建另一個新屬性並命名它爲 Save_Size_Pos. 修改 Save_Size_Pos 屬性的值爲 .T., 但不要改變 oReg 屬性值.
3. 粘貼以下代碼到表單的 Load 事件中:
4. *-----------------------------------
5. * PROCEDURE Load
6. *
7. * AUTHOR: Trevor Hancock, Microsoft
8. * (TREVORH@MICROSOFT.COM)
9. * CREATED: 2/6/2001 12:48:04 PM
10. * for Microsoft Knowledge Base
11. * article Q285672.
12. * ABSTRACT: The code writes the form size and position
13. * to the registry in order to retain
14. * these values between instances.
15. *-----------------------------------
16.
17.
18. *!* 該代碼使用一個應用程式名作爲
19. *!* HKCU\Software 下的根入口. 這會從另一個應用程式物件傳遞,
20. *!* 但爲了簡單這裏採用了硬編碼的方式.
21. #DEFINE AppName [A Fox Test]
22. #DEFINE HKEY_CURRENT_USER -2147483647
23.
24. *!* 如果你使用該表單作爲你的所有表單的基類,
25. *!* 一些 (如對話方塊) 可能不需要保存它們的大小和位置.
26. *!* 要達到這一點, 可以設置表單屬性 Save_Size_Pos.
27. *!* .T. 表示要保存表單的大小和位置.
28. IF THIS.Save_Size_Pos
29. WITH THIS
30. LOCAL lnKeyExist, lnTop, lnLeft, lnWidth, lnHeight, lcFormKey
31. lcFormKey = [SOFTWARE] + [\] + AppName + [\] + .NAME
32.
33. ************ START DEV OPTIONAL BLOCK **************
34. * 在 VFP 6.0 中你可以在這裏使用 NEWOBJECT() 代替
35. * SET PROCEDURE 和 CREATEOBJECT():
36. *
37. * .oReg = NEWOBJECT([REGISTRY],HOME(2)+ [CLASSES\REGISTRY.PRG])
38. *
39. * 如果你在一個 .exe 文件中使用該表單, 你應該移去
40. * 這些代碼塊並包含 Registry.prg 到你的專案中.
41. *
42. IF [5] $ VERSION()
43. SET PROCEDURE TO HOME()+ [\SAMPLES\CLASSES\REGISTRY.PRG] ADDITIVE
44. ELSE
45. SET PROCEDURE TO HOME(2)+ [CLASSES\REGISTRY.PRG] ADDITIVE
46. ENDIF
47. *
48. ********************* END *********************
49.
50. .oReg = CREATEOBJECT([REGISTRY])
51.
52. *!* 檢查註冊鍵值. 如果鍵不存在, 你會接收到一個正數.
53. lnKeyExist = .oReg.OpenKey(lcFormKey, HKEY_CURRENT_USER)
54. .oReg.CloseKey()
55.
56. IF lnKeyExist > 0 && 值不存在, 因此創建它.
57. .oReg.OpenKey(lcFormKey,HKEY_CURRENT_USER,.T.)
58. .oReg.SetRegKey([Top], [0], lcFormKey, HKEY_CURRENT_USER)
59. .oReg.SetRegKey([Left], [0], lcFormKey, HKEY_CURRENT_USER)
60. .oReg.SetRegKey([Width], ALLTRIM(STR(.WIDTH)), lcFormKey, HKEY_CURRENT_USER)
61. .oReg.SetRegKey([Height], ALLTRIM(STR(.HEIGHT)), lcFormKey, HKEY_CURRENT_USER)
62. ENDIF
63.
64. *!* 讀取表單的大小和位置值.
65. .oReg.GetRegKey([Top], @lnTop, lcFormKey, HKEY_CURRENT_USER)
66. .oReg.GetRegKey([Left], @lnLeft, lcFormKey, HKEY_CURRENT_USER)
67. .oReg.GetRegKey([Width], @lnWidth, lcFormKey, HKEY_CURRENT_USER)
68. .oReg.GetRegKey([Height], @lnHeight, lcFormKey, HKEY_CURRENT_USER)
69. .oReg.CloseKey()
70.
71.
72. *!* 設置表單的大小和位置.
73. *!* 註冊值是 CHARACTER, 因此需要轉換它們.
74. .TOP = ROUND(VAL(lnTop),0)
75. .LEFT = ROUND(VAL(lnLeft),0)
76. .WIDTH = ROUND(VAL(lnWidth),0)
77. .HEIGHT = ROUND(VAL(lnHeight),0)
78. ENDWITH
ENDIF
79. 粘貼以下代碼到表單的 Destroy 事件中:
80. *-----------------------------------
81. * PROCEDURE Destroy
82. *
83. * AUTHOR: Trevor Hancock, Microsoft
84. * (TREVORH@MICROSOFT.COM)
85. * CREATED: 2/6/2001 12:48:04 PM
86. * for Microsoft Knowledge Base
87. * article Q285672.
88. * ABSTRACT: The code writes the form size and position
89. * to the registry in order to retain
90. * these values between instances.
91. *-----------------------------------
92.
93. *!* The code uses an application name as the root entry
94. *!* under HKCU\Software. This could be passed from
95. *!* an application object, but for simplicity it is
96. *!* hard coded here.
97. #DEFINE AppName [A Fox Test]
98. #DEFINE HKEY_CURRENT_USER -2147483647
99.
100. *!* If you use this form as a base class for all your forms,
101. *!* some (such as dialog boxes) might not need to have their
102. *!* size and position saved. To facilitate this,
103. *!* a Boolean property (Save_Size_Pos) of the form
104. *!* can be set. .T. = Save the size and position.
105. IF THIS.Save_Size_Pos
106. WITH THIS
107. PRIVATE lcFormKey
108. lcFormKey = [SOFTWARE] + [\] + AppName + [\] + .NAME
109.
110. *!* 寫表單的大小和位置到註冊表.
111. *!* 我們不檢查鍵 ( 因爲我們已經在 THIS.LOAD() 中這樣做了)
112. *!* 因爲我們知道入口是存在的 ( 在 THIS.LOAD() 中創建).
113. .oReg.SetRegKey([Top], ALLTRIM(STR(.TOP)), lcFormKey, HKEY_CURRENT_USER)
114. .oReg.SetRegKey([Left], ALLTRIM(STR(.LEFT)), lcFormKey, HKEY_CURRENT_USER)
115. .oReg.SetRegKey([Width], ALLTRIM(STR(.WIDTH)), lcFormKey, HKEY_CURRENT_USER)
116. .oReg.SetRegKey([Height], ALLTRIM(STR(.HEIGHT)), lcFormKey, HKEY_CURRENT_USER)
117. ENDWITH
ENDIF
118. 保存並運行該表單.
119. 移動並調整該表單的大小, 然後關閉它.
120. 再次運行表單.
每次你運行表單, 注意它會出現在你上次關閉它時的位置且大小也是你上次關閉它時的大小.
參考
(c) Microsoft Corporation 2001, All Rights Reserved. Contributions by Trevor Hancock, Microsoft Corporation.
附加查詢關鍵字: SIZE RETAIN POSITION WIDTH HEIGHT FORMS AUTOMATIC
關鍵字 : kbCtrl kbDesigner kbOOP kbvfp500 kbvfp600 kbGrpDSFox kbDSupport kbCodeSnippet
問題類型 : kbhowto
技術 :