Icono de volumen en el formulario

[renga73]

Quiero colocar el icono del volumen (ese q es un parlantito) el q aparece al lado del reloj de windows. Bueno lo quiero poner en mi formulario y q al clickearlo me aparezcan las opciones de sonido respectivamente.

[moe88]

Pues así a bote pronto tienes un par de opciónes que se me ocurren... una hay una ocx, (systray.ocx), que te lo permite hacer, y por otro lado (y mejor para mi), que es esta declaración

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

investiga un poco sobre ella y veras que no tiene secretos...

un saludo

[_Sergi_]

moe88, lo que él quiere es acceder desde su programa al cuadro de Volumen de Windows, no colocar su programa en el tray.

Para eso, tienes que colocar un botón (también sirve una imagen, como es lógico) en cuyo evento click pones

Código [Seleccionar] Expandir

Private Sub Command1_Click()
MostrarVolumen vbMaximizedFocus
End Sub

En un módulo o en el propio form

Código [Seleccionar] Expandir

Public Sub MostrarVolumen(Optional EstadoVentana As VbAppWinStyle)
On Error Resume Next
Dim obj, sys
Set obj = CreateObject("Scripting.FileSystemObject")
Set sys = obj.GetSpecialFolder(1)
rutasistema = sys & "\"
Shell (rutasistema & "sndvol32.exe"), EstadoVentana
End Sub


Un saludo