Vraag : Ho u leidt tot een tot een chronologieOntwerper/agenda in vb.net

HALLO wil ik een chronologie tot stand brengen om de gebeurtenissen voor de dag te tonen. Ik heb geen idee waar te te beginnen of hoe te over het te gaan. Ik dacht kan een grafiek zijn maar ik wil mensen - en - dalingsgezoem kunnen binnen slepen en out.
I hebben slechts gegevensbestand gemaakt vormen zich apps zodat zal dit één een het leren kromme zijn. Maar als iemand me kon wijzen in de juiste richting en om het even welke suggesties geven die groot zouden zijn. van
timeline.jpg (41 KB) This is wat ik aan create

Antwoord : Ho u leidt tot een tot een chronologieOntwerper/agenda in vb.net

Een tijdlijn is een rechthoek, dan gebruikend:
    g.FillRectangle (hb, r) waar - g - Grafiek, Hb - borstel, r - rechthoek

Aan eval rechthoekcoördinaten, hebt u nodig
   DateScrMin, DateScrMax - de grenzen van de Datum voor het schermgebied. Wanneer verandert het gezoem u grenzen.
   Schemerige Kt als Enig = (DateScrMax.ticks - DateScrMin.ticks)/WidthScreenArea

  Nu voor interval Date1-Date2:
      xDate1 = ScreenArea.Left + Kt * (Date1.ticks - DateScrMin.ticks)
      barWidth= Kt * (Date2.ticks - Date1.ticks)

De steekproefcode om de kopbal van de Kalender te trekken, trekt de dag van de Mot en de dag van het Project.
Het gebruikt rode kleur voor Zondag en holydays, Blauw voor Zaterdag.
In deze code, het Type van het gebruiksDatum van I do´n, gebruik ik Type FechaCpm (notulen) Date.Ticks/Timespan.ticksPerMinute
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

 'Dibujar Calendario
      Schemerige dmin als Geheel = FCalMin.Dia, xref als Dubbel = FCalMin.value * Kt - R_Cal.X
      Schemerige dMax als Geheel = FscrMax.Dia
      Schemerige ktd als Dubbel = Kt * 1440 'Pixel por día

      y0 = R_Cal.Y: y1 = R_Cal.Bottom - 2: x = R_Cal.X
      g.FillRectangle (Brushes.White, R_Cal)
      DrawHline (g, y1) 'inferieure Línea
      DrawHline (g, R_GrAct.Bottom) 'inferieure Línea

      x - = 1: g.DrawLine (Pens.Black, x, y0, x, y1)
      'x - = 2: g.DrawLine (Pens.Black, x, y0, x, y1) 'Izda Calendario

      Schemerige x0 als Geheel = R_Cal.X, x1 als Geheel
      Ta. Groepering = StringAlignment.Center
      Voor D als Geheel = dmin aan dMax
         x1 = CInt ((D + 1) * ktd - xref) 'als D < dMax="" Then="">= 0 toen n += 1
         s = n.ToString
         Als (s.Length * tw)  <>
Andere oplossingen  
 
programming4us programming4us