dotNETportal.cz

Č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

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).

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...

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

Label1.Caption = "hello" & vbCrLf & "world"