登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

miaozk2006

点滴积累与收藏:关于技术,关于生活

 
 
 

日志

 
 

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

2013-08-23 15:21:34|  分类: 编程-VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

加入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的标题!

摘自:网络整理

  评论这张
 
阅读(478)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018