vb 修改窗体标题的示例代码

2024年3月30日 158次阅读 来源: weixin_30794491

Option Explicit
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 Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib “user32” Alias “SetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()
Dim wnd As Long
wnd = FindWindow(vbNullString, “目标窗体名称”)
SetWindowText wnd, “新的名字写在这里”
End Sub

本文来自胡摘网[http://z.hackpro.cn]，转载请标明出处：http://www.hackpro.cn/art/2734.html

转载于:https://www.cnblogs.com/superfans/archive/2011/06/10/2077956.html

    原文作者：weixin_30794491
    原文地址: https://blog.csdn.net/weixin_30794491/article/details/95247579
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞