程序不知道错在哪里？（DLL的调用问题）

zsabc 2003-08-19 10:36:51

以下是vs2003环境下的vb.net windows应用程序，目的是获取标题为“未定标题-记事本”的窗口的句柄，调整窗口大小，将其移动到屏幕左上角。运行程序后，打开的记事本窗口却没有反应，不知错在哪里，希望大家帮帮忙，谢谢！

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim hWnd As Integer = FindWindow(Nothing, "未定标题-记事本")
If hWnd <> 0 Then MoveWindow(hWnd, 0, 0, 600, 300, 1)
End Sub

Private Declare Function FindWindow Lib "USER32" _
Alias "FindWindowW" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Integer
Private Declare Function MoveWindow Lib "USER32" Alias "MoveWindowW" _
(ByVal hWnd As Integer, ByVal x As Integer, ByVal y As Integer, _
ByVal nWidth As Integer, ByVal nHeight As Integer, _
ByVal bRepaint As Integer) As Integer

...全文

29 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

hpfeng 2003-08-19

打赏
举报

你根本就没有打开记事本嘛

zsabc 2003-08-19

打赏
举报

非常感谢！

layershow 2003-08-19

打赏
举报

Private Declare Function FindWindow Lib "USER32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Integer
Private Declare Function MoveWindow Lib "USER32" Alias "MoveWindow" _
(ByVal hWnd As Integer, ByVal x As Integer, ByVal y As Integer, _
ByVal nWidth As Integer, ByVal nHeight As Integer, _
ByVal bRepaint As Integer) As Integer

'Code

Dim hWnd As Integer = FindWindow(Nothing, "未定标题 - 记事本")

If hWnd <> 0 Then MoveWindow(hWnd, 0, 0, 600, 300, 1)

主要是声明那里，记得改一下

第一个是FindWindowA , 第二个是MoveWindow
Alias Dll的入口

工作正常.呵呵

郁闷。回贴总超时

layershow 2003-08-19

打赏
举报

哦？
我一会儿试一下VB.NET的

这个是我写着玩的Win32程序

HWND hWnd = FindWindow(NULL,"未定标题 - 记事本");
if (hWnd > 0)
{
hWndButton1 = CreateWindow("BUTTON", "one", WS_VISIBLE | WS_CHILD | BS_FLAT | BS_RIGHTBUTTON , 10, 10, 50, 20, hWnd, NULL, hInstance, NULL);
}

它就在记事本的文本区上加一个按钮.呵呵，但是不能点

zsabc 2003-08-19