紧急求助，十万火急

Question

就是说我知道一个窗体的名称比如说“Ｆｏｒｍ１”　我要把它Ｓｈｏｗ出来，本来也就简单　Ｆ＝Ｆｏｒｍｓ．Ａｄｄ（“Ｆｏｒｍ１”）　就是了，可是我现在在Ｆｏｒｍ１＿Ｌｏａｄ之前，还有一个属性，　比如说Ｆｏｒｍ１．Ｔｙｐｅ＝＂０２＂　要执行，不能在Ｆｏｒｍ１_Load 之后执行

Answer 1

显示出来，用Show方法不就行么？ 用f=forms.add("form1")有什么区别么？
form有type属性么？

Answer 2

可以绕过去，作1个全局变量，在form_load时候调用或者在form_load之前，Form_Terminate写那个属性等于全局变量

Answer 3

可是我现在在Ｆｏｒｍ１＿Ｌｏａｄ之前，还有一个属性，　比如说Ｆｏｒｍ１．Ｔｙｐｅ＝＂０２＂　要执行，不能在Ｆｏｒｍ１_Load 之后执行+++++++++++++++++++++++++++++++++++++++++
把它写在Form_Initialize（）中就可以了
比如：
private sub form_initialize()
    form1.type="02"
end sub

Answer 4

放在ｆｏｒｍ的Initialize事件中

Answer 5

Ｆｏｒｍ１_Load 之前还有一个事件，Form_Initialize

Answer 6

是这样的　我的窗体的名字全部都在数据库里面，我现在用动态菜单去找到对应的窗体的名字，有些窗体是有定义Ｐｕｂｌｉｃ　的属性的　有不同的参数传进去　　mStrDocType 　是从别的模块赋值的，变量比如说Ｆｏｒｍ１里
Dim mStrDocType as String
Public Property Let DocType(ByVal vNewValue As String )
    mStrDocType=vNewValue
End PropertySub Form_Load() 
     if    mStrDocType="01" then 
                  ........
     else
                  .......
     endif
End Sub
我就是想在Ｆｏｒｍ＿ｌｏａｄ之前去执行　
　Public Property Let DocType(ByVal vNewValue As String )
    mStrDocType=vNewValue
End Propertyprivate sub form_initialize()　好像不是太行吧

Answer 7

试试在 Private Sub Form_Initialize()事件里面
写，他在form_load前运行

Answer 8

大家注意这个　DocType　在我调用的时候只知道那个是一个“DocType”只是一个字条串呀