VB高手请进，帮帮忙吖。

来源：百度知道 编辑：UC知道 时间：2024/06/07 10:48:01
下面的代码在几个窗体中都有用到，
请问我要怎么把它们放到模块中去呢
这样子的话，我才能够让代码更为简洁些
不用每个窗体都要写同样的这些代码

会的话，麻烦详细说一下哦。谢谢。。
Select Case index
Case 0: Me.Windowstate = vbMinimized
Case 1: End
End Select
还是不行啊，首先，你Call BB(1)只是执行了end这句，之前的没有，如果把1改为index的话，会出现错误提示无效使用Me关键字。这是怎么回事呢？

2楼的说的也不行啊。运行的时候会出现调试窗口，提示要求对象。点调试光标停在了Form处啊。又是怎么了吖？

模块中：
Public Sub FormState(frm As Form, Idx As Long)
Select Case Idx
Case 0: frm.WindowState = vbMinimized
Case 1: End
End Select
End Sub

－－－－－－－－－－
窗体自身调用：
FormState Me, 0
控制其它窗体
FormState Form2, 0

添加一标准模块，在其中写如下代码：
public sub BB(ibdex)
Select Case index
Case 0: Me.Windowstate = vbMinimized
Case 1: End
End Select
end sub
在任一窗体中这样调用：你就不会灵活一点吗？
dim i as integer
i=0'这里改成你想要的数
call BB(i)

模块：
Public Sub abc(From, index)
Select Case index
Case 0: From.WindowState = vbMinimized
Case 1: End
End Select
End Sub

-------------------------------
调用：
（在调用的地点把Form1改为相应的窗体名称）
Dim index
index = 0
abc Form1, index