在 API 函数中恢复使用

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

private declare function movewindow lib "user32" alias "movewindow" (byval hwnd as long, byval x as long, byval y as long, byval nwidth as long, byval nheight as long, byval brepaint as long) as long

描述 dim htmainform as long'找到一个句柄。

htmainform = findwindow("", "（游戏的标题）。")

movewindow htmainform， 0 （窗口的新左位置）， 0 （窗口的新顶部位置）， 1000 （长）， 1000 （宽）， 1

这是一组 WIN32 线程操作函数。

反过来，效果是：

1. 创建线程。

2. 挂起线程。

3. 唤醒线程。

4. 退出线程。

5. 终止线程。

6. 向指定线程发送消息。

有关详细信息，请参阅 MSDN。

这些是基础函数，如果正在开发 MFC，则可以使用 MFC 接口，这要简单得多。

1 字体适合霍尔引脚设置 首先，您需要设置字体。 Win32 SDK 提供了一个用于字体选择的通用对话框，只需调用 ChooseFont 函数，其返回值为布尔值。 它被明确定义为 bool choosefont （lpchoosefont lpcf）。

调用此函数后，弹出字体选择对话框

VB 中的 findwindow 函数可用于将句柄返回到窗体。

1. API 声明

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

2、具体用途：

dim i as long

i=findwindow（vbnullstring，"表单的标题"）

注意：这里的 vbnullstring 是空的，没有任何字符，即没有传递。 跟""空字符串是不一样的！

3.示例：有一个表单或软件带有计算器的标题名称，并获取计算器的句柄。

option explicit

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

private sub command1_click()

dim i as long

i = findwindow(vbnullstring, "计算器")

msgbox& i '显示窗体句柄。

end sub

4） 在布局文件中添加地图微件（res layout 5）以创建活动继承。

6） 在 中配置。

7） 运行结果。