用vb6.0 如何实现通用的界面调用功能!

[hyperboy]

各位朋友!
我需要用vb6.0实现通用的界面调用功能.也就是说假设有客户界面和产品界面,要用一个过程调用,根据不同的参数分别调用一个界面.最好有点代码提示.
先多谢各位!

[Un1]

放一个scriptlet控件在form上，所有窗体定义，代码匀放在外不的html文件内。

[Tyro]

不懂什么意思！根据不同的参数，把不同的form显示出来不就可以了吗？

[bamboo]

同意Tyro的意见。

[hyperboy]

多谢大家!
我的意思是: 我定义一个变量a,把form的名字赋值给a后,我只调用a就可以调用出相应的界面.就象foxpro的宏操作.
希望大家多多提出 好的建议.

[Un1]

那又是msscript.ocx了。

[mafangsan]

当然可以
你定义一个变量a Dim a As Form
根据不同的参数给a赋值
if …… then
Set a = Form1
else
set a=Form2
End if
再用a.Show显示窗体

[czh918]

fm 是当前所在的form,sm是你所要显示的通用form
在通用form上有一个公用变量flag,当通用form执行一个操作时，对flag置同的值，如
2表示确定键按下，3表示取消键按下等等。
Public Sub RunSubForm(fm As Form, sm As Form)
With sm
If Not fm Is Nothing Then
fm.Enabled = False
End If
Set osm = sm
Set ofm = fm
.Show
RaiseEvent PreSet(sm)
.flag = 0

Do While .flag = 0
DoEvents
Select Case .flag
Case Is = 0
Case Is = 2
RaiseEvent OkPress(sm)
Case Is = 3
RaiseEvent CancelPress(sm)
Case Is = 1
RaiseEvent Com1Press(sm)
Case Is = 4
RaiseEvent com2press(sm)
Case Else
RaiseEvent comnpress(sm, .flag - 4)
End Select
Loop

Unload sm
If Not fm Is Nothing Then
fm.Visible = True
fm.Enabled = True
fm.SetFocus
End If
End With
End Sub

[Janven]

我以前做过的一个媒体控制程序，就是和mafangsan所说的一样，调用不同的媒体遥控器界面。最好在新窗体的Tag属性加上标识，比较方便识别。