Spuštění zvuku po najetí myši na nějaký objekt   otázka

VB6/VBA

Čau kucííí.. Nějak moc si v tom nefrčím, nýbrž potřebuju do školy udělat nějakou jednoduchou encyklopedii...i pro nevidomé...pro vidomé je to zatim v pohode....ale ted potrebuju ze kdyz dana osoba osoba aktivuje mod pro slepe aby po najeti na obrazek se prehral zvuk (s tematem daneho odkazu na ktery ma kliknout)...delal jsem to tak:

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
WindowsMediaPlayer2.URL = "C:\predchudci.mp3"
End Sub

bohužel to pekne steka. podle me ma visual problem s tim, ze je hodne pomaly...tudiz kdyz na to najedu tak to dlouho nenacita...musim po tom jezdit treba par vterin aby se to vubec uracilo prehrat zvuk. nevite nekdo jak se s tim vyporadat? idealni by bylo aby si komp ty zvuky uz nahral dopredu...

dik za rady

nahlásit spamnahlásit spam -1 / 1 odpovědětodpovědět

Nazdar. Ty si použil udalosť Image3_MouseMove a to znamená že každý pohyb po obrázku spustí zvuk a ,ked máš trochu rozumu ,tak ti už doplo včom je problém :)

A ked nie tu je kód :

Public Class Form1

    Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
        My.Computer.Audio.Play("C:\predchudci.mp3")
    End Sub

End Class

Vytvoril som komponentu PictureBox1 na Form1 a pridal jej udalosť 'MouseEnter' čo znamená že ak sa dostane myš na ten obrázok ,tak sa prehraje zvuk. Samozrejme tú udalosť má aj tlačítko(Button).

nahlásit spamnahlásit spam -2 / 2 odpovědětodpovědět

Jelikož se jedná o vb6, tak se asi Mouse_Enter

nedohledáte, budete si muset uložit,nad kterým

prvkem již přehrání proběhlo. Při změně prvku

přehrát a znovu uložit...

K odstranění 'štěkání' při přehrání použít

asynchronní přehrání, něco naleznete :

Tip wav:

http://excelplus.net/forum/viewthread.ph...

Tip mp3 :

http://www.codenewsgroups.net/vb/t1177-h...

nahlásit spamnahlásit spam 0 odpovědětodpovědět

jo diky kuci.uz jsem to jaksi ukuchtil. a jeste potrebuju jednu radu. kdyz chcu psat ve visaul basicu text...treba do labelu. jak tam mam odradkovat? dikec

nahlásit spamnahlásit spam -1 / 1 odpovědětodpovědět
Label1.Caption = "hello" & vbCrLf & "world"
nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback