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
================================================== ===========