vb 类似msgbox窗体

[hq0927]

需要程序效果


语句1
语句2
弹出窗体(含表格),用户选择后返回值
if 值=x then
语名3
else
语句4
end if


希望给出实例代码

[斯赛]

form1

Public a As String
Private Sub Command1_Click()
  Form2.Show vbModal, Me
  
  MsgBox a
End Sub

form2

Private Sub Form_Unload(Cancel As Integer)
 Form1.a = Text1.Text
End Sub

[fvflove]

'增加一个窗体.窗体中有一个按扭 
'窗体名 Form1  按扭名 Command1
'以下代码在此窗体中
Option Explicit

Private Sub Command1_Click()
  MsgBox "你单击了第" & curMsgBox & "个按扭"
End Sub

'增加一个窗体.窗体中有三个按扭 
'窗体名 Form2  按扭名 Command1 Command2  Command3
'以下代码在此窗体中

Option Explicit

Private Sub Command1_Click()
  cIndex = 1
  Unload Me
End Sub

Private Sub Command2_Click()
  cIndex = 2
  Unload Me
End Sub

Private Sub Command3_Click()
  cIndex = 3
  Unload Me
End Sub

'增加一个模块 
'模块名 Module1 
'以下代码在此模块中

Option Explicit

Public cIndex As Integer

Public Function curMsgBox() As Integer
  cIndex = 0
  Form2.Show vbModal, Form1
  curMsgBox = cIndex
End Function

[hq0927]

为什么我用类似的语句会出错??



实时错误 '400'
窗体已经打开;不能显示为有模式的

[fu0212]

语句1
语句2
弹出窗体(含表格),用户选择后返回值
if 值=x then
语名3
else
语句4
end if

键两个窗体
from1中 加入
语句1
语句2
from2.show 1
if 值=x then
语名3
else
语句4
end if

from2中 加入
值 = 表格输入

加一按钮
ME.HIDE

添加一模块
值 as integer

[hq0927]

form1 窗体不能隐藏

[hq0927]

up.....

[tim_zhang]

窗体已经打开;不能显示为有模式的
frm.show 0 即为非模式的窗体了

[hq0927]

up ....................

[hq0927]

再up....................

[hq0927]

高手呢????

[hq0927]

问题未解决 继续up...

[jichenziye7]

UP...