evitare il cambio di stato del "toggleButton"

[allegfede]

Codice: [Seleziona]

Public Sub ToggleButton_PlayStop_Click()

  Debug ToggleButton_PlayStop.Value

  If ToggleButton_PlayStop.Value = False Then
    Try mp.Stop
    If Error Then
      Message.Error("error trying to stop the media player", "ok")
      Stop Event
    Endif
    
    ToggleButton_PlayStop.Text = "PLAY"
    ToggleButton_PlayStop.Picture = Stock["16/play"]
    
    Else
      Try mp.Start
      If Error Then
        Message.Error("Error trying to start media player!" & gb.crlf & "Please check if media URL is valid or other options.", "ok")
        Stop Event
      Endif
      
      ToggleButton_PlayStop.Text = "STOP"
      ToggleButton_PlayStop.Picture = Stock["16/stop"]
  Endif

End

ma lo stato cambia comunque ..... suppongo perche' il cambio di stato sia precedente alla routine relativa al "click"
sposto il tutto in un mousedown?

[Gianluigi]

Forse invece di usare un toglebutton ti conviene usare un normale button con due icone in base alle quali ti comporti, vedi il pulsante random di RandomRotaPic.
Secondo me è più facile da controllare.

[allegfede]

si infatti poi ho fatto cosi'.

penso che il problema sia proprio che l'evento "toggle" sia gia' stato "sparato" dall'oggetto e quindi non e' piu' intercettabile.