[求助]弹出窗口式的控件

[celevantis]

如何做出类似inputbox这种弹出窗口式的控件？请给出思路或实例，谢谢~~~~

[孙小雄]

楼主认为哪里是难点？

[winehero]

作一非可视化控件，控件工程中有一弹出式窗口。为该控件提供共有方法来弹出该窗口，外部调用该方法。

[celevantis]

我做过很多控件，都是插在容器中的。对于这种控件没有思路。能不能给个例子？

[韧恒]

把控件做成不可见的，在控件工程中加一窗体就行了。
控件中加一方法，大致过程如下
Public Function MyInputBox(...) as String
form1.show 1
End Function

[faysky2]

放一个隐藏窗体，想让它弹出的时候Show一下不就行了

[celevantis]

那如何从控件调用这个窗体的变量呢？

[winehero]

晕~~,楼上各位已经说得很清楚了

工程中添加一Form(比如说是Form1)
控件中添加一Public方法,在该方法中以模态Show该窗体就行,如:

public function 方法()
dim fForm1 as Form1
set fForm1=new Form1
fForm1.Show vbModal
end function

[winehero]

要调用窗体变量，可将需要访问的变量通过共有属性/方法等提供
比如上面Form1代码中添加一属性PropTst用来访问其变量m_PropTst as long

Public Property Get PropTst() As Long
PropTst = m_PropTst
End Property
那么在调用方法中就可以使用该属性:
public function 方法()
dim fForm1 as Form1
set fForm1=new Form1
fForm1.Show vbModal
debug.print fForm1.PropTst '显示该属性
end function

[celevantis]

结了，撒分