Question : Ho vous créez un planificateur/journal intime de chronologie dans vb.net

Réponse : Ho vous créez un planificateur/journal intime de chronologie dans vb.net

Une ligne de temps est un rectangle, puis using :
    g.FillRectangle (HB, r) où - g - graphiques, HB - brosse, r - rectangle

Aux coordonnées eval de rectangle, vous avez besoin
   DateScrMin, DateScrMax - dates limites pour la zone d'écran. Quand le bourdonnement vous changent des limites.
   Faible Kt en tant que simple = (DateScrMax.ticks -) de DateScrMin.ticks/WidthScreenArea

  Maintenant pour l'intervalle Date1-Date2 :
      xDate1 = ScreenArea.Left + Kt * (Date1.ticks - DateScrMin.ticks)
      barWidth= Kt * (Date2.ticks - Date1.ticks)

Le code d'échantillon pour dessiner l'en-tête de calendrier, dessine le jour de mite et le jour de projet.
Il emploie la couleur rouge pour dimanche et holydays, bleue pour samedi.
En ce code, type de date d'utilisation de do´n d'I, j'emploie le type de FechaCpm (minutes) 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 Faible dmin comme nombre entier = FCalMin.Dia, xref comme double = FCalMin.value * Kt - R_Cal.X Faible dMax comme nombre entier = FscrMax.Dia Faible ktd comme double = Kt * 1440 'día de por de Pixel y0 = R_Cal.Y : y1 = R_Cal.Bottom - 2 : X = R_Cal.X g.FillRectangle (Brushes.White, R_Cal) Subordonné de DrawHline (g, y1) 'Línea Subordonné de DrawHline (g, R_GrAct.Bottom) 'Línea X - = 1 : g.DrawLine (Pens.Black, x, y0, x, y1) 'x - = 2 : g.DrawLine (Pens.Black, x, y0, x, y1) 'Izda Calendario Faible x0 comme nombre entier = R_Cal.X, x1 comme nombre entier ta. Alignement = StringAlignment.Center Pour d comme nombre entier = dmin au dMax x1 = CInt ((d + 1) * ktd - xref) 'si d < dMax="" Then="">= 0 puis n += 1 s = n.ToString Si (s.Length * TW) <>