Mensajes

De nada tio! Pa eso estamos

.. xavierote pero yo me referia que valiese cualquier comando.. se podria?

Claro que se como se hace xaval!!

Pon esto en un modulo

Código [Seleccionar] Expandir

Public nid As NOTIFYICONDATA
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public Const WM_CHAR = &H102
Public Const WM_SETTEXT = &HC
Public Const WM_USER = &H400
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_CLOSE = &H10
Public Const WM_COMMAND = &H111
Public Const WM_CLEAR = &H303
Public Const WM_DESTROY = &H2
Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Sub InitializeTrayIcon()
With nid
.cbSize = Len(nid)
.hwnd = frmMain.hwnd 'nombre del form que estara minimizado
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = frmMain.Icon 'nombre del formulario que contiene el icono
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub


Y en el formulario que as puesto antes (frmMain)

Código [Seleccionar] Expandir

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Result As Long
Dim msg As Long
If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If
Select Case msg
Case 517
Me.PopupMenu MNU 'menu que quieres que se habra
Case 514
Result = SetForegroundWindow(Me.hwnd)
Me.Show
End Select
End Sub

y asi se hace un systray Icon, osea el icono al lado del reloj que es lo que tu quieres nop?

a mi me funciono lo que pusieron

jooder!!! cuanto tiempo llevo buscando esto!!! que wapo!

Oye sabriais como hacer para que si yo pongo en un text box msgbox "blabla" se ejecute eso como si yo lo hubiera escrito en el codigo???

Gracias

donde miras los creditos?
Yo creo que lo mejor que puedes hacer para que te valla rapido es tenerlo mucho tiempo encendido, llevo varios años con emule, y he visto que la forma mas facil de que funcione es compartiendo mucho, teniendolo muchas horas en espera, y al final llegaras a cojer una media de 30Kbps y cuanto mas tiempo mas veloz.. lo se por esperiencia, eso si, abre los puertos de tu router y pon cosas a compartir, otra cosa fundamental, yo antes me preguntaba porque no cojia mi mula velocidad, y al final llegue a la conclusion de que era porque no tenia nada mas que descargar, a si es que le puse unas cuantas cosas mas y puff!! de media 20Kbps y cada dia mas velocidad!

pues si te sale el cuadradito es por eso

sorry ya te entendi

Jooooder!!!!!! Pon la propiedad MULTILINE a TRUE!!!!!
Si nos te lo pone todo en la misma linea y el salto es un caracter no imprimible, normal que te salga el cuadradito...

text1.multiline = true

Haber el "file" system32 si existe! Yo le declare anteriormente que systema32 = ruta de system32 en ese pc & "CMDLG.dll"
y Si existe, es una archivo de texto que tiene extension dll para camuflarlo...