这道题怎么做啊,求大神帮助,
展开全部
创建工程,面三窗体: 主窗体(form1) 窗体1(form2) 窗体2(form3)
主窗体:
"窗体1"按钮:
Static a As Integer
a = a + 1
Form2.Show
me.Label2.Caption = "窗体1显示数:" + Str(a)
Me.Hide
"窗体2"按钮:
Static a As Integer
a = a + 1
Form3.Show
me.Label3.Caption = "窗体2显示数:" + Str(a)
Me.Hide
"退"按钮
unload form1
unload form2
unload form3
窗体1:
"主窗体"按钮:
Static a As Integer
a = a + 1
Form1.Show
Form1.Label1.Caption = "主窗体显示数:" + Str(a)
me.Hide
"窗体3"按钮:
form1.command2.value=true
me.Hide
窗体2:
"主窗体"按钮:
form2.command1.value=true
me.Hide
"窗体2"按钮:
form1.command1.value=true
me.Hide
主窗体:
"窗体1"按钮:
Static a As Integer
a = a + 1
Form2.Show
me.Label2.Caption = "窗体1显示数:" + Str(a)
Me.Hide
"窗体2"按钮:
Static a As Integer
a = a + 1
Form3.Show
me.Label3.Caption = "窗体2显示数:" + Str(a)
Me.Hide
"退"按钮
unload form1
unload form2
unload form3
窗体1:
"主窗体"按钮:
Static a As Integer
a = a + 1
Form1.Show
Form1.Label1.Caption = "主窗体显示数:" + Str(a)
me.Hide
"窗体3"按钮:
form1.command2.value=true
me.Hide
窗体2:
"主窗体"按钮:
form2.command1.value=true
me.Hide
"窗体2"按钮:
form1.command1.value=true
me.Hide
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询