[求助]

wql · 发表于 2005-10-2 06:04:00

请教如何将2005的标题栏换成自己的标题栏？谢谢！

王咣生 · 发表于 2005-10-2 11:37:00

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Sub SetTitle(ByVal hwnd As Long, Optional ByVal title As String)
If title = "" Then
title = "乐筑天下 "
End If
SetWindowText hwnd, title
End Sub
Public Sub Test_SetTitle()
Dim hwnd As Long '&
hwnd = GetParent(GetParent(ThisDrawing.hwnd))
SetTitle hwnd, "Hello World!"
End Sub

wql · 发表于 2005-10-2 15:36:00

能否再具体一些，谢谢！

alin · 发表于 2005-10-3 12:43:00

这样还不具体？

mikewolf2k · 发表于 2005-10-3 13:44:00

很具体了。另外请问一下，能不能通过命令行修改标题栏？

alin · 发表于 2005-10-5 14:42:00

copy


(defun SetTitleBar (Str)
  (setvar "USERS5" Str)
  (vl-vbarun "h:/alin/SetTitleBar.dvb!Test_SetTitle")
  (princ)
)

copy


Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

copy


Public Sub SetTitle(ByVal hwnd As Long, Optional ByVal title As String)
    If title = "" Then
        title = "???? http://www.mjtd.com"
    End If
    SetWindowText hwnd, title
End Sub

copy


Public Sub Test_SetTitle()
    Dim hwnd As Long    '&
    hwnd = GetParent(GetParent(ThisDrawing.hwnd))
    SetTitle hwnd, ThisDrawing.GetVariable("USERS5")
End Sub

[求助]

发表回复

精选推荐