es lo ultimo q les pido aquí porfavor

[sanctusbellicosus91]

hola una pregunta nesesito lo equivalente para el vb.net ya q es de visual basic 2005



por favor



private void CreateGraph_DataSource( ZedGraphControl z1 )
{
GraphPane myPane = z1.GraphPane;

// Set the titles
myPane.Title.Text = "DataSourcePointList Test";
myPane.XAxis.Title.Text = "Date";
myPane.YAxis.Title.Text = "Freight Charges ($US)";

// Create a new DataSourcePointList to handle the database connection
DataSourcePointList dspl = new DataSourcePointList();
// Create a TableAdapter instance to access the database
NorthwindDataSetTableAdapters.OrdersTableAdapter adapter =
new NorthwindDataSetTableAdapters.OrdersTableAdapter() ;
// Create a DataTable and fill it with data from the database
NorthwindDataSet.OrdersDataTable table = adapter.GetData();

// Specify the table as the data source
dspl.DataSource = table;
// The X data will come from the "OrderDate" column
dspl.XDataMember = "OrderDate";
// The Y data will come from the "Freight" column
dspl.YDataMember = "Freight";
// The Z data are not used
dspl.ZDataMember = null;
// The Tag data will come from the "ShipName" column
// (note that this will just set PointPair.Tag = ShipName)
dspl.TagDataMember = "ShipName";

// X axis will be dates
z1.GraphPane.XAxis.Type = AxisType.Date;

// Make a curve
LineItem myCurve = z1.GraphPane.AddCurve( "Orders", dspl, Color.Blue );
// Turn off the line so it's a scatter plot
myCurve.Line.IsVisible = false;

// Show the point values. These are derived from the "ShipName" database column,
// which is set as the "Tag" property.
z1.IsShowPointValues = true;

// Auto set the scale ranges
z1.AxisChange();
}

[jaullo]

Mmmm....

Código ASP:

Private Sub CreateGraph_DataSource(z1 As ZedGraphControl)
    Dim myPane As GraphPane = z1.GraphPane
 
    ' Set the titles
    myPane.Title.Text = "DataSourcePointList Test"
    myPane.XAxis.Title.Text = "Date"
    myPane.YAxis.Title.Text = "Freight Charges ($US)"
 
    ' Create a new DataSourcePointList to handle the database connection
    Dim dspl As New DataSourcePointList()
    ' Create a TableAdapter instance to access the database
    Dim adapter As New NorthwindDataSetTableAdapters.OrdersTableAdapter()
    ' Create a DataTable and fill it with data from the database
    Dim table As NorthwindDataSet.OrdersDataTable = adapter.GetData()
 
    ' Specify the table as the data source
    dspl.DataSource = table
    ' The X data will come from the "OrderDate" column
    dspl.XDataMember = "OrderDate"
    ' The Y data will come from the "Freight" column
    dspl.YDataMember = "Freight"
    ' The Z data are not used
    dspl.ZDataMember = Nothing
    ' The Tag data will come from the "ShipName" column
    ' (note that this will just set PointPair.Tag = ShipName)
    dspl.TagDataMember = "ShipName"
 
    ' X axis will be dates
    z1.GraphPane.XAxis.Type = AxisType.[Date]
 
    ' Make a curve
    Dim myCurve As LineItem = z1.GraphPane.AddCurve("Orders", dspl, Color.Blue)
    ' Turn off the line so it's a scatter plot
    myCurve.Line.IsVisible = False
 
    ' Show the point values. These are derived from the "ShipName" database column,
    ' which is set as the "Tag" property.
    z1.IsShowPointValues = True
 
    ' Auto set the scale ranges
    z1.AxisChange()
End Sub
 

[sanctusbellicosus91]

Iniciado por jaullo

Mmmm....

Código ASP:

Private Sub CreateGraph_DataSource(z1 As ZedGraphControl)
    Dim myPane As GraphPane = z1.GraphPane
 
    ' Set the titles
    myPane.Title.Text = "DataSourcePointList Test"
    myPane.XAxis.Title.Text = "Date"
    myPane.YAxis.Title.Text = "Freight Charges ($US)"
 
    ' Create a new DataSourcePointList to handle the database connection
    Dim dspl As New DataSourcePointList()
    ' Create a TableAdapter instance to access the database
    Dim adapter As New NorthwindDataSetTableAdapters.OrdersTableAdapter()
    ' Create a DataTable and fill it with data from the database
    Dim table As NorthwindDataSet.OrdersDataTable = adapter.GetData()
 
    ' Specify the table as the data source
    dspl.DataSource = table
    ' The X data will come from the "OrderDate" column
    dspl.XDataMember = "OrderDate"
    ' The Y data will come from the "Freight" column
    dspl.YDataMember = "Freight"
    ' The Z data are not used
    dspl.ZDataMember = Nothing
    ' The Tag data will come from the "ShipName" column
    ' (note that this will just set PointPair.Tag = ShipName)
    dspl.TagDataMember = "ShipName"
 
    ' X axis will be dates
    z1.GraphPane.XAxis.Type = AxisType.[Date]
 
    ' Make a curve
    Dim myCurve As LineItem = z1.GraphPane.AddCurve("Orders", dspl, Color.Blue)
    ' Turn off the line so it's a scatter plot
    myCurve.Line.IsVisible = False
 
    ' Show the point values. These are derived from the "ShipName" database column,
    ' which is set as the "Tag" property.
    z1.IsShowPointValues = True
 
    ' Auto set the scale ranges
    z1.AxisChange()
End Sub
 

____________________________




gracias jaullo me a servido mucho tus consejos

[alemcito]

Gracias... Me sirvio tu codigo t_t te debo una....