以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  缩放的问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=68258)

--  作者:kenan168
--  发布时间:2014/8/3 15:30:09
--  缩放的问题
如何通过vba,设定画面K的缩放?  比如一个画面一显示 60根  K线自动缩放适应只显示60根 ?  感谢老师
--  作者:王锋
--  发布时间:2014/8/3 19:17:08
--  

Grid对象

 

ShowCount        窗格显示数据量,可与Grid.StartShowIndex配合可以实现画面平移,可读写


--  作者:kenan168
--  发布时间:2014/8/3 20:43:23
--  疑问


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

1 ,在全屏的时候, 为何没办法全部全屏?  下方还有空隙在? 


2, 如何通过VBA控制软件的全屏显示 ? 不是指  shift + U       感谢

3.  如何通过VBA 向金字塔发出键盘信号?    比如 shift + A 组合键



感谢老师
[此贴子已经被作者于2014/8/3 20:44:28编辑过]

--  作者:王锋
--  发布时间:2014/8/4 12:08:12
--  

1,系统就是这么设计的,空隙一般给坐标用,防止文字的一半被遮住,这个无法更改。

2,全屏命令可以使用给菜单发消息来实现 ,参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=8749&page=1&star=1

3,这个功能目前还有待完善,请等待日后的新版


--  作者:kenan168
--  发布时间:2014/8/5 8:29:26
--  感谢回复

感谢您的回复

但在全屏的时候 一直出现  退出窗口, 每次都要去关闭  如何能不显示这个窗口 ?


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2014/8/5 8:29:47编辑过]

--  作者:kenan168
--  发布时间:2014/8/5 8:37:10
--  问题2
这里标题保存后  重新打开  还是没有保存进来?   比如设定  颜色与0  对比
图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看

--  作者:kenan168
--  发布时间:2014/8/5 13:16:44
--  回复

1,系统就是这么设计的,空隙一般给坐标用,防止文字的一半被遮住,这个无法更改。

可是我看了之前的版本好像是全屏显示的,会不会是我配置的问题?

--  作者:王锋
--  发布时间:2014/8/15 14:04:55
--  

快捷键VBA代码

 

sub TEST()
Dim WshShellSet
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate Application.TitleText
WshShell.SendKeys "+u"

END SUB

 

参考资料

 

.特殊功能键
对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示:
特殊控制键 特殊字符
Shift +
Ctrl ^
Alt %
如要发送的组合按键是同时按下Ctrl+E,需要用" WshShell.SendKeys "^e" "表示,