Question

在vb中，有一个变量x我想把这个变量x=10代表的值作为窗体10.show，怎么做？

还有一个问题，在程序运行中新建的一个窗体
我是想让它点一下就新出来一个一样的窗体，但是不能一个个窗体先去编辑好
每一个新出来的窗体大概是一样的，但是上面的一些数字要递增，怎么做？
Dim desk9 As Form

Set desk9 = New desk1
desk9.Show

用这个新建窗体的

Answer 1

主工程里新建2个窗体

一个启动窗体Form1，一个类窗体ClassForm

在类窗体ClassFom中不用写入任何代码

Form1窗体代码如下

Option Explicit
Option Base 1

Private s(5) As New ClassForm
Private Ns As Variant

Private Sub Form_Click()    
    Static n As Integer
    n = n + 1
    s(n).Caption = n & Ns(n)
    s(n).Show    
End Sub

Private Sub Form_Load()
    Ns = Array("号桌送去菜单", "号桌点餐", "号桌上小吃饮料", "号桌上主食", "号桌上甜品", "号桌埋单")
End Sub

当工程运行后，每当你点击一次启动窗体，就会新建一个你说的那种窗体

不知道这样是否满足你要求

追问

谢谢你，这个问题已经基本解决了，用一个全局变量+句子代替递进了
关于新建的窗口名字怎么也用这个变量+号桌代替求解

怎么让每一新弹出来的窗口都往左下角移一点点啊？就像windows看很多个窗口一样

追答

窗体有个属性StartUpPosition，在属性面板把他设置成0（手动）
然后动过代码设置窗体的Left和Top属性就可以设置窗体启动的初始位置

这个方法有个缺点，就是StartUpPosition属性只能通过属性面板设置
无法通过代码动态设置

如果想完全动态设置，必须使用API

Answer 2

定义窗体动态数组

定义:
Dim desk[] As Form
dim count as integer
新建：
redim preserve desk[count] as Form
Set desk[count] = New desk1
desk[count] .Show
count=count+1

追问

不能用[]怎么破？语句错误

追答

哦哦，应该是括号，跟c#混了

Answer 3

这个是窗体间的参数传递。你的窗体有几个地方要递增？

追问

基本上都是显示的文字，还有窗口的名字

追答

不多的话可以用tag属性。如desk9.tag="n1,v2,一堆参数" 然后在desk1的load的事件中读取自己的tag属性。如me.label1.caption=me.tag 参数多先切一下 strArr=split(me.tag,",")然后label1=strArr(0)

如果特别多可以添加一个模块，在里面定义public的变量。在desk1的load事件中读取

追问

好吧我太弱了完全搞不清楚，能不能帮我写一下。。。。。。
tmsg(1) = "1号桌送去菜单"
tmsg(2) = "1号桌点餐"
tmsg(3) = "1号桌上小吃饮料"
tmsg(4) = "1号桌上主食"
tmsg(5) = "1号桌上甜品"
tmsg(6) = "1号桌埋单"
这种
我在主界面有一个s变量只想把这些改成s号桌，还有窗口名字改成s号桌。。。
大侠请务必帮我一把！

追答

主窗体的某个按钮可直接这样写
Private Sub Command1_Click()
Dim desk(1 To 9) As desk0 '假设有9张桌子，对应的窗口数组为9。原始桌子窗体名为desk0
Dim tmsg(1 To 6) As String '这个是你的事件
tmsg(1) = "号桌送去菜单"
tmsg(2) = "号桌点餐"
tmsg(3) = "号桌上小吃饮料"
tmsg(4) = "号桌上主食"
tmsg(5) = "号桌上甜品"
tmsg(6) = "号桌埋单"
'----------------------------------华丽的分割线----------------------------------------

For i = 1 To 9 '循环出现9个桌子窗体
Set desk(i) = New desk0
With desk(i) '批量修改
.Caption = i & "号桌" '新窗体的标题栏
rndevent = Int(Rnd * 6 + 1) '随机生成事件
.Label1 = i & tmsg(rndevent) '新窗体中的用于显示事件的标签控件，vb6.0中可以直接这样改
.Show '显示新窗体，后面四行是为了将这9个窗体排列整齐
.Width = 5000
.Height = 3000
.Left = (i Mod 3) * 5000
.Top = ((i - 1) \ 3) * 3000
End With
Next
Me.Show '让主窗体在最前面
End Sub