Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: renga73 en 24 Abril 2006, 08:30 am



Título: Icono de volumen en el formulario
Publicado por: renga73 en 24 Abril 2006, 08:30 am
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.


Título: Re: Icono de volumen en el formulario
Publicado por: moe88 en 24 Abril 2006, 11:39 am
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


Título: Re: Icono de volumen en el formulario
Publicado por: _Sergi_ en 24 Abril 2006, 16:29 pm
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:
Private Sub Command1_Click()
MostrarVolumen vbMaximizedFocus
End Sub

En un módulo o en el propio form

Código:
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