比如有一A窗口,在A窗口中打开B窗口,B窗口一直浮在A窗口上,但在不关闭B窗口的同时还能对A窗口进行操作,请问,如何实现啊?
解决方案 »
- MSFLexGrid中显示的是按条件查询出的数据库中表中的数据,修改了表格中的数据如何全部保存回数据库表中?
- 如何将PictureBox 里的包含的控件存成一张图片
- 在ACTIVEREPORT中如何按某个字段的不同值分页打印呀?
- 求助,动态加载控件的问题
- 如何判断并根据MSHFlexGrid控件里的每一行或某一列的颜色取出每一行的每个单元格的值??
- 菜鸟请教:如何用VBA读取.dbf中的数据输出到excel?
- 会发声的DLL,并且可以读出/转换数字和人民币大写。发送前10名。
- 求公路收费系统开发文档,200分!
- 请问VB中如何动态增件控件
- 容易的问题,请高手帮忙!
- 我就想用语句判断下有没有连接到这个打印机,当把线拔掉时给个提示,或没连接上时给提示
- 问个SQL语法
这样就有你要的效果了。
鼠标拖动PICTURE的代码
dim moving as boolean
dim MouseX as Single
dim MouseY as SinglePrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
moving = True
MouseX = X
MouseY = Y
End If
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If moving = False Or Not (Button = 1) Then Exit Sub
With Picture1
.Left = Picture1.Left - MouseX + X
.Top = Picture1.Top - MouseY + Y
End WithEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
moving = False
End Sub
b.show 0
b窗口置顶!Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)Private Sub Form_Activate()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub