vb窗体或控件如何在一个已运行的程序上定位

发布网友 发布时间：2024-07-16 00:42

我来回答

共6个回答

热心网友 时间：2024-07-19 16:36

很简单，等下给你

这个最主要的就是要找到那个窗口的位置跟大小，然后移动自己到相应位置

代码如下：

Option Explicit

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

Dim rRct As RECT

Function cmdGetClass(exeTitle As String) As Boolean
If exeTitle = "" Then cmdGetClass = False: Exit Function
Dim lngHand As Long
Dim strName As String * 255
Dim lngProcID As Long

lngHand = FindWindow(vbNullString, exeTitle)

GetClassName lngHand, strName, Len(strName)

If Left$(strName, 1) = vbNullChar Then
cmdGetClass = False
Else
GetWindowThreadProcessId lngHand, lngProcID
GetWindowRect lngHand, rRct

cmdGetClass = True
End If
End Function

Private Sub Command1_Click()
Dim sCaption As String '要找的窗口的标题
sCaption = "我的电脑"
If cmdGetClass(sCaption) Then
Me.Move rRct.Left * Screen.TwipsPerPixelX, rRct.Top * Screen.TwipsPerPixelY, (rRct.Right - rRct.Left) * Screen.TwipsPerPixelX, (rRct.Bottom - rRct.Top) * Screen.TwipsPerPixelY

End If
End Sub

热心网友 时间：2024-07-19 16:35

建一个Timer1,打开一个记事本。其他要求可细谈。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Const HWND_TOPMOST = -1
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
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 Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Dim h As Long, r As RECT
h = FindWindow("notepad", vbNullString)
GetWindowRect h, r
SetWindowPos hwnd, HWND_TOPMOST, r.Left, r.Top, r.Right - r.Left, r.Bottom - r.Top, 0
End Sub

热心网友 时间：2024-07-19 16:37

这个恐怕难吧，比判断一个外部程序是否运行都还难哟！
期待高手解决！

热心网友 时间：2024-07-19 16:39

用setparent函数，把程序的某个控件设置为目标窗口下的子窗口，可以做到这一点。

热心网友 时间：2024-07-19 16:39

分低了点吧，兄弟！高手是不会帮你解决这样的问题的，不过别人心情好，也说不一定

热心网友 时间：2024-07-19 16:32

你的要求和你的分差距太多,高手一般懒的弄的