经常使用的stk的vbs语句 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

经常使用的stk的vbs语句

我把自己经常使用的stk的vbs语句供出,希望大家一起交流

1:打开网页

Application.ShellExecute "open", "http://share.jrj.com.cn/cominfo/default_"&Label&".htm", "", "", 1 '金融街个股频道

2:运行应用程序
Application.WinExec "E:\dzh2\dzh2.exe", 1

3:激活或者打开一个指定的框架
Application.ActivateFrame "ReportPro" '激活或者打开一个指定的框架

4:APPLICATION_VBAStart 应用程序启动时发生
Sub APPLICATION_VBAStart()
UserForm2.show
UserForm2.Move 170,-28,53,1000 '初始化UserForm2窗体

End Sub

5:获得焦点股票代码
dim Label
dim Market
Result = Application.GetCurrentStock(Label,Market) '获得焦点股票代码
if Result = 0 then
msgbox "请选择一个品种"
exit sub
end if

6:调用MSie的剪贴板实现复制股票代码

dim Label
dim Market
Result = Application.GetCurrentStock(Label,Market)
if Result = 0 then
msgbox "请选择一个品种"
exit sub
end if

Set objIE = CreateObject("InternetExplorer.Application") '调用MSie的剪贴板实现复制股票代码
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", Label
objIE.Quit

msgbox "已成功将"&Market&Label&"复制到粘贴板"

7:加载窗体时显示最大和最小按钮

Sub UserForm2_Load() '加载窗体时显示最大和最小按钮
UserForm2.MinButton=1
UserForm2.MaxButton=1
End Sub

8:窗体move方法.可用于改变窗体的尺寸,克服vbs在窗体尺寸控制的缺陷

Sub UserForm2_Click() ' 单击窗体时展开窗体
call UserForm2.Move (170,-28,200,1000)
End Sub

Sub UserForm2_DblClick(Cancel) '双击窗体时收缩窗体
call UserForm2.Move (170,-28,53,1000)
End Sub

主题：经常使用的stk的vbs语句