VB让64位系统Autocao窗口最前端显示
时间: 2023-11-20 14:06:53 浏览: 29
在64位系统中,您需要使用PtrSafe声明来调用64位API函数。以下是将Autocad窗口置于最前端的示例代码:
```
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Sub Form_Load()
Dim hwnd As LongPtr
hwnd = FindWindow(vbNullString, "AutoCAD") '替换AutoCAD为你的窗口标题
If hwnd <> 0 Then
SetForegroundWindow hwnd
End If
End Sub
```
请将窗口标题中的"AutoCAD"替换为您的Autocad窗口标题,并将代码添加到您的VB程序中。当程序加载时,它会查找窗口并将其置于最前端。
相关问题
VB让Autocao窗口最前端显示
你可以使用以下代码将Autocad窗口置于最前端:
```
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "AutoCAD") '替换AutoCAD为你的窗口标题
If hwnd <> 0 Then
SetForegroundWindow hwnd
End If
End Sub
```
将窗口标题中的"AutoCAD"替换为你的Autocad窗口标题,并将代码添加到你的VB程序中。当程序加载时,它会查找窗口并将其置于最前端。