Frage : Ho stellen Sie einen Zeitachseplaner/-tagebuch in vb.net her

HALLO möchte ich eine Zeitachse verursachen, um die Ereignisse für den Tag zu zeigen. Ich habe keine Idee, wo man beginnt oder wie man ungefähr es geht. Ich dachte kann ein Diagramm sein, aber ich wünsche Leute in der Lage sein zu schleppen - und - falle laut summe innen und out.
I haben nur Datenbank apps bilden gelassen, also dieses ist eine Lernkurve. Aber wenn jemand mich in der rechten Richtung zeigen und irgendwelche Vorschläge geben könnte, die groß sein würden.
timeline.jpg (41 KBs) (Akten-Art Details)
This, was ich zum create
das 314709

Antwort : Ho stellen Sie einen Zeitachseplaner/-tagebuch in vb.net her

Eine Zeitlinie ist ein Viereck, dann using:
    g.FillRectangle (Hb, r) wo - g - Grafiken, Hb - Bürste, r - Viereck

Zu den eval Viereckskoordinaten brauchen Sie
   DateScrMin, DateScrMax - Datumbegrenzungen für Schirmbereich. Wenn lautes Summen Sie Begrenzungen ändert.
   Schwach Kt als einzeln = (DateScrMax.ticks - DateScrMin.ticks)/WidthScreenArea

  Jetzt für Abstand Date1-Date2:
      xDate1 = ScreenArea.Left + Kt * (Date1.ticks - DateScrMin.ticks)
      barWidth= Kt * (Date2.ticks - Date1.ticks)

Der Beispielcode, zum der Kalenderüberschrift zu zeichnen, zeichnet Mottentag und Projekttag.
Er verwendet die rote Farbe für Sonntag und holydays, blau für Samstag.
In diesem Code I do´n Gebrauch Datum-Art, benutze ich FechaCpm Art (Minuten) 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
      Schwaches dmin als ganze Zahl = FCalMin.Dia, xref als Doppeltes = FCalMin.value * Kt - R_Cal.X
      Schwaches dMax als ganze Zahl = FscrMax.Dia
      Schwaches ktd als Doppeltes = Kt * 1440 'Pixel por día

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

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

      Schwaches x0 als ganze Zahl = R_Cal.X, x1 als ganze Zahl
      ta. Ausrichtung = StringAlignment.Center
      Für d als ganze Zahl = dmin zum dMax
         x1 = CInt ((d + 1) * ktd - xref) 'wenn d < dMax="" Then="">= 0 dann n += 1
         s = n.ToString
         Wenn (s.Length * TW)  <>
Weitere Lösungen  
 
programming4us programming4us