如何在模块中调用窗体的事件？？？？？？

Question

本帖最后由 wanglong3713 于 2013-11-27 16:59:11 编辑

Answer 1

'窗体代码
Public Sub Command1_Click(Index As Integer)
'INDEX=0时代表点击了订单管理按钮
Select Case Index
Case 0
FormA.Show '订单管理窗口
Case 1
FormB.Show '客户管理
Case 2
FormC.Show '商品管理
End Select
End SubPrivate Sub Form_Load()
'三个按钮：Command1(0),Command1(1),Command1(2)
'按钮上文字是：订单管理/客户管理/商品管理
End Sub
模块代码：
Sub TEST()
'模块中模拟调用第一个按钮点击
Call Form1.Command1_Click(0)
End Sub
'重点就是这个Public Sub Command1_Click,前面用PUBLIC就可以共享访问了然后，用INDEX代表不同按钮

Answer 2

我在模块中这样调用：
Call Form1.Command_Click(Index)
            Select Case Index
            Case xx.....编译有错误，提示变量未定义，Index这个变量，如果是
Call Form1.Command_Click(Index As Integer)
            Select Case Index
            Case xx.....  
则提示缺少列表分隔符或）

Answer 3

如果要在模块中调用窗体的事件代码，就得把相应的事件代码从 Private 改成 Public 。其实这样不是很好。
控件的事件代码，一般都是用Private的（当然改成Public也可以）。
还不如把这个“代码”写到一个 Public 过程中。
如果这个过程中的操作，跟窗体的成员（控件、其它对象、变量等）没什么关联，那把它写到模块中更好。
　　如果相关性比较大，则可以写成窗体的  Public 过程。

Answer 4

用 Public定义按钮的事件。

Answer 5

Sub TEST()
'模块中模拟调用第一个按钮点击
Call Form1.Command1_Click(0)
End SubSub TEST2()
'模块中模拟调用第一个按钮点击
Call Form1.Command1_Click(1)
End Sub

Answer 6

 
Call Form1.Command1_Click(0) 括号中的0改成别的数字就能调用不同按钮了呀，哪用的到再弄什么SELECT

Answer 7

我脑子一时转不过来 感觉有点乱 可能我没说清楚问题 是这样的：
在一个form里，就是点击了这一组按钮，都使command_cid2_number = &HCB
Public Sub cmd_get_manage_Click(Index As Integer)
    Select Case Index
    Case 0:
    Case 1:
    Case 2:
    Case 3:
    Case 4:
    Case 5:
    Case 6:
    Case 7:
    Case 8:
    Case 9:
    Case 10:
    Case 11:
    End Select
    command_cid2_number = &HCB 
End Sub
在module的一个函数里，此处我想再根据每个Index的不同给出不同的指令
部分代码：
If command_cid2_number = &H49 Then 
...'根据每个Index的不同给出不同的指令此处如何调用？

Answer 8

错了，是
窗口名称.按钮名称_Click()