Solved

Dynamically edit embedded Flash with vb.net

Posted on 2008-10-15
1
884 Views
Last Modified: 2008-10-15
Hello, I am attempting to display my Picasa Web Albums on my website using the embedded slideshow and Google's API service. I have them both working separately, but can't figure out how to dynamically reset the "flashvars" property of the embed tag.

I copied the embed tag straight from one of my Picasa Web Albums and it looks like this:

<embed type="application/x-shockwave-flash" src="http://picasaweb.google.com/s/c/bin/slideshow.swf"
                flashvars="host=picasaweb.google.com&captions=1&noautoplay=1&RGB=0x000000&feed=http%3A%2F%2Fpicasaweb.google.com%2Fdata%2Ffeed%2Fapi%2Fuser%2F___________%2Falbumid%2F5090922892156473745%3Fkind%3Dphoto%26alt%3Drss"
                    width="800" height="533" ID="embeddedslideshow" runat="server" pluginspage="http://www.macromedia.com/go/getflashplayer"></embed>

I also have a dropdownlist which is populated by the API (see code).  The value of the dropdownlist is the albumID which is the variable I want to dynamically change in the embed tag whenever a new album is selected from the dropdownlist.  I get an error ("'flashvars' is not a member of 'System.Web.UI.HtmlControls.HtmlGenericControl'.") if I try to reference the flashvars attribute, is there a way around this or a asp.net server control I can use instead?  Thanks!
Dim myPicasa As New PicasaService("PicasaBPS")

        myPicasa.setUserCredentials("myusername@gmail.com", "mypassword")

        

        Dim username As String = "________"

        

        Dim query As New AlbumQuery(PicasaQuery.CreatePicasaUri(username))

 

        Dim feed As PicasaFeed = myPicasa.Query(query)

 

        For Each entry As PicasaEntry In feed.Entries

            Dim albumID As String = Replace(entry.FeedUri.ToString, "http://picasaweb.google.com/data/feed/api/user/_________/albumid/", "")

            albumID = Left(albumID, 19)

            Response.Write(albumID & " - ")

            Dim albumTitle As String = entry.Title.Text

            Response.Write(albumTitle & " - ")

            Dim ac As New AlbumAccessor(entry)

            Dim PhotoQty As String = ac.NumPhotos

            Response.Write(ac.NumPhotos & "<br />")

            Dim Album As String = albumTitle & " - " & PhotoQty

            ddlPicasaAlbums.Items.Add(New ListItem(Album, albumID))

        Next

Open in new window

0
Comment
Question by:brianpsmith81
1 Comment
 
LVL 3

Accepted Solution

by:
brianpsmith81 earned 0 total points
Comment Utility
Solved it by putting the code in a div tag and changing the innerhtml of the div tag
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

1.0 - Introduction Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET). If ever there was a subject full of murkiness and bad decisions, it is this one!   The first problem seems to be that people considering this task of converting…
The Confluence of Individual Knowledge and the Collective Intelligence At this writing (summer 2013) the term API (http://dictionary.reference.com/browse/API?s=t) has made its way into the popular lexicon of the English language.  A few years ago, …
The purpose of this video is to demonstrate how to set up the WordPress backend so that each page automatically generates a Mailchimp signup form in the sidebar. This will be demonstrated using a Windows 8 PC. Tools Used are Photoshop, Awesome…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now