COLOR Gradient in VB.NET for use in generating COlor Chart

[ASPNETnewbie]

Was wondering if you can help me. What I have now is the code below which basically starts me with what I need but I would like to have something from someone who has maybe worked on this before. Right now I need help with dealing with the chart generator which happens to be a flash file. I want to in a user control embed this same swf program so that on load, user selects the STARTCOLOR and ENDCOLOR and number of bars to create and maybe the width and Height of the Chart itself, push the Submit Button and have the User Control Display the Chart generated.

This is the code for the ChartGenerator
===========================================================

<object id="FC_2_3_Column3D" classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="

http://download.macromedia.com/pub/shockwave/cabs/

flash/swflash.cab#version=6,0,0,0" height="350" width="700">
<param name="movie" value="../Charts/FC_2_3_Column3D.swf">
<param name="FlashVars" value="&dataURL=Data.xml&chartWidth=700&chartHeight=350">
<param name="quality" value="high">
<param name="bgcolor" value="#FFFFFF">
<embed bgcolor="#FFFFFF" flashvars="&dataURL=Data.xml&chartWidth=700&chartHeight=350"
height="350" name="FC_2_3_Column3D" pluginspage="

http://www.macromedia.com/go/getflashplayer"

quality="high" src="../Charts/FC_2_3_Column3D.swf" type="application/x-shockwave-flash"
width="700"></embed>
</object>
===========================================================

Situation I have now is since I also need to make the width and Height features changable by user, and I want to wrap the Chart object in a UserControl, how can do I do and still have it work even after I have made the changes.


ASPNETNEWBIE



BELOW is my GRADIENT GENERATOR
===========================================================

Imports System
Imports System.Drawing

Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then

End If
End Sub

Public Function GetGradients(ByVal StartColor As Drawing.Color, ByVal EndColor As Drawing.Color, ByVal NumGradients As Integer) As String()
Dim clrRet(NumGradients - 1) As String
Dim i As Integer
Dim iR As Integer = 0
Dim iG As Integer = 0
Dim iB As Integer = 0

Dim rSecSize = (Convert.ToInt32(StartColor.R) - Convert.ToInt32(EndColor.R)) / NumGradients
Dim gSecSize = (Convert.ToInt32(StartColor.G) - Convert.ToInt32(EndColor.G)) / NumGradients
Dim bSecSize = (Convert.ToInt32(StartColor.B) - Convert.ToInt32(EndColor.B)) / NumGradients

For i = 0 To NumGradients - 2

iR = Convert.ToInt32(StartColor.R) + ((rSecSize * -1) * i)
iG = Convert.ToInt32(StartColor.G) + ((gSecSize * -1) * i)
iB = Convert.ToInt32(StartColor.B) + ((bSecSize * -1) * i)

clrRet(i) = RGBToHex(iR, iG, iB)
Next
clrRet(NumGradients - 1) = RGBToHex(Convert.ToInt32(EndColor.R), Convert.ToInt32(EndColor.G), Convert.ToInt32(EndColor.B))
Return clrRet
End Function

Public Function RGBToHex(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As String
Return String.Format("{0:X2}{1:X2}{2:X2}", R, G, B)
End Function

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim start As Color = System.Drawing.ColorTranslator.FromHtml(TextBox1.Text)
Dim ends As Color = System.Drawing.ColorTranslator.FromHtml(TextBox2.Text)
Dim numb As Integer = Int32.Parse(TextBox3.Text)

ListBox1.DataSource = GetGradients(start, ends, numb)
ListBox1.DataBind()
End Sub
End Class

 

[SiriusBlackOp]

I'm not sure if you can dynamically change the size of a swf.

Is that what you are asking?

Senior Software Developer

http://www.scoutsft.com

 

[ASPNETnewbie]

Yes, I would somehow like to have a way to wrap the code below in a user control, take apart the code below, insert height, width, and datasource data collected from user at run time, and then put it all back together and have it function as the original .swf object would. How do I go about dealing with this better please? What I have is not working is why I ask.

    <object id="FC_2_3_Column3D" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
            codebase="[URL unfurl="true"]http://download.macromedia.com/pub/shockwave/cabs/[/URL]
flash/swflash.cab#version=6,0,0,0" height="350" width="700">
            <param name="movie" value="../Charts/FC_2_3_Column3D.swf">
            <param name="FlashVars" value="&dataURL=Data.xml&chartWidth=700&chartHeight=350">
            <param name="quality" value="high">
            <param name="bgcolor" value="#FFFFFF">
            <embed bgcolor="#FFFFFF" flashvars="&dataURL=Data.xml&chartWidth=700&chartHeight=350"
                height="350" name="FC_2_3_Column3D" pluginspage="[URL unfurl="true"]http://www.macromedia.com/go/getflashplayer"[/URL]
                quality="high" src="../Charts/FC_2_3_Column3D.swf" type="application/x-shockwave-flash"
                width="700"></embed>
        </object>

ASPNETNEWBIE

 

[SiriusBlackOp]

Drop a "Literal" control onto your ASPX page and in the code behind set the Text property to your swf object definition code above.

Like this:

Literal1.Text = "<object..."

Senior Software Developer

http://www.scoutsft.com

 

[ASPNETnewbie]

Why Literal1.Text? It is a movie that should be played, an animation

ASPNETNEWBIE

 

[SiriusBlackOp]

Using Literal1.Text = "<object... >...</object>" allows you to change the object definition text... IF that is what you are tring to do.

If I put a new Literal control in the body of a aspx page and do the following in the page load event:

Literal1.Text = "<img src=""URL TO AN IMAGE"">"

THEN... my image will apear on my page when I load it. Therefore I can programaticly change the "URL TO AN IMAGE" if I wanted. Same goes with the swf object definition as with this image.... Like changeing the [width="700"] portion of the object.

Senior Software Developer

http://www.scoutsft.com