Icono de volumen en el formulario

Iniciado por renga73, 24 Abril 2006, 08:30 AM

0 Miembros y 1 Visitante están viendo este tema.

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_

#2
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

Private Sub Command1_Click()
MostrarVolumen vbMaximizedFocus
End Sub


En un módulo o en el propio form

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
Proyecto de Ingeniero