Fråga : Ho du skapar en timelinePlanner/dagbok i vb.net

HI jag önskar att skapa en timeline för att visa händelserna för dagen. Jag har ingen idé var att starta eller hur man går omkring det. Jag tänkte kan vara en graf, men jag önskar att folket ska vara kompetent att släpa - och - tappar zoom in, och out.
I har endast gjort databas att bilda apps, så denna ska är lära buktar. Men, om någon kunde peka mig i rätt riktning och ge sig, några förslag, som skulle, är stora. filename " för class= för >

 timeline.jpg " fileSize " > (41 KB) " javascript för href= " för <-/span>
This är vad jag önskar till för http://filedb.experts-exchange.com/incoming/2010/06_w24/314709/timeline.jpg” för href= " för create<-/div> class= för 314709
<-/div>
" " för >
<-/div> " klar "

Svar : Ho du skapar en timelinePlanner/dagbok i vb.net

En tid fodrar är en rektangel, därefter using:
    g.FillRectangle (hb, r) var - G - diagram, Hb - borsta, r - rektangel

Till eval rektangelkoordinater du behöver
   DateScrMin DateScrMax - datera begränsar för avskärmer område. När zoom som du ändrar, begränsar.
   Dunkelt Kt som singel = (DateScrMax.ticks -) för DateScrMin.ticks/WidthScreenArea

  Nu för mellanrummet Date1-Date2:
      xDate1 = ScreenArea.Left + Kt * (Date1.ticks - DateScrMin.ticks)
      barWidth= Kt * (Date2.ticks - Date1.ticks)

Ta prov kodifierar för att dra kalendertitelraden, attraktionmaldag och för att projektera dag.
Den använder rött färgar för söndagen och holydays, blått för lördag.
I detta kodifiera, I-do´nbruk daterar typ, mig använder FechaCpm typ (noterar), 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
      Dunkel dmin som heltalet = FCalMin.Dia, xref som dubbelt = FCalMin.value * Kt - R_Cal.X
      Dunkel dMax som heltal = FscrMax.Dia
      Dunkel ktd som dubbelt = Kt * 1440 'PIXELpordía

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

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

      Dunkel x0 som heltalet = R_Cal.X, x1 som heltal
      ta. Justering = StringAlignment.Center
      För D som heltal = dmin till dMax
         x1 = CInt ((D + 1) * ktd - xref) 'om D < dMax="" Then="">= 0 därefter n += 1
         s = n.ToString
         Om (s.Length * tw)  <>
Andra lösningar  
 
programming4us programming4us