按键精灵与VB的关联！

  我在按键精灵里写好一些子程序..........

  用按键精灵自定义界面 show出了 form窗体..........

  然后用该form 的控件WebBrowser 运行游戏界面，并且用菜单编辑器做好了做好菜单命令..........

  然后想用菜单命令的单击事件调用按键里的那些子程序...........

  发现是不可以直接调用......

  后来想用自定义界面的类模块定义全局变量  结果还是不能在按键精灵里调用


  要怎么样才能实现这样的功能呢？

  本人属于大菜鸟，VB编程学得非常浅薄，所以对一点点问题就搞得晕头转向了

  希望走过路过能驻足片刻，帮忙看下这个东西.......

  小弟在此先谢过了！！！！！！！！！！

  ********************以下为源代码区*********************************************
      Private Sub UserControl_Initialize()
             FormSizeCX = Width
             FormSizeCY = Height
      End Sub

     Public Sub OnSave()
          ClearControlData
     End Sub

     Public Sub OnLoad()

     End Sub

    Public Sub Label7_Click()
      Form1.Show 1  '调用显示窗体1

    End Sub
      （********该段为VB自定义界面的控件区代码*******************）

*************************************************************************************
       Private Sub Form_Load()
                WebBrowser1.Navigate Text1.Text  '打开网页
                TZ_gj.Enabled = False             ’初始化菜单编辑器（停止挂机）的激活状态
                fb_tz.Enabled = False             ’初始化菜单编辑器（停止副本）的激活状态
       End Sub

    Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
         Cancel = True
         WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
    End Sub

   菜单编辑器还有开始挂机选项开始副本选项
           （***************以上为个人编写的 form1代码********************）

******************************************************************************************************
Option Explicit
   Public ControlDataCollection As New Collection

   Rem 我定义的全局变量（不能跨界使用，无法调用）
   Public runBoleean As Boolean

   ‘以下按键精灵自定义界面自带的代码
   Public Sub SaveControlData(ControlName As String, ControlValue As Variant)
      If VarType(ControlValue) = vbBoolean Then
          ControlValue = CInt(ControlValue)
     End If

      Dim TempControlData As ControlData
      With TempControlData
         .Name = ControlName
         .Value = ControlValue
     End With

     ControlDataCollection.Add TempControlData, ControlName
  End Sub

  Public Function LoadControlData(ControlName As String) As String
       LoadControlData = ControlDataCollection(ControlName).Value
  End Function

  Public Sub ClearControlData()
     On Error Resume Next
     Set ControlDataCollection = Nothing
     Set ControlDataCollection = New Collection
  End Sub
      (***********以上是按键精灵VB自定义界面自带的代码********************)

*********************************************************************************



（**************执行代码都写在按键精灵里面了******************）

  比如：单击菜单选项的《开始挂机》
  然后在《开始挂机》的单价事件里面 call 按键精灵的挂机子程序
  发现无法直接实现。

  开始位置：自定义界面  show form1
  事件：开始挂机的单击事件

  接收位置：按键精灵代码区
  调用：按键精灵挂机子程序  call  开始挂机

  执行位置：游戏窗口form1





--------------------编程问答-------------------- 可以把窗体做成重新设计成.oxc控件导入到按键精灵中

补充：VB ,  多媒体