form2在form1后边!
使用模式方式show form2!! 保证form2不被form1遮盖!
使用模式方式show form2!! 保证form2不被form1遮盖!
解决方案 »
- 关于VB界面设备配置的问题 新手 请您指教
- 那位大侠帮把利用WebBrowser实现的功能改为直接操作IE来实现
- VBA 做access报表,然后里面做一个子报表,为什么子报表跑不出来?
- 怎样在一个PictureBox中镜像的显示另一个容器类控件中的内容.
- ActiveX控件,谁能告诉我它具体做什么.
- 繁体VB6.0开发的系统转简体
- New ADODB.Recordset.update -2147467259 运行更新记录集时报错
- 怎么解决ListView中,在ListItem上的双击和右击事件?急阿!
- 请问各位高手,在VB6.0中如何改变commandbutton控件的颜色?
- 有关VB多线程
- 请教一个mscomm控件的问题
- crystal reports我在設計報表的時候,連接成功,為什麼在執行的時候它提示聯接失敗呢
方法是在加载form2时卸载form1,在卸载form1时卸载form2
或:form2.show 0,form1
如果form2是工具窗体,当form1被移动时,就会很难看了,推荐用第一种方法。
或:form2.show 0,form1
如果form2是工具窗体,当form1被移动时,就会很难看了,推荐用第一种方法。
Private Sub Form_Click()
Form2.ZOrder front
End Sub
让窗体二永远在上
在form2 里写Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private mbOnTop As Boolean
Private Property Let OnTop(Setting As Boolean)
If Setting Then
SetWindowPos hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos hwnd, -2, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
mbOnTop = Setting
End Property
在你想要的地方 加上 form2.ontop=true(在最上面)
form2.ontop=false(恢复)二:我建议你用 mid 窗口 好好研究一下 mid窗口的用法
但 naomi77(naomi77) 和 我的代码功能是不一样的
这个得让他自己 去体会 我还是比较推荐 mid窗口