Codigo Plus

Descargar Archivo
Titulo	Boton Inicio
Descripcion	Cambiar su Texto
Descargas	915
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Dim</span> wnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, tWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command1_Click()
    <span style="color: #0000FF">Dim</span> dummy() <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span>
    
    <span style="color: #0000FF">ReDim</span> dummy(<span style="color: #0000FF">Len</span>(Text1) + 1)
    
    dummy = StringToByteArray(Text1.Text)
    
    <span style="color: #0000FF">Call</span> SendMessage(wnd, WM_SETTEXT, 0&, dummy(0))
    
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Form_Load()
    <span style="color: #008000">'Find the taskbar window , Shell_TrayWnd</span>
    tWnd = FindWindow(<span style="color: #B22222">"Shell_TrayWnd"</span>, "")
    
    <span style="color: #008000">'5 stands for GW_CHILD or GW_MAX</span>
    wnd = GetWindow(tWnd, 5)
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>

<span style="color: #008000">' En un Modulo</span>

<span style="color: #0000FF">Public</span> <span style="color: #0000FF">Const</span> WM_SETTEXT = &HC

<span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SendMessage Lib <span style="color: #B22222">"user32"</span> Alias <span style="color: #B22222">"SendMessageA"</span> (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wMsg <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, lParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Any</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
<span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> FindWindow Lib <span style="color: #B22222">"user32"</span> Alias <span style="color: #B22222">"FindWindowA"</span> (<span style="color: #0000FF">ByVal</span> lpClassName <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, <span style="color: #0000FF">ByVal</span> lpWindowName <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
<span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetWindow Lib <span style="color: #B22222">"user32"</span> (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wCmd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> StringToByteArray(str <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Variant</span>
<span style="color: #0000FF">Dim</span> bray() <span style="color: #0000FF">As</span> <span style="color: #0000FF">Byte</span>
<span style="color: #0000FF">Dim</span> cnt <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>
<span style="color: #0000FF">Dim</span> ln <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>

ln = <span style="color: #0000FF">Len</span>(str)

<span style="color: #0000FF">ReDim</span> bray(ln)

<span style="color: #0000FF">For</span> cnt = 0 <span style="color: #0000FF">To</span> ln - 1
    bray(cnt) = Asc(<span style="color: #0000FF">Mid</span>(str, cnt + 1, 1))
<span style="color: #0000FF">Next</span> cnt
bray(ln) = 0
StringToByteArray = bray

<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span></font></pre>