'Dibujar Calendario
Dmin fioco come il numero intero = FCalMin.Dia, xref come il doppio = FCalMin.value * Kt - R_Cal.X
dMax fioco come il numero intero = FscrMax.Dia
Ktd fioco come il doppio = Kt * 1440 'día di por dei pixel
y0 = R_Cal.Y: y1 = R_Cal.Bottom - 2: x = R_Cal.X
g.FillRectangle (Brushes.White, R_Cal)
Inferior di DrawHline (g, y1) 'Línea
Inferior di 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
X0 fioco come il numero intero = R_Cal.X, x1 come numero intero
l'AT. Allineamento = StringAlignment.Center
Per la d come il numero intero = dmin a dMax
x1 = CInt ((d + 1) * ktd - xref) 'se d < dMax="" Then="">= 0 allora n += 1
s = n.ToString
Se (s.Length * TW) <>
|