Quantcast
Channel: Xojo Programming Forum - Latest topics
Viewing all articles
Browse latest Browse all 3773

Re: why isn’t this working

$
0
0

Hi Julia.

Just found out I could send messages. :smiley:

First I am working through the … explanation… of how I should have my program working to do what I want. Slowly things are making sense.

Thank you.

But a question came up while I was reading it.

Since I don’t sit on my hands, I thought make up a method (in the app) to playTheMovie.

Then the first time the screen saver is started, I do my volume setting and call the method, with the listbox row, as below:

// for testing only
MessageBox "There are : " + screenSaveMovieListWindow.ListBox1.RowCount.ToString + " movies in the list”


// first find the size of screen I have
//height and width

//make it full screen
movieWindowForPlaying.FullScreen = TRUE
movieWindowForPlaying.MoviePlayer1.Height = DesktopDisplay.DisplayAt(0).Height
movieWindowForPlaying.MoviePlayer1.Width = DesktopDisplay.DisplayAt(0).width

//allow the user to have sound or not
Select Case screenSaveMovieListWindow.muteCheckBox.VisualState
  
Case DesktopCheckBox.VisualStates.Unchecked
  App.moviePlayerVolume = 100
  
case DesktopCheckBox.VisualStates.Checked
  App.moviePlayerVolume =0
  
case DesktopCheckBox.VisualStates.Indeterminate
  App.moviePlayerVolume = 50
  
End Select

app.i = 0

app.playTheMovie(app.i)

Plays fine.

In the MoviePlayer1.PlaybackStopped I have

app.i = app.i + 1

// for testing only
MessageBox "app.i = " + app.i.ToString + “ "

if app.i <= screenSaveMovieListWindow.ListBox1.RowCount then
  
  app.playTheMovie(app.i)
  
else
  
  MessageBox "End of Movies”
  
end if

Next movie plays fine.

If I have a third one, it NEVER plays. Which is why I wondered if I had to do something else.

Any ideas?

Regards

11 posts - 4 participants

Read full topic


Viewing all articles
Browse latest Browse all 3773

Trending Articles