在FormA的UnoLoad事件中:
FormB.Show
FormB.Show
解决方案 »
- 急!如何对记录集进行快速筛选
- vb编写dll文件提示找不到dllinstall注入点
- 关于vb里的Msflexgrid控件的使用?想请教各位了,实在紧急!
- Treeview节点数超过35565还能遍历么?
- 不好意思问一个很???的问题我该如何给别人分.
- VB 划线段的延长线
- 数据库连接等待中……如何让鼠标变化显示?
- 求整理VB代码格式的插件吗?给分100
- 请kimryo(kimryo)拿分
- 在使用vb.net-acess通过dataAdapter对象的insertcommand属性向数据库中添加纪录时出现字符串语法错误的提示,求解答!!
- 一个极简单的问题!答了就有分!!!
- ListBox可以加横向的滚动条吗?
Form2.WindowState = 2
Option ExplicitPrivate Sub Form_Load()
FormA.Show
FormB.Show
FormA.Caption = a
FormB.Caption = b
End SubPrivate Sub Form_Resize()
If FormA.WindowState = 1 Then FormB.WindowState = 2
End SubPrivate Sub Form_Unload(Cancel As Integer)
End
End Sub
____________________________________________________________________
'code of form b
Option ExplicitPrivate Sub Form_Resize()
If FormB.WindowState = 1 Then FormA.WindowState = 2
End SubPrivate Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
FormB.WindowState =2
End Sub