Differenze tra le versioni di "Eseguire un file audio o Midi quando si clicca sulla MapView"
Da Gambas-it.org - Wikipedia.
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
Cliccando sulla ''MapView'' è possibile eseguire un file audio o un file Midi. | Cliccando sulla ''MapView'' è possibile eseguire un file audio o un file Midi. | ||
| + | <BR>È necessario attivare anche il Componente ''gb.media''. | ||
| − | Mostriamo un esempio pratico, nel quale l'esecuzione | + | Mostriamo un esempio pratico, nel quale per avviare e successivamente per arrestare l'esecuzione del file audio o MIDI, si dovrà cliccare sulla ''MapView'' con il tasto destro del mouse: |
Private MapView1 As MapView | Private MapView1 As MapView | ||
Private mpt As New MapPoint(41.89018, 12.49230) | Private mpt As New MapPoint(41.89018, 12.49230) | ||
| Riga 7: | Riga 8: | ||
| − | + | Public Sub Form_Open() | |
With Me | With Me | ||
| Riga 23: | Riga 24: | ||
<FONT Color=gray>' ''Crea un Oggetto "MediaPlayer" per eseguire l'audio:''</font> | <FONT Color=gray>' ''Crea un Oggetto "MediaPlayer" per eseguire l'audio:''</font> | ||
With mp = New MediaPlayer | With mp = New MediaPlayer | ||
| − | .URL = Media.URL("<FONT Color= | + | .URL = Media.URL("<FONT Color=darkgreen>''/percorso/del/file/audio o Midi''</font>") |
<FONT Color=gray>' ''Imposta il Controllo ove cliccare per far eseguire l'audio:''</font> | <FONT Color=gray>' ''Imposta il Controllo ove cliccare per far eseguire l'audio:''</font> | ||
.SetWindow(MapView1) | .SetWindow(MapView1) | ||
End With | End With | ||
| − | + | End | |
| − | + | ||
| + | Public Sub MapView1_MouseUp() | ||
<FONT Color=gray>' ''Se si clicca con il tasto destro del mouse sulla mappa, si avvia l'esecuzione o l'arresto dell'audio:''</font> | <FONT Color=gray>' ''Se si clicca con il tasto destro del mouse sulla mappa, si avvia l'esecuzione o l'arresto dell'audio:''</font> | ||
| Riga 49: | Riga 51: | ||
Endif | Endif | ||
| − | + | End | |
Versione attuale delle 04:39, 18 gen 2024
Cliccando sulla MapView è possibile eseguire un file audio o un file Midi.
È necessario attivare anche il Componente gb.media.
Mostriamo un esempio pratico, nel quale per avviare e successivamente per arrestare l'esecuzione del file audio o MIDI, si dovrà cliccare sulla MapView con il tasto destro del mouse:
Private MapView1 As MapView
Private mpt As New MapPoint(41.89018, 12.49230)
Private mp As MediaPlayer
Public Sub Form_Open()
With Me
.W = Screen.AvailableWidth
.H = Screen.AvailableHeight
.Arrangement = Arrange.Fill
End With
With MapView1 = New MapView(Me) As "MapView1"
.Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
.Map.Zoom = 15
.Map.Center = mpt
End With
' Crea un Oggetto "MediaPlayer" per eseguire l'audio:
With mp = New MediaPlayer
.URL = Media.URL("/percorso/del/file/audio o Midi")
' Imposta il Controllo ove cliccare per far eseguire l'audio:
.SetWindow(MapView1)
End With
End
Public Sub MapView1_MouseUp()
' Se si clicca con il tasto destro del mouse sulla mappa, si avvia l'esecuzione o l'arresto dell'audio:
If Not Mouse.Right Then Return
If mp.State == Media.Playing Then
mp.Stop
mp.Close
' Determina la pulitura della "MapView" e pertanto la cessazione dell'esecuzione del file audio o Midi:
MapView1.Refresh
Else
Dim pt As New Point(Mouse.X, Mouse.Y)
mpt = MapView1.Map.PixelToMapPointRel(pt)
' Imposta il Controllo "MediaPlayer", e la posizione sulla "MapView" ove si eseguirà l'audio:
mp.SetWindow(MapView1, MapView1.Map.MapPointToPixelRel(mpt).X, MapView1.Map.MapPointToPixelRel(mpt).Y)
' Esegue il file audio o Midi:
mp.Play()
Endif
End
