Command Args 对应的窗口名称或动作
Open W_Cai_Gou
Open W_Ying_Yun
Open W_Pei_Song
Open W_Cai_Kuai
Open W_Cha_Xun
Open W_Guan_Li 管理维护系统
Open
Open
Halt True Exit the program.
在button 上编写:
on (press) {
fscommand("Open", "W_Cai_Gou");
}
.........
在pb 6.5 下编写:
窗口open()
装载flash 并播放。
在ole_1 控件上的fcommand ()事件编程
choose case command
case 'Open'
choose case args
case 'W_Cai_Gou'
OpenWithParm(w_mdi_frame, "1")
case 'W_Ying_Yun'
OpenWithParm(w_mdi_frame, "2")
case 'W_Pei_Song'
OpenWithParm(w_mdi_frame, "3")
case 'W_Cai_Kuai'
OpenWithParm(w_mdi_frame, "4")
case 'W_Cha_Xun'
OpenWithParm(w_mdi_frame, "5")
case 'W_Guan_Li'
OpenWithParm(w_mdi_frame, "6")
end choose