Tweet

Amoxicillin Online buy amoxicillin uk foxvision.dk buy amoxicillin liquid amitriptyline 25mg amitriptyline without prescription dadm.dk amitriptyline 50mg clomid birmingham clomid uk pct saveriorusso.com clomid uk pct buy naltrexone online usa buy naltrexone online usa redirect can you buy naltrexone over the counter buy antidepressant buy antidepressants uk truonggiang.net buy amitriptyline online 다량의 데이터를 이용할 경우 스크롤 기능을 응용하여 사용할 수 있습니다. Panel1 - 가장 밑에 배치(Padding 5에 배경색), Panel2 - 그 위에 Dock =full 로 놓고 AutoScrol = true Hippochart - 그 위에 히포차트를 올려놓습니다.

          

C#

 
int datacount = 500;

SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Spline;
sList.AxisFactor.XAxis.Interval = datacount / 50;

Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Line.LineWidth = 3;

for(int x = 0; x < datacount; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = r.Next(90);

sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}

this.hHippoChart1.PaletteType = PaletteType.Sky;
this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.DesignType = ChartDesignType.None;
this.hHippoChart1.Logo.Label.Text = "";
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();


this.hHippoChart1.Width = datacount * 5;
this.hHippoChart1.DrawChart();

this.label1.Text = "히포차트 스크롤 응용하기";

VB

 
Dim datacount As Integer = 500

Dim sList As New. SeriesList()
sList.ChartType = ChartType.Spline
sList.AxisFactor.XAxis.Interval = datacount / 50

Dim r As New. Random()
Dim i As Integer = 0
While i < 1
Dim sr As New. Series()
sr.Line.LineWidth = 3

Dim x As Integer = 0
While x < datacount
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)

sr.items.Add(item)
System.Math.Max(System.Threading.Interlocked.Increment(x),x - 1)
End While
sList.SeriesCollection.Add(sr)
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Me.hHippoChart1.PaletteType = PaletteType.Sky
Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.DesignType = ChartDesignType.None
Me.hHippoChart1.Logo.Label.Text = ""
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()


Me.hHippoChart1.Width = datacount * 5
Me.hHippoChart1.DrawChart()

Me.label1.Text = "히포차트 스크롤 응용하기"