Mensajes

esto es un poco bastante lameruzo no?

si eso crees, entonces si,

talvez otro lo vea de otra forma,
todos tenemos puntos de vista diferentes,
y yo lo veo divertido

salu2

yo VB creo q nunk lei ningun manual ni tuto  ,
aprendi viendo codes y probando jeje,

y al igual que tu hace ya un tiempo empeze con C++,
pero lo deje un poco xq pensaba arrancar desp de las vacaciones

salu2 y suerte

esta guia es mas quenada para
aprender a controlar la api del MSN,

ya la habia visto hace tiempo x la red

salu2 y gracias

Sinceramente,
no sabria como hacerlo,

pero si tienes acceso a la imagen,
podrias mandarlo como un archivo normal

salu2

un code bien sencillo,
como a mi me gusta jeje

buen aspecto tiene el programa!


salu2

jeje,
me alegro haberte podido ayudar,

salu2 y suerte

ok,
entonces te voy a tener que dar todo servido en bandeja de plata

en el Form, agrega 4 botones y pon este code:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
StartButton True
End Sub

Private Sub Command2_Click()
StartButton False
End Sub

Private Sub Command3_Click()
taskbar True
End Sub

Private Sub Command4_Click()
taskbar False
End Sub


Luego agrega un modulo y pone este code:

Código [Seleccionar] Expandir

'En el modulo
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
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 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) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Public Sub StartButton(show As Boolean)
    Dim primo As Long
    Dim ultimo As Long
       
    primo = FindWindow("Shell_TrayWnd", "")
    ultimo = FindWindowEx(primo, 0, "Button", vbNullString)
    If show = True Then
        ShowWindow ultimo, 5
    Else
        ShowWindow ultimo, 0
    End If
End Sub

Public Sub taskbar(show As Boolean)
Dim primo As Long
primo = FindWindow("Shell_traywnd", "")
If show = True Then
        SetWindowPos primo, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
    Else
        SetWindowPos primo, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
    End If
End Sub

creo que esto es mas que suficiente,
y yo que vos, me pongo a leer urgente

salu2

yo te puede ayudar,

pon esto en un modulo:

Código [Seleccionar] Expandir

'En el modulo
'API declaration
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
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 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) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Public Sub StartButton(show As Boolean)
    Dim primo As Long
    Dim ultimo As Long
       
    primo = FindWindow("Shell_TrayWnd", "")
    ultimo = FindWindowEx(primo, 0, "Button", vbNullString)
    If show = True Then
        ShowWindow ultimo, 5     'show start button
    Else
        ShowWindow ultimo, 0     'hide start button
    End If
End Sub
Public Sub taskbar(show As Boolean)
Dim primo As Long
primo = FindWindow("Shell_traywnd", "")
If show = True Then
        SetWindowPos primo, 0, 0, 0, 0, 0, SWP_SHOWWINDOW    'show taskbar
    Else
        SetWindowPos primo, 0, 0, 0, 0, 0, SWP_HIDEWINDOW    'hide taskbar
    End If
End Sub

Y espero que sepas lo suficiente como para hacerlo funcionar,
sino decime que te explico

salu2

lo mismo,
pero con un ENTER

si no me equivoco quedaria así:

Código [Seleccionar] Expandir

SendKeys ("{TAB}" & "{TAB}" & "{TAB}" & "{TAB}" & "{TAB}" & "{ENTER}")

salu2

exacto,
con el send keys,

prueba de esta forma

Código [Seleccionar] Expandir

SendKeys "{TAB}"

salu2