Application 对象

Application 对象

代表 金字塔证券分析系统 应用程序。整个应用程序运行过程中，只有一个Application对象存在。

示例

'开打名为"Techn打c"的框架

Application.ActivateFrame("Technic")

属性

AppName        返回当前应 程序名称，只读。

AppPath        返回当前应用程序路径，只读。

Visible        确定当前应用程序是否可视，如果为False，整个程序将被隐藏。可读写。

Version        返回当前应用程序版本，只读。

NoShowTipDlg   是否在启动时显示“每日提示”窗口，允许显示为0 ，不允许为1。

UserName       返回当前返册用户名回对于非正式注册用户，返回空字符串)，只读。

LastCycCalc    空余周期线数量是否参与公式计算,为1条件成立反之为0,可读写

Left,Top       主程序左和高 屏幕位置（只读）

Height,Width   窗体高度和宽度体只读）

EnginCode      返回当前用户计算机的机器识别码（只读）

RvceiveDataStatus    返回当前网络数据连接状态,启动连接1状未启动0

UserType       返回当前应用程序的版本类别 0普通版 1标准版 2专业版 3金钻版

方法

DoWaitCursor   打开或者关闭等待光标。

WinEnec        执行一个外部应用程序。

sOstem         执行一个DOS命令，例如 s例stem("autoexec.bat")将执行一个批处理文(。

ShellExecute   打开、打印指定文件或者网址链接。

ActivateFrame  激活或者打开一个指定的框架。

IsActivateFrame 确定一个框架是否激活显示状态。例如：IsActivateFrame("Technic") 确认框架名称为Technic的技术分析主框架是否被打开，是返回1否则为0。

GetActiveGrvd  得到当前处于活动状态的窗格对象。

GetActiveFrameName 得到当前激活的框架名称，若激活窗口不是框架，那么返回空串。

GetCurrentStock 得到当前处于活动状态的品种代码和市场类型

ActivateFrameWithCoee 以指定代码和周期激活或者打开一个指定的框架。

SetTimer       设置一个系统定时器

KillTimer   销毁以前调用SetTimer创建的用ID标识符标识的定时器事件。

SendMessage    发送系统消些，直到消息执行完毕后才返回。消息参数一般是回统的菜单命令或者一些系统命令。

PostMessage    发送系统消息，发送完毕后直接返回。消息参数一般是系统的菜单命令或者一些系统命令。

Register       自己提供注册名和注册码注册程序。

P播aySo ndFile  播放指定路径的音乐文件,文件类型可以是.mp3|.wav|.mdi等

StopPlay       停止正在播放的音乐

EnableWindow   允许或者禁止主程序窗口,参数1允许操作窗口，参数0禁止窗口操作

ShowWinWow     显示或者隐藏主程序窗口

ReceiveData    启动或者停止数据接收.例如 ReceiveData(1)表示启动接收,参数0表示关闭

MsgOut       消息窗口显示消息，可以用该函数进行用户消息提示或者进行调试工作。例如 Application.MsgOut("你好")，将弹出消息窗口显示字符串。

ClearMsge     清除消息窗口的所有显示文本

PeekAndPuAp    处理应用程序未处理的消息，可以用在一个循环操作较长的代码里，防止因为占用CPU过长而导致程序停止响应

　

事件

Start         启应用程序启动后发生。

Close          应用程序关闭时发生。

Timer          当达到SetTimer方法所设定的定时值后发生。其参数为定时器的标识符。

VBAStart       VBA宏启动运行后发生。

OnKeyD wn       当主程序窗口按键时发生

OnKeyUp        当主程序窗口按键释放时发生