Newsgroup: it.comp.lang.visual-basic
Titolo: Quisquillie : eliminare suono

Dopo la pressione di CTRL+ tastoscelto si ottiene
l'esecuzione della routine assegnata all'evento,ma anche l'emissione del
suono di sistema.
Come è possibile evitare che si produca o comunque che si senta?
Grazie
--
Gulp ! Forse mi sono perso qualcosa !

 Come è possibile evitare che si produca o comunque che si senta?
Se è un suono di sistema non credo ci siano altre possibilità di:
-Eliminare/adeguare i suoni da pannello di controllo
-Azzerare il volume dell'audio

 Dopo la pressione di CTRL+ tastoscelto
Ma non era Alt+tastoscelto?
Puoi farci vedere il codice che intercetta il tasto?
Forse il problema sta proprio nel fatto che quella sequenza non gli piace
più di tanto...

 Puoi farci vedere il codice che intercetta il tasto?
Private Sub newcitta_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = vbCtrlMask Then
    If KeyCode = vbKeyT Then
       newcitta.Text = "PADOVA"
       newtelefono.SetFocus
    End If
End If
End Sub


 End Sub
Prova - no, non l'ho testato, ma tu prova- il vecchio trucco del
keycode=0
 Private Sub newcitta_KeyDown(KeyCode As Integer, Shift As Integer)
 If Shift = vbCtrlMask Then
     If KeyCode = vbKeyT Then
'*****************
        KeyCode=0
'*****************
        newcitta.Text = "PADOVA"
        newtelefono.SetFocus
     End If
 End If
 End Sub
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

l'emissione del suono di sistema.
Trick 2:
Volendo eliminare i suoni associati allo svuotamento del cestino, avevo
piallato ll'associazione nel pannello di controllo. Da allora la
macchina emetteva un fastidioso Bip. Allora ho registrato un Wav
minuscolo completamente silenzioso e l'ho associato all'evento in
questione


 questione
Uaho che bellissima idea! Un buon tips.
Grazie.
ehmm.... anche se qualche guru qui nel NG storcerà un po il naso...tu ce
l'hai il giubbotto antiproiettile ?
:-))))))
Ciao


 :-))))))
Sono sensibile e delicato, ma anche moooolto anziano...
;-)
Ciao!


 Uaho che bellissima idea! Un buon tips.
Se l'evento in questione č un evento di sistema, come possiamo permetterci
di prevaricare le preferenze dell'utente?

 permetterci di prevaricare le preferenze dell'utente?
E' giusto che programmatori di professione si pongano questioni di etica.
Piů su rispondendoti ho postato il codice che mi avevi chiesto.


 Più su rispondendoti ho postato il codice che mi avevi chiesto.
E' chiaro che quella combinazione non gli piace eppure la sente, anche dopo.
Hai provato il KeyCode=0 suggeritoti da Cesare?

 Hai provato il KeyCode=0 suggeritoti da Cesare?
Si,ma mi sa che va bene solo con KeyAscii a meno che qui non vi sia ancora
qualcosa di sbagliato:
If KeyCode = vbKeyT Then
       KeyCode = 0
       newcitta.Text = "PADOVA"
       newtelefono.SetFocus
    End If


     End If
KeyAscii č un argomento dell'evento KeyPress, Cesare ipotizzava l'evento
KeyDown...
Al limite fai lo stesso azzeramento anche nell'evento KeyUp
Ma alla fine non ho ben capito: Suona quando batti Ctrl+T o in altri casi?

 casi?
Solo con Ctrl+T
Ma con quello che segue, siamo in altra form e su Grid non succede:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'assegna la data alla colonna relativa e si sposta alla colonna successiva
If Shift = vbCtrlMask Then
    Select Case KeyCode
        Case vbKeyD
            If grdDataGrid.Col = 0 Then
            grdDataGrid.Columns(0).Text = Date
            grdDataGrid.Col = 1
            End If
        Case vbKeyA                     'da qui assegnazioni testate
            If grdDataGrid.Col = 2 Then
            grdDataGrid.Columns(2).Text = testata1
            intestnascondi
            End If
        Case vbKeyS
            If grdDataGrid.Col = 2 Then
            grdDataGrid.Columns(2).Text = testata2
            intestnascondi
            End If
Mi scuso per la lunghezza.


 Ma con quello che segue, siamo in altra form e su Grid non succede:
Se seghi il tasto con KeyCode=0 non deve succedere da nessun'altra parte (a
meno che il controllo attivo non sia un altro). Hai per caso il KeyPreview
del form =True?

 il KeyPreview del form =True?
Ebbene si era True, ma ho appena provato e lo fa anche se è False


 Ebbene si era True, ma ho appena provato e lo fa anche se č False
Ma che codice hai in Form.Key<Down Up>?
Ma che codice hai sul controllo che ha il fuoco quando batti Ctrl+T?
Nessuno? Allora č lui che lo sente e ti sputacchia in faccia...

 Nessuno? Allora č lui che lo sente e ti sputacchia in faccia...
newcitta č un controllo testo ed ha il codice che ti ho postato prima.(piů
di qualche post piů indietro)
