等级: 标准版
- 注册:
- 2021-5-20
- 曾用名:
|
Sub Wxm_06_Mousedown(Button, Shift, x, y)'点击鼠标时激活窗口与交易明细GRID关联,自动更换交易品种
'MsgBox 0
StockLabel= Wxm_06.ActiveGrid.StockLabel
Stockmarket= Wxm_06.ActiveGrid.Market
Stockname= Wxm_06.ActiveGrid.StockName
select case shift
case 0'未按下键盘
'set grid=Wxm_06.GetGridByName("Window6-0")
'grid.ChangeStock stocklabel,Stockmarket
'grid.ReInitDataFormula
case 1'按下SHIFT点击左键显示form1窗口
'Set Grid = Wxm_06.GetGridByName("Window100")
form1.Show
case 2'按下CTRL显示点价下单窗口
application.PostMessage(33885)
case 3'按下CTRL+Shift平仓
End select
End Sub
以上代码是VBA中按住CTRL键点击一个窗口中的不同窗格(合约品种不同),并调用点价下单窗口,发现第一个点击的窗格可以正常显示,接下来再点击的窗格价位会正常显示出来但是合约品种和名称却不变
如图
|
|