VKWS

mzlwxq

使窗体置顶，VBA如何写代码

无聊的疯子

直接设置窗体位置就可以了,不用代码的

mzlwxq

如果不用代码，运行窗体后还可以操作其他软件。

无聊的疯子

mzlwxq 发表于 2012-5-26 19:16
如果不用代码，运行窗体后还可以操作其他软件。

用了代码不一样可以操作其它软件么?

mzlwxq

谢谢，我在其他论坛上找到了代码：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Dim hWnd As Long
Private Sub UserForm_Initialize()
    hWnd = FindWindow(vbNullString, Me.Caption)
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

mzlwxq

请问：什么是有模式窗体和无模式窗体，它们之间有什么区别？

无聊的疯子

mzlwxq 发表于 2012-5-26 21:28
请问：什么是有模式窗体和无模式窗体，它们之间有什么区别？

当UserForm 是模态的，在使用该应用程序的任何其他部分以前必须提供信息或者关闭UserForm 。

   不执行后续代码，直到UserForm 被隐藏或卸载。

   尽管在显示一个UserForm 时，该应用程序的其他窗体无效，但其他应用程序有效。

当 UserForm 是无模式的，不关闭UserForm用户也能查看其他窗体或窗口。

无模式的窗体不在任务栏中出现，并且不按照窗口选项卡顺序。

最简单的说明:

假设只有一个用户窗体,

窗体显示时是模态的,我们不能选择单元格,只能操作窗体中的内容

窗体是无模式的,我们可以选择单元格

mzlwxq

无聊的疯子 发表于 2012-5-27 20:53
当UserForm 是模态的，在使用该应用程序的任何其他部分以前必须提供信息或者关闭UserForm 。   不执行后续 ...

占用你的宝贵时间，在此表示感谢！