VB更改任何标题程序源代码

加入COMMAND1，TEXT1，TEXT2控件，在代码如下：

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const JAVA中文网 = &HC
Private Sub Command1_Click()
    Dim 找标题 As Long
    Dim 原标题名字 As String
    Dim 新标题 As String
    原标题名字 = Text1.Text
    找标题 = FindWindow(vbNullString, 原标题名字)
    If 找标题 = 0 Then
        MsgBox "找不到此标题名！"
        Exit Sub
    End If
    新标题 = Text2.Text
    SendMessage 找标题, JAVA中文网, 0, ByVal 新标题
End Sub

运行：'Text1输入原标题，Text2自己随便输入，然后按按钮，原标题就变成Text1的标题！

摘自：网络整理

VB更改任何标题程序源代码相关推荐

VB.NET在线升级程序源代码,可以独立使用
这个程序是我做一个办公管理系统的时候用到的,这里有源码,需要的亲拿去研究学习:vb.net在线升级程序: 程序实现了通过vb.net连接远程云服务器,并且从云服务器中获取更新,并且自动下载更新,升级本 ...
Android11还能自定义相机吗,安卓用户又少了一项自由，Android 11不再支持更改默认相机程序...
原标题:安卓用户又少了一项自由,Android 11不再支持更改默认相机程序来源:量子位关注前沿科技萧萧发自凹非寺量子位报道 | 公众号 QbitAI 萧萧发自凹非寺量子位报道 ...
opc服务器消息通知代码,OPCClient浏览OPCServer的简单实例程序源代码.doc
OPCClient浏览OPCServer的简单实例程序源代码 OPC Client浏览OPC Server的简单实例简单程序//main.cpp //************************* ...
VB 写文件关联程序
bar关联notepad 代码如下: Private Declare Function RegCreateKey& Lib "advapi32.DLL" Alias &qu ...
VB SendMessage向其他程序窗口发送字符串消息实例
以下通过程序的标题来获取该窗口的句柄,然后通过SendMessage函数给该窗口句柄发送WM_SETTEXT消息. 代码如下: '先创建一个文本文档,命名为: 1.txt ' 然后打开测试... Pr ...
VB移动没有标题的窗体
我们一般是用鼠标按住窗口的标题栏,然后移动窗口,当窗口没有标题栏时,我们可以用下面的方法来移动窗口: 在 BAS 文件中声明: Private Declare Function ReleaseCa ...
php邮件发送yuanchengxu,邮件群发代码_php smtp邮件群发程序源代码
摘要腾兴网为您分享:php smtp邮件群发程序源代码,篆刻字典,易通行,学习计时,小米社区等软件知识,以及鸿业暖通8.0,故事口袋听听,证件照,帮我关下灯,手淘链接转换,魅族,红包软件,gif修改 ...
Python背单词记单词小程序源代码，背单词记单词小游戏源代码
背单词小游戏,要有多界面交互,界面整洁.美观,可调节游戏等级难度,可配置游戏信息. 有游戏分数,游戏时间,动画特效,背景音乐,不同游戏等级的历史最高分记录. 拼写成功的英文单词显示中文意思.支持长按回 ...
c 语言闹钟源码,小程序源代码：给自己设计一个番茄闹钟，文末有代码
原标题:小程序源代码:给自己设计一个番茄闹钟,文末有代码大家好,我是杨数Tos! 这篇文章主要分享:给自己设计一个非常简单的工作闹钟,提醒自己注意劳逸结合,除了工作也要定时休息. 整个闹钟项目的代码 ...

VB更改任何标题程序源代码

VB更改任何标题程序源代码相关推荐

最新文章

热门文章