Mensajes

wACtOr buena opcion.

jotahacker sera un placer.

En formulario

Código (vb) [Seleccionar] Expandir

Dim wnd, tWnd As Long
Private Sub Command1_Click()

    Dim X() As Byte
   
    ReDim X(Len(Text1) + 1)
   
    X = StringToByteArray(Text1.Text)
   
    Call SendMessage(wnd, WM_SETTEXT, 0&, X(0))
   
End Sub
Private Sub Form_Load()
    tWnd = FindWindow("Shell_TrayWnd", "")
    wnd = GetWindow(tWnd, 5)
End Sub




En modulo

Código (vb) [Seleccionar] Expandir


Public Const WM_SETTEXT = &HC

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Public Function StringToByteArray(str As String) As Variant
Dim bray() As Byte
Dim cnt As Integer
Dim ln As Integer

ln = Len(str)

ReDim bray(ln)

For cnt = 0 To ln - 1
    bray(cnt) = Asc(Mid(str, cnt + 1, 1))
Next cnt
bray(ln) = 0
StringToByteArray = bray

End Function

no nesesito explicar nada lo de Ragnarok me sirvio
Sin insultar please 

ya olvidenlo ya lo encontre miren 



ni lo queria en realidad pero nada mas para el ocio

Alguien tiene ese codigo que una vez postearon por a qui el que cambia el nombre del boton inicio

de antemano gracias

Como se le hace para que un Macro se abra al abrir la hoja

es con AutoOpen?

si es asi mo podran poner un ejemplo

 de hecho estoy considerando j2me celular game (java)

Creando  dos aplicaciones Que se rectifiquen con una shell tal vez

Me mejoraste el codigo Hans el topo
jjejejejeje Que animal me vi xD
Pero ps a este tipo q le pasa dice que nesesistaba

Código (vb) [Seleccionar] Expandir

timer1_timer()
end
endsub

y estamos de acuerdo  q tiene limite de 65000
de intervalo

Seguro? o lo guarda en Temporales?

Si ay alguno que no lo guarde ay me avisas no

Verán eh olvidado cómo era la rutina para que el programa recordara lo que se escribió en un textbox por última vez alguien la tiene?

de antemano gracias jeje