LitDev,
I did find that Desktop.SetWallPaper doesn't work the way that it should even using the LDBasic commands. Here is a snippet of the code:
LDBasic.FixFlickr()
For image = 1 to 5
pic = Flickr.GetRandomPicture("landscape")
'wall=LDBasic.LoadImage(pic)
LDBasic.DownloadFile("c:\temp\test.jpg",pic)
'TextWindow.WriteLine(wall)
Desktop.SetWallPaper("c:\temp\test.jpg")
Program.Delay(10000)
EndFor
If I use LDBasic.LoadImage it doesn't change the wallpaper at all. Using download file it will change it one time. This code came from the "Small Basic Curriculum for the desktop object. I really don't understand why LDBasic.LoadImage doesn't work. Your thoughts? Is there something we need to add?
Here is the original program from the tutorial:
LDBasic.FixFlickr()
For image = 1 to 5
pic = Flickr.GetRandomPicture("landscape")
Desktop.SetWallPaper(pic)
Program.Delay(10000)
EndFor
I did get the multiple images to work with this: The LDBasic.LoadImage still mystifies me as to why it doesn't.
LDBasic.FixFlickr()
For image = 1 to 5
pic = Flickr.GetRandomPicture("landscape")
'TextWindow.WriteLine(pic)
Temp="c:\temp\test"+image+".jpg"
ldbasic.DownloadFile(Temp,pic)
'wall=ldbasic.LoadImage(pic)
'File.DeleteFile(temp)
TextWindow.WriteLine(temp)
Desktop.SetWallPaper(temp)
File.DeleteFile(temp)
Program.Delay(10000)
EndFor
JR
I did find that Desktop.SetWallPaper doesn't work the way that it should even using the LDBasic commands. Here is a snippet of the code:
LDBasic.FixFlickr()
For image = 1 to 5
pic = Flickr.GetRandomPicture("landscape")
'wall=LDBasic.LoadImage(pic)
LDBasic.DownloadFile("c:\temp\test.jpg",pic)
'TextWindow.WriteLine(wall)
Desktop.SetWallPaper("c:\temp\test.jpg")
Program.Delay(10000)
EndFor
If I use LDBasic.LoadImage it doesn't change the wallpaper at all. Using download file it will change it one time. This code came from the "Small Basic Curriculum for the desktop object. I really don't understand why LDBasic.LoadImage doesn't work. Your thoughts? Is there something we need to add?
Here is the original program from the tutorial:
LDBasic.FixFlickr()
For image = 1 to 5
pic = Flickr.GetRandomPicture("landscape")
Desktop.SetWallPaper(pic)
Program.Delay(10000)
EndFor
I did get the multiple images to work with this: The LDBasic.LoadImage still mystifies me as to why it doesn't.
LDBasic.FixFlickr()
For image = 1 to 5
pic = Flickr.GetRandomPicture("landscape")
'TextWindow.WriteLine(pic)
Temp="c:\temp\test"+image+".jpg"
ldbasic.DownloadFile(Temp,pic)
'wall=ldbasic.LoadImage(pic)
'File.DeleteFile(temp)
TextWindow.WriteLine(temp)
Desktop.SetWallPaper(temp)
File.DeleteFile(temp)
Program.Delay(10000)
EndFor
JR