以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  函数和Paint()事件之间如何传递参数？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=159532)
--  作者：分析者
--  发布时间：2017/11/14 16:53:02
--  函数和Paint()事件之间如何传递参数？

我在VBA一个模块最顶部申明了一个变量 ：private n1，我理解N1变量在这个模块中都有效,这个模块中写了一个函数，在这个函数中对N1赋值，然后，我在同一个模块中写了Sub Technic_Paint()事件，在其中使用N1变量，这时就出现问题了，发现Sub Technic_Paint()中的N1和之前那个函数赋值后的N1不一样，MSGBOX 弹出N1看是什么都没有。

 

我的目的是把函数中计算后的N1 变量传递到Sub Technic_Paint()事件中使用，请问如何达到这个目的？
--  作者：马良
--  发布时间：2017/11/14 20:34:11
--  
金字塔的模块与vba不同，只是起到帮助管理代码的作用，因此你写的模块的私有变量的声明是没有用的
--  作者：马良
--  发布时间：2017/11/14 20:36:05
--  
金字塔用的是vbs语法引擎，您下次遇到一些问题困惑时可以百度搜一下vbs是否支持以及与vba的区别即可。
--  作者：分析者
--  发布时间：2017/11/15 10:22:31
--  

那请问如何达到我说的参数传递的目的呢？
--  作者：无为剑
--  发布时间：2017/11/15 10:58:02
--  

贴一个能呈现出此问题的范例代码我们看一下，以便我们详细了解你遇到的问题
--  作者：分析者
--  发布时间：2017/11/15 15:10:51
--  

\'该模块主要用来保存自定义公式函数主函数,不要拿做他用

private x1,y1,x2,y2

Function Main01(Formula)

   x1=10
   y1=10
   x2=100
   y2=100
  

end function

 

Sub Technic_Paint()   
    dim x1,y1,x2,y2 
    msgbox x1
    Set grid = Technic.GetGridByName("Main")        
    Grid.DrawEllipse x1,y1,x2,y2,255

End Sub

 

例如上述代码，Main01函数通过PEL语言调用执行，然后在PAINT事件中画图，要使用Main01函数赋值的X1,Y1,X2,Y2，但通过MSGBOX查看X1，发现弹出的窗口中就是一个空白，就是说X1什么值都没有。
--  作者：无为剑
--  发布时间：2017/11/15 17:29:37
--  
将 Technic_Paint()  函数中的 x1,y1 这句变量定义去掉，因为变量你在外部全局已经定义过了，函数过程中你再定义就等于重新定义了x1为局部变量，当然会是空了