vb 调用exe自定义标题

他的意思是，要打开的程序不是你做的，你只是外部调用，但要修改它的标题。迹昌渣

你把下面这段代码复制到代码窗口的通用区：

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

然后，在你打开外部程序以后（比方说你说的记事本）迅仿，执行如下代码：

Dim lHwnd As Long

lHwnd = FindWindow(vbNullString, "程序本身的标题")

SetWindowText lHwnd, "修改后的标题"

注意程序本身的标题姿悄一定要一字不差，这样就可以达到你要的效果了~

这种情况一般是标题栏文字为动态生成的情况，比如局握说在Form1_Load过程中有一行:

Form1.Caption="Test"

这种情况下标题栏文字就变为“Test”了。一般情况漏瞎下为了防止恶意修改，窗体的属性即便已通过属性窗口设置好，还是会桐搜庆用代码设置一遍的。

VB6.0可以改变Msgbox函数中title参数来改行举变d出消息框窗口的标题。

MsgBox 函数，在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。

语法

实例代码：

Private Sub Form_Load()

    Dim Msg, Style, Title, Help, Ctxt, Response, MyString

    Msg = "Do you want to continue ?"   ' 定义信息。

    Style = vbYesNo + vbCritical + vbDefaultButton2   ' 定义按钮。

    Title = "MsgBox Demonstration"   ' 定义标题。

    Help = "DEMO.HLP"   ' 定义帮助文件。

    Ctxt = 1000   ' 岁带皮定义标题

          ' 上下文。

          ' 显示信息。

    Response = MsgBox(Msg, Style, Title, Help, Ctxt)

    If Response = vbYes Then   ' 用户按下“是”。

        MyString = "Yes"   ' 完成某 *** 作。

    Else   ' 用户乎差按下“否”。

        MyString = "No"   ' 完成某 *** 作。

    End If

End Sub

---