obj=_screen.activeform.activecontrol
if inlist(obj.baseclass,"Textbox","Editbox","C ombobox")
obj.fontsize=this.value
endif
粗体命令按钮 CLICK事件 obj=_screen.activeform.activecontrol
if inlist(obj.baseclass,"Textbox","Editbox","C ombobox")
obj.FONTBOLD=!OBJ.FONTBOLD
bj=_screen.activeform.activecontrol
if inlist(obj.baseclass,"Textbox","Editbox","C ombobox")
• 菜单文件 .MNX,.MNT; • 生成和执行菜单程序 : 菜单----生成
菜单程序文件: .MPR 命令: DO 文件名.MPR 项目管理器---运行
9.1.4 配置VFP系统菜单(自学)
• SET SYSMENU 命令
–SET SYSMENU ON|OFF|AUTOMATIC|TO [ 菜 单 列 表 ]|TO [ 菜 单 标 题 列 表 ] |TO[DEFAULT]|SAVE|NOSAVE
9.2.3 添加到表单集中
• 打开表单 • 创建表单集 • 从项目管理器拖动
9.2.4 定制工具栏运行状态
• MOVABLE:是否可用鼠标拖动 • DOCK方法:泊留状态 DOCK(NLOCATION[,X,Y])P268 表 INIT:THIS.DOCK(0)