Newsgroup: it.comp.lang.visual-basic
Titolo: [?] beep msgbox

Ciao a tutti,
qualcuno conosce un modo per togliere il beep quando apro una msgbox (e
riattivarlo quando mi serve)?
Grazie a tutti in anticipo.

 ha
scritto: 


e' una questione di windows... il beep lo fa in base
alle impostazioni di sistema relative ai suoni.
oltre a questo, non so
dove nel registro di sistema siano memorizzate le impostazioni per i
suoni... prova a fare una ricerca dopo aver specificato, per "Suono di
avviso" (o qualcosa del genere) un file dal nome strano... cosi' se riesci
a capire dove andarlo a impostare nel registro di sistema, sei il re di
windows!!! :)
ciao _JeLoT_
--------------------------------
Inviato via 
http://usenet.iol.it
 

 wrote in message
news:62Z110Z131Z134Y...@usenet.iol.it...


Ti ho scritto in privato (poi, se per te ok, posterò anche qui per renderlo
comune...)
Ciao, attendo tue

 ha scritto nel messaggio
news:9g2a4j$qe1$1...@fe1.cs.interbusiness.it...

Info come utilizzare SystemParametersInfoGet :
In Un Form Inserisci due Check Box ( check1 & check2 ) & un CommandButton
(Command1)
In Un Modulo:
Private Declare Sub SystemParametersInfoGet Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
lpvParam As Any, ByVal fuWinIni As Long)
Private Declare Sub SystemParametersInfoSet Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal
lpvParam As Long, ByVal fuWinIni As Long)
Private Const SPI_GETBEEP = 1
Private Const SPI_SETBEEP = 2
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Public Beep_Locale As Boolean
Public Property Get Beep_Sistema() As Boolean
    Dim Valore_Beep_Sistema As Boolean
        SystemParametersInfoGet SPI_GETBEEP, 0, Valore_Beep_Sistema, 0
    Beep_Sistema = Valore_Beep_Sistema
End Property
Public Property Let Beep_Sistema(ByVal Nuovo_Beep_Sistema As Boolean)
    SystemParametersInfoSet SPI_SETBEEP, CLng(Nuovo_Beep_Sistema), 0&,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
End Property
Public Sub Beep()
    If Beep_Locale Then
        VBA.Beep
    End If
End Sub
Form1:
Option Explicit
Private Sub Command1_Click()
    Beep
End Sub
Private Sub check1_Click()
    Beep_Locale = CBool(check1.Value) Attiva/Disattiva Beep Locale
End Sub
Private Sub check2_Click()
    Beep_Sistema = CBool(check2.Value) Attiva/Disattiva Beep di Sistema
End Sub
By Utente Win2k

Pregiatissimo, grazie.

Non funziona.... :-(((
Il suono continua ad uscire dagli altoparlanti.
Ho una scheda sonora (come penso quasi tutti), puň esser questo il problema?
Il settaggio, usando il get, risulta corretto (quando lo disabilito indica
false), perň il suono continua ad essere emesso.
Ti indico cosa ho fatto:
Option Explicit
Private Declare Sub SystemParametersInfoGet Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long)
Private Declare Sub SystemParametersInfoSet Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal
_
lpvParam As Long, ByVal fuWinIni As Long)
Private Const SPI_GETBEEP = 1
Private Const SPI_SETBEEP = 2
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Private Sub Command1_Click()
 MsgBox ("adesso č cosě...")
 SystemParametersInfoSet SPI_SETBEEP, False, 0&, _
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
 MsgBox ("modificato!")
End Sub
Private Sub Command2_Click()
 Dim Valore_Beep_Sistema As Boolean
 SystemParametersInfoGet SPI_GETBEEP, 0, Valore_Beep_Sistema, 0
 MsgBox (Valore_Beep_Sistema)
End Sub
Grazie, se hai qualche suggerimento fammi sapere.