改变该窗口的标题

anson333 2003-04-19 12:25:15
本题有两个command控件"执行"和"退出",两个label框"label1"和"label2",两个textbox "text1"和"text2"
已有一个模块module1其声明为:
Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long


现要在form1命令按钮"执行"的Click事件编写代友,实现下述功能:
调用findwindow,查找指定标题名称的应用程序窗口的句柄:调用setwindowtext,改变该窗口的标题
...全文
30 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
verybelial 2003-05-18
  • 打赏
  • 举报
回复
Reticence2197 2003-05-18
  • 打赏
  • 举报
回复
dim notepad as long
notepad = findwindow( text1.text, vbnullstring )
if notepad then
setwindowtext notepad, text2.text
end if

anson333 2003-05-18
  • 打赏
  • 举报
回复
本题有两个command控件"执行"和"退出",两个label框"label1"和"label2",两个textbox "text1"和"text2"

调用findwindow,查找指定标题名称的应用程序窗口的句柄:调用setwindowtext,改变该窗口的标题.
在text1里输入应用程序的名称,在text2里输入改后的名称,点击“执行”按钮就
更改相应的名称。
fuzq 2003-04-24
  • 打赏
  • 举报
回复
那你想改哪个标题?
anson333 2003-04-23
  • 打赏
  • 举报
回复
改不了,
不是这个
用户 昵称 2003-04-19
  • 打赏
  • 举报
回复
dim notepad as long
notepad = findwindow( "Notepad", vbnullstring )
if notepad then
setwindowtext notepad, "hello, world!"
end if
xiaoxinghappy 2003-04-19
  • 打赏
  • 举报
回复
呵呵,up
落伍者 2003-04-19
  • 打赏
  • 举报
回复
up

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧