Quote:
Originariamente inviato da ezio
Codice:
Dim weekdays
Set weekdays = SysStatsModel.Overlays("Weekdays")
For i = 0 to 30
j = i+1
weekdays(i+0).FontStyle = 0
If Weekday(tm + j - currentDay, vbSaturday) < 3 Then| | | | |calcolo per stabilire se č festivo.
weekdays(i+0).X = 58 |||||posizione orizzontale
weekdays(i+0).HAlign = 0 |||||allineamento verticale sulla seconda cifra
weekdays(i+0).Alpha = 100 trasparenza
Else | | | | |se č feriale, invece
weekdays(i+0).X = 50|||||posizione orizzontale spostata a sinistra di 8 pixel
weekdays(i+0).HAlign = 2||||| allineamento sulla prima cifra
weekdays(i+0).Alpha = 255 trasparenza zero
End If
If i < daysInMonth Then
weekdays(i+0).Visible = true
Else
weekdays(i+0).Visible = false
End If
|
non mi ricordo i tag giusti per i commenti in visual basic
