mp3 och jpg i formulär
Jag vill göra ett program där jag visar en bild i t.x en picturebox samtidigt skall ett ljud i mp3_format spelas upp
Jag vill använda en Listbox där jag kan kan markera vad jad vill se och lyssna på
Detta fungerar men ljudfilen är wav och upprepar sig hela tiden, går ej att ändra på:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | If List2.Text = "Knölsvan" Then Text2.Text = "Knölsvan" End If If Text2.Text = "Knölsvan" Then 'Bilden Picture1.Picture = LoadPicture(Text1.Text & "\FåglarVB\Bild\Knölsvan.jpg") 'Texten Label1.Caption = "Knölsvan" 'Ljudet MMControl1.Visible = "False" MMControl1.Command = "Open" MMControl1.DeviceType = "WaveAudio" MMControl1.FileName = (A$ & "\FåglarVB\Ljudtest\001_Knölsvan.wav") MMControl1.Command = "open" MMControl1.Command = "play" If Text2.Text <> "Knölsvan" Then GoTo 100 End If End If '----------------------------------------------------------------------------------------------------------------------'Städa mmControllen 'MMControl1.Command = "Close" 'Sångsvan If List2.Text = "Sångsvan" Then Text2.Text = "Sångsvan" End If If Text2.Text = "Sångsvan" Then 'Bilden Picture1.Picture = LoadPicture(Text1.Text & "\FåglarVB\Bild\Sångsvan.jpg") 'Texten Label1.Caption = "Sångsvan" 'Ljudet MMControl1.Visible = "False" MMControl1.Command = "Open" MMControl1.DeviceType = "WaveAudio" MMControl1.FileName = (A$ & "\FåglarVB\Ljudtest\002_Sångsvan.wav") MMControl1.Command = "open" MMControl1.Command = "play" If Text2.Text <> "Sångsvan" Then GoTo 100 End If End If |
Svara
Sv: mp3 och jpg i formulär
If Text2.Text <> "Knölsvan" Then
Behöver du inte ha Close Här??
GoTo 100
Svara
Sv:mp3 och jpg i formulär
Vet inte
Det fungerar men ljudet skiftar inte när jag skiftar bild utan bara förtsätter
Kan inte få mp3 att fungera här
Svara