VFP 愛用者社區

[jerryclt]

因為用以下方式, 留不住 SUBMENU:

在表單MAINMENU(As Top-Level Form)的某個button內下了:
DEFINE WINDOW mbw01 FROM 0,0 TO 1,1;
　TITLE '資料表格瀏覽';
　FONT '細明體',12;
　SYSTEM NOCLOSE NOFLOAT NOGROW NOZOOM;
　IN MAINMENU NAME 'SUBMENU'
WITH SUBMENU
　.left=0
　.top=MAINMENU.top+SYSMETRIC(9)
　.width=MAINMENU.width-6
　.height=MAINMENU.top-SYSMETRIC(9)
　.windowtype=1
ENDWITH

SUBMENU.addobject('grid1','Grid')
WITH SUBMENU
　.grid1.left=0
　.grid1.top=0
　.grid1.width=.width
　.grid1.height=.height
　WITH .grid1
　　.setall('Alignment',2,'Header')
　　.setall('FontName','細明體','Column')
　　.setall('FontSize',12,'Column')
　　.setall('FontName','細明體','header')
　　.setall('FontSize',12,'header')
　　.recordsource='_tmpf'
　　.init
　　.visible=.T.
　　.column1.setfocus
　ENDWITH
ENDWITH
ACTIVATE WINDOW mbw01
SUBMENU.show && 加入這行就OK了

又是一閃而過 @@"
所以才想用 BROWSE 命令來做!