以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://weistock.com/bbs/list.asp?boardid=2)
----  [求助]新建框架中能否通过双击一个窗口来达到最其最大化  (http://weistock.com/bbs/dispbbs.asp?boardid=2&id=6705)

--  作者:xiangxiang
--  发布时间:2011/5/30 21:31:26
--  [求助]新建框架中能否通过双击一个窗口来达到最其最大化
请问下建立的新框架中只是建立了几个不同周期有窗口,能否通过双击某一窗口使其达到最大化呢??主要是显示屏感觉不足够大,窗口多几个就感觉看得不是很舒服。。。不知道通过怎样设置可以达到这个样的要求呢?
--  作者:王锋
--  发布时间:2011/5/30 21:51:23
--  
暂时没有这个功能,清关注日后升级版
--  作者:阿火
--  发布时间:2011/5/31 7:57:45
--  

可以通过 VBA实现

 

把代码复制到 相应框架下,框架名改为相应的框架名

Sub Frame2_DblClick()
   Set Grid = Frame2.ActiveGrid().GetMainGrid()
   if Grid.MinuteGraph then
      call Application.ActivateFrameWithCode("MainFrame",Grid.StockLabel,Grid.Market,-1)
   else
      call Application.ActivateFrameWithCode("MainFrame",Grid.StockLabel,Grid.Market,Grid.CycType)
   end if
End Sub


--  作者:xiangxiang
--  发布时间:2011/5/31 18:27:52
--  

谢谢。用代码是解决了,可是双击是大了,但是不能返回呀,只有继续点框架了才能回到框架呀!VBA不在行,如果双击最大化了,再通过双击或都按ESC等返回,需要如何改代码呢?


--  作者:阿火
--  发布时间:2011/5/31 21:53:27
--  

道理还不是一样,再双击 返回原来的框架呗

或者点击框架 重新返回 也挺方便的啊


--  作者:xiangxiang
--  发布时间:2011/6/2 16:24:24
--  

版主,主要是您给我那个代码都没有完全看懂啦

Application.ActivateFrameWithCode("MainFrame",Grid.StockLabel,Grid.Market,-1)
Application.ActivateFrameWithCode("MainFrame",Grid.StockLabel,Grid.Market,Grid.CycType)
这两句话怎么解读都是飘着的。。。。。恳请指导


--  作者:海边的鱼
--  发布时间:2011/6/2 21:06:49
--  金字塔画线问题解决了么?
和我想的是同一个问题,不晓得管理员能否重视????????????????
--  作者:阿火
--  发布时间:2011/6/2 22:08:28
--  

看帮忙文档——编程信息 里的对象说明

这是application这个对象的一个方法,里面说明比我讲解更详细

让我讲解,我也是去把说明复制出来而已

[此贴子已经被作者于2011-6-2 22:08:45编辑过]

--  作者:snnhqm
--  发布时间:2011/12/10 22:56:16
--  

看到论坛中,还有不少类似的帖子:

关于金字塔的框架问题

建议自选框架内的窗口能双击放大或增加窗口放大按钮

金字塔框架下为什么没有这个功能,非常不方便,而文华和博易都

[建议]自定义框架窗口可以任意放大缩小!

建议自设框架里面的主图与副图都能双击放大

自设框架里的副图如何点击放大?

 

 

我把 3楼的方法,再细化一下:

 

假设有两个框架,一个是多窗格的, 命名为“frame1”  , 另一个是单窗格的, 命名为“frame2” 。

“frame1” 和“frame2”下的窗格布局一致。我们双击frame1下的某一窗格时,框架“frame1” 隐藏,

而框架“frame2”激活,同时把frame1下的双击所在窗格的证券代码和周期传递给frame2。

就好像frame1下的窗格被放大一样。

当再次双击frame2时,框架“frame2” 隐藏, 而框架“frame1”激活,就好像frame1中被放大的窗格还原了一样。

 

 

frame1中的代码:

 

Sub Frame1_DblClick()
   Set Grid = Frame1.ActiveGrid().GetMainGrid()
   if Grid.MinuteGraph then
      call Application.ActivateFrameWithCode("Frame2",Grid.StockLabel,Grid.Market,-1)
   else
      call Application.ActivateFrameWithCode("Frame2",Grid.StockLabel,Grid.Market,Grid.CycType)
   end if
End Sub

 

 

 

frame2中的代码:

 

 sub frame2_dblclick() 
 Application.ActivateFrame("frame1") 
 end sub

 

 

 


--  作者:snnhqm
--  发布时间:2011/12/10 23:37:10
--  
图片点击可在新窗口打开查看