[Source] Cambiar el Texto de boton "Inicio" o "start"

[agus0]

Hola que tal foreros, les traigo un codigo fuente para cambiar el Boton de "Inicio" o "start"



Espero que les sea de utilidad.

Se Necesita:

Código:

Una caga de texto (TextBox)
y Un Boton (CommandButton)

Declaramos:

Código:

Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Public Sub SetStartCaption(str As String)
   Dim StartBar As Long
   Dim StartBarText As Long
   Dim sCaption As String
   StartBar = FindWindow("Shell_TrayWnd", vbNullString)
   StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
   sCaption = Left(str, 5)
   SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption
   Exit Sub
   End Sub

y en el Boton:

Código:

SetStartCaption Text1.Text

bueno eso es todo

ahora bien el programa tiene un problema, no se pueden poner mas de 5 o 6 Caracteres por que el Boton de "Inicio" no se "agranda".

hay un pograma que no se si conocen el "StartBtnRenamer" este programa de codigo libre programado en lenguaje Delphi (del cual yo no se nada) cuando uno escrive un texto el boton si se agranda.
Alguien sabe de que manera hacer eso con VB6 para poder asi escrivir textos mas grandes?

Bueno muchas gracias... Desde ya
================================================== ===========

[boluart]

navegando encontre:

Código:

 
TaskBarHandle = FindWindow('Shell_TrayWnd', nil)
GetWindowRect(TaskBarHandle, TaskBarRect);
ReBarWindow32Handle = FindWindowEx(TaskBarHandle, 0, 'ReBarWindow32', nil)
GetWindowRect(ReBarWindow32Handle, ReBarWindow32Rect);
GetWindowRect(FindWindowEx(TaskBarHandle, 0, 'TrayNotifyWnd', nil),TrayNotifyWndRect);
NewLabelWidth = MainForm.Canvas.TextWidth(TrimRight(NewLabel)) + 64;
if NewLabelWidth < StartBtnWidth then
NewLabelWidth = StartBtnWidth;
end if
NewReBarWindow32Width = (TaskBarRect.Right - TaskBarRect.Left) -(TrayNotifyWndRect.Right - TrayNotifyWndRect.Left) - NewLabelWidth
SendMessage(StartHandle, WM_SETTEXT, 0, Integer(@NewLabel))
SetWindowPos(ReBarWindow32Handle, 0, NewLabelWidth + 5, 0,NewReBarWindow32Width, TaskBarRect.Bottom - TaskBarRect.Top, SWP_SHOWWINDOW)
SetWindowPos(StartHandle, 0, 0, 0, NewLabelWidth, StartBtnHeight,SWP_SHOWWINDOW)

adaptandolo un poco a tu codigo obtuve:

Código:

 
Option Explicit
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Const SWP_SHOWWINDOW = &H40
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function GetWindowRect Lib "User32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Public Sub SetStartCaption(str As String)
    Dim TaskBarRect As RECT, ReBarWindow32Rect As RECT, TrayNotifyWndRect As RECT
    Dim TaskBarHandle As Long, ReBarWindow32Handle As Long, NewLabelWidth As Long, NewReBarWindow32Width As Long
 
    TaskBarHandle = FindWindow("Shell_TrayWnd", vbNullString)
    Call GetWindowRect(TaskBarHandle, TaskBarRect)
    ReBarWindow32Handle = FindWindowEx(TaskBarHandle, 0, "ReBarWindow32", vbNullString)
    Call GetWindowRect(ReBarWindow32Handle, ReBarWindow32Rect)
    Call GetWindowRect(FindWindowEx(TaskBarHandle, 0, "TrayNotifyWnd", vbNullString), TrayNotifyWndRect)
 
    NewLabelWidth = Len(str) + 64
 
 
    NewReBarWindow32Width = (TaskBarRect.Right - TaskBarRect.Left) - (TrayNotifyWndRect.Right - TrayNotifyWndRect.Left) - NewLabelWidth
 
    Dim StartBar As Long
    Dim StartBarText As Long
    Dim sCaption As String
    StartBar = FindWindow("Shell_TrayWnd", vbNullString)
    StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
    sCaption = Left(str, 255)
 
    SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption
    Call SetWindowPos(ReBarWindow32Handle, 0, NewLabelWidth + 5, 0, NewReBarWindow32Width, TaskBarRect.Bottom - TaskBarRect.Top, SWP_SHOWWINDOW)
    Call SetWindowPos(StartBarText, 0, 0, 0, NewLabelWidth, 20, SWP_SHOWWINDOW)
End Sub
Private Sub Command1_Click()
SetStartCaption Text1.Text
End Sub

[agus0]

Como edito la Altura del boton por que queda a la mitad...? mira


Buenisimo
ahora lo estoy editando unas cosas por que no quedo bien ba a mi me quedo deforme el boton

[boluart]

Fijate esto:

Call SetWindowPos(StartBarText, 0, 0, 0, NewLabelWidth, 20, SWP_SHOWWINDOW)

o si quieres que sea mas exacto caputa la altura con:
GetWindowRect

[agus0]

Gracias... "32" es el numero correcto, al menos en mi O.S

[gateous]

Funciona a la perfeción... Te lo califiqué como asombroso suerte.

[seba123neo]

Hola, si bien es bien conocido esto, el codigo esta por todas partes. aparte es bien facil haerlo , pues al ser una ventana le podes hacer lo que quieras como si fuera un form mismo...si mal no recuerdo esta en las FAQ tambien...lo tendrias que poner ahi, si ya no esta...aparte al refrescarse el explorer pierde el efecto...

saludos.