-2

我想知道我如何能够在前台运行一个不可见的表单（这意味着它可以运行在你计算机中的任何地方）。我尝试过使用模块来玩弄无形应用程序，但不幸的是没有任何反应。我也试过做

Form1.Visible = False
Form1.WindowState = 2 (Maximized)

但它不会在前台运行（如果它专注于它会），并且当您按下一个键时，Windows“警告错误”类型的声音（单调中的“ehh.”类型的声音）会继续播放。如果您想知道，我尝试的编码是这样的：

Private Sub Form1_KeyPress(KeyAscii As Integer, Shift As Integer)
If KeyAscii <> 0 Then PlaySound App.Path & "\sounds\ding.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

当然，使用 Windows API 播放 wav 文件（winnm.dll 或我相信的东西）

我的主要问题是（这意味着这就是我想要回答的）是我如何才能让它在计算机上的任何地方运行而不是“嗯”。单调的声音。因为这显然不是我想要实现的。

哦，快速更新，我让它播放正确的声音（万岁！）。只需忽略问题的后半部分。

4

1 回答 1

0

请告诉我们您为什么要这样做？你想达到什么目的？

看看下面的 API：

'api for keeping form on top
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

例如如下调用它：

  'put form always on top
  With Screen
    SetWindowPos Me.hwnd, -1, 0, 0, .Width, .Height, 3
  End With 'screen
于 2013-05-13T06:36:44.750 回答